paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 15:33:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed unreleased gdiobjects on printing cmd line help

Browse Source 
git-svn-id: trunk@1777 -
This commit is contained in:
lazarus 2002-07-05 09:36:45 +00:00
parent 6adc7d71d2
commit 6510417783
2 changed files with 35 additions and 17 deletions

22
ide/lazarusidestrconsts.pas
View File

@ -37,6 +37,28 @@ uses
Classes, SysUtils;
ResourceString
// command line help
lisCmdLineHlpHeader = 'lazarus [options] <project-filename>'#13#10
+#13#10
+'IDE Options:'#13#10
+#13#10
+'--help or -? this help message'#13#10
+#13#10;
lisCmdLinePrimaryConfigPathDesc =
'--primary-config-path <path>'#13#10
+' primary config directory, where Lazarus'#13#10
+' stores its config files. Default is '#13#10
+' %s'#13#10
+#13#10;
lisCmdLineSecondaryConfigPathDesc =
'--secondary-config-path <path>'#13#10
+' secondary config directory, where Lazarus'#13#10
+' searches for config template files.'#13#10
+' Default is %s'#13#10
+#13#10;
lisCmdLineLCLInterfaceSpecificOptions =
'LCL Interface specific options:';
// component palette
lisSelectionTool = 'Selection tool';

30
ide/main.pp
View File

@ -530,6 +530,11 @@ end;
{ TMainIDE }
{-------------------------------------------------------------------------------
procedure TMainIDE.ParseCmdLineOptions;
Parses the command line for the IDE.
-------------------------------------------------------------------------------}
procedure TMainIDE.ParseCmdLineOptions;
const
PrimaryConfPathOpt='--primary-config-path=';
@ -541,26 +546,14 @@ begin
or (AnsiCompareText(ParamStr(1),'-help')=0)
or (AnsiCompareText(ParamStr(1),'-?')=0)) then
begin
writeln('lazarus [options] <project-filename>');
writeln(lisCmdLineHlpHeader);
writeln(Format(lisCmdLinePrimaryConfigPathDesc,[GetPrimaryConfigPath]));
writeln(Format(lisCmdLineSecondaryConfigPathDesc,[GetSecondaryConfigPath]));
writeln('');
writeln('IDE Options:');
writeln('');
writeln('--help or -? this help message');
writeln('');
writeln('--primary-config-path <path>');
writeln(' primary config directory, where Lazarus');
writeln(' stores its config files. Default is ');
writeln(' ',GetPrimaryConfigPath);
writeln('');
writeln('--secondary-config-path <path>');
writeln(' secondary config directory, where Lazarus');
writeln(' searches for config template files.');
writeln(' Default is ',GetSecondaryConfigPath);
writeln('');
writeln('');
writeln('LCL Interface specific options:');
writeln(lisCmdLineLCLInterfaceSpecificOptions);
writeln('');
writeln(GetCmdLineParamDescForInterface);
Application.Terminate;
Halt;
end;
for i:=1 to ParamCount do begin
@ -6569,6 +6562,9 @@ end.
{ =============================================================================
$Log$
Revision 1.321 2002/07/05 09:36:45 lazarus
MG: fixed unreleased gdiobjects on printing cmd line help
Revision 1.320 2002/07/04 14:48:22 lazarus
MG: added internationalization, started with german