paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 09:29:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed compilation with -dTranslateStrings from barko

Browse Source 
git-svn-id: trunk@8343 -
This commit is contained in:
mattias 2005-12-19 11:58:37 +00:00
parent efc69fbbd5
commit bb99f5f64e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/main.pp
View File

@ -2923,7 +2923,7 @@ begin
//Ensure the project is saved //Ensure the project is saved
if DoSaveAll([sfCheckAmbiguousFiles])<>mrOk then exit; if DoSaveAll([sfCheckAmbiguousFiles])<>mrOk then exit;
//Ensure the project is compiled, so all rst files are present //Ensure the project is compiled, so all rst files are present
if DoBuildProject(crBuild)<>mrOk then exit; if DoBuildProject(crBuild,[pbfCleanCompile])<>mrOk then exit;
for i:=0 to Project1.FileCount-1 do for i:=0 to Project1.FileCount-1 do
begin begin
if FileExists(ChangeFileExt(Project1.Files[i].Filename,'.lrt')) if FileExists(ChangeFileExt(Project1.Files[i].Filename,'.lrt'))