paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-27 02:53:40 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ide/lazarusidestrconsts.pas
View File

@ -37,6 +37,28 @@ uses
Classes, SysUtils; Classes, SysUtils;
ResourceString 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 // component palette
lisSelectionTool = 'Selection tool'; lisSelectionTool = 'Selection tool';

30
ide/main.pp
View File

@ -530,6 +530,11 @@ end;
{ TMainIDE } { TMainIDE }
{-------------------------------------------------------------------------------
procedure TMainIDE.ParseCmdLineOptions;
Parses the command line for the IDE.
-------------------------------------------------------------------------------}
procedure TMainIDE.ParseCmdLineOptions; procedure TMainIDE.ParseCmdLineOptions;
const const
PrimaryConfPathOpt='--primary-config-path='; PrimaryConfPathOpt='--primary-config-path=';
@ -541,26 +546,14 @@ begin
or (AnsiCompareText(ParamStr(1),'-help')=0) or (AnsiCompareText(ParamStr(1),'-help')=0)
or (AnsiCompareText(ParamStr(1),'-?')=0)) then or (AnsiCompareText(ParamStr(1),'-?')=0)) then
begin begin
writeln('lazarus [options] <project-filename>'); writeln(lisCmdLineHlpHeader);
writeln(Format(lisCmdLinePrimaryConfigPathDesc,[GetPrimaryConfigPath]));
writeln(Format(lisCmdLineSecondaryConfigPathDesc,[GetSecondaryConfigPath]));
writeln(''); writeln('');
writeln('IDE Options:'); writeln(lisCmdLineLCLInterfaceSpecificOptions);
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(''); writeln('');
writeln(GetCmdLineParamDescForInterface); writeln(GetCmdLineParamDescForInterface);
Application.Terminate;
Halt; Halt;
end; end;
for i:=1 to ParamCount do begin for i:=1 to ParamCount do begin
@ -6569,6 +6562,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.320 2002/07/04 14:48:22 lazarus
MG: added internationalization, started with german MG: added internationalization, started with german