From: Erik B. <eb...@us...> - 2007-02-26 06:20:18
|
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; |