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

fixed command line internationalization

Browse Source 
git-svn-id: trunk@2846 -
This commit is contained in:
mattias 2002-08-18 08:54:52 +00:00
parent aba2e71f18
commit ae572883af
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/main.pp
View File

@ -647,6 +647,7 @@ begin
or (AnsiCompareText(ParamStr(1),'-help')=0)
or (AnsiCompareText(ParamStr(1),'-?')=0)) then
begin
TranslateResourceStrings(ExtractFilePath(ParamStr(0)),'');
writeln(lisCmdLineHlpHeader);
writeln(Format(lisCmdLinePrimaryConfigPathDesc,[GetPrimaryConfigPath]));
writeln(Format(lisCmdLineSecondaryConfigPathDesc,[GetSecondaryConfigPath]));
@ -5538,6 +5539,7 @@ var
CurUnit: TUnitInfo;
begin
Result:=mrOk;
if Project1=nil then exit;
Project1.GetUnitsChangedOnDisk(AnUnitList);
if AnUnitList=nil then exit;
Result:=ShowDiskDiffsDialog(AnUnitList);
@ -7504,6 +7506,9 @@ end.
{ =============================================================================
$Log$
Revision 1.437 2002/12/16 23:27:01 mattias
fixed command line internationalization
Revision 1.436 2002/12/02 10:44:55 mattias
fixed SourceChangeCache when nothing has changed