[GExperts-CVS] gexperts/unstable/Src/Utils GX_OtaUtils.pas, 1.197, 1.198

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

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

Modified Files:
	GX_OtaUtils.pas 
Log Message:
Quick hack for dpk support in GxOtaGetProjectFileName

Index: GX_OtaUtils.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_OtaUtils.pas,v
retrieving revision 1.197
retrieving revision 1.198
diff -u -d -r1.197 -r1.198
--- GX_OtaUtils.pas	26 Oct 2006 01:17:10 -0000	1.197
+++ GX_OtaUtils.pas	26 Feb 2007 06:20:13 -0000	1.198
@@ -1061,8 +1061,11 @@
   if Assigned(Project) then begin
     Result := Project.FileName;
     if NormalizeBdsProj and IsBdsproj(Result) then begin
-      if GxOtaProjectIsEitherDelphi(Project) then
+      if GxOtaProjectIsEitherDelphi(Project) then begin
         Result := ChangeFileExt(Result, '.dpr');
+        if (not FileExists(Result)) and FileExists(ChangeFileExt(Result, '.dpk')) then
+          Result := ChangeFileExt(Result, '.dpk');
+      end;
     end;
   end;
 end;