paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

added ReadAllLinks

Browse Source 
git-svn-id: trunk@2869 -
This commit is contained in:
mattias 2002-08-18 08:55:15 +00:00
parent 5934fb3beb
commit 42412c5b29
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/main.pp
View File

@ -657,7 +657,7 @@ begin
or (AnsiCompareText(ParamStr(1),'-help')=0)
or (AnsiCompareText(ParamStr(1),'-?')=0)) then
begin
TranslateResourceStrings(ExtractFilePath(ParamStr(0)),'');
TranslateResourceStrings(ProgramDirectory,'');
writeln(lisCmdLineHlpHeader);
writeln(Format(lisCmdLinePrimaryConfigPathDesc,[GetPrimaryConfigPath]));
writeln(Format(lisCmdLineSecondaryConfigPathDesc,[GetSecondaryConfigPath]));
@ -5780,7 +5780,6 @@ begin
end else if MacroName='lazarusdir' then begin
Handled:=true;
s:=EnvironmentOptions.LazarusDirectory;
if s='' then s:=ExtractFilePath(ParamStr(0));
end else if MacroName='lclwidgettype' then begin
Handled:=true;
s:=Project1.CompilerOptions.LCLWidgetType;
@ -7721,6 +7720,9 @@ end.
{ =============================================================================
$Log$
Revision 1.460 2003/02/07 17:49:21 mattias
added ReadAllLinks
Revision 1.459 2003/02/06 20:46:51 mattias
default fpc src dirs and clean ups