[GExperts-CVS] gexperts/unstable/Src/ToDo GX_ToDo.pas,1.54,1.55

[Erik B. <eb...@us...>]

Update of /cvsroot/gexperts/gexperts/unstable/Src/ToDo
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv31256/Src/ToDo

Modified Files:
	GX_ToDo.pas 
Log Message:
Scan the DPR as the project file under BDS 200x

Index: GX_ToDo.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/ToDo/GX_ToDo.pas,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -d -r1.54 -r1.55
--- GX_ToDo.pas	5 Jul 2006 13:54:33 -0000	1.54
+++ GX_ToDo.pas	1 Sep 2006 21:02:23 -0000	1.55
@@ -366,7 +366,7 @@
   else
     FProjectFileName := GxOtaGetCurrentProjectFileName;
 
-  ScanFile(Project.FileName);
+  ScanFile(GxOtaGetProjectFileName(Project, True));
   for i := 0 to Project.GetModuleCount-1 do
   begin
     ModuleInfo := Project.GetModule(i);