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

added IDE cmd line option --skip-last-project

Browse Source 
git-svn-id: trunk@5710 -
This commit is contained in:
mattias 2004-07-25 22:43:18 +00:00
parent 2f8201d816
commit 7ee9cae478
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/lazarusidestrconsts.pas
View File

@ -54,6 +54,7 @@ resourcestring
lisCmdLineLCLInterfaceSpecificOptions = lisCmdLineLCLInterfaceSpecificOptions =
'LCL Interface specific options:'; 'LCL Interface specific options:';
lisDoNotShowSplashScreen = ' Do not show splash screen'; lisDoNotShowSplashScreen = ' Do not show splash screen';
lisSkipLoadingLastProject = ' Skip loading last project';
lissecondaryConfigDirectoryWhereLazarusSearchesFor = lissecondaryConfigDirectoryWhereLazarusSearchesFor =
' secondary config ' ' secondary config '
+'directory, where Lazarus searches for config template files. Default is '; +'directory, where Lazarus searches for config template files. Default is ';

14
ide/main.pp
View File

@ -724,6 +724,9 @@ implementation
uses uses
Math; Math;
var
SkipAutoLoadingLastProject: boolean;
//============================================================================== //==============================================================================
@ -743,6 +746,7 @@ const
SecondaryConfPathOptShort='--scp='; SecondaryConfPathOptShort='--scp=';
NoSplashScreenOptLong='--no-splash-screen'; NoSplashScreenOptLong='--no-splash-screen';
NoSplashScreenOptShort='--nsc'; NoSplashScreenOptShort='--nsc';
SkipLastProjectOpt='--skip-last-project';
function ParamIsOption(ParamIndex: integer; function ParamIsOption(ParamIndex: integer;
const Option: string): boolean; const Option: string): boolean;
@ -767,6 +771,7 @@ var
i: integer; i: integer;
AValue: string; AValue: string;
begin begin
SkipAutoLoadingLastProject:=false;
if (ParamCount>0) if (ParamCount>0)
and ((AnsiCompareText(ParamStr(1),'--help')=0) and ((AnsiCompareText(ParamStr(1),'--help')=0)
or (AnsiCompareText(ParamStr(1),'-help')=0) or (AnsiCompareText(ParamStr(1),'-help')=0)
@ -794,6 +799,9 @@ begin
writeln('or ',NoSplashScreenOptShort); writeln('or ',NoSplashScreenOptShort);
writeln(BreakString(lisDoNotShowSplashScreen,75, 22)); writeln(BreakString(lisDoNotShowSplashScreen,75, 22));
writeln(''); writeln('');
writeln(SkipLastProjectOpt);
writeln(BreakString(lisSkipLoadingLastProject, 75, 22));
writeln('');
writeln(''); writeln('');
writeln(''); writeln('');
writeln(lisCmdLineLCLInterfaceSpecificOptions); writeln(lisCmdLineLCLInterfaceSpecificOptions);
@ -819,6 +827,8 @@ begin
or ParamIsOption(i,NoSplashScreenOptShort) then begin or ParamIsOption(i,NoSplashScreenOptShort) then begin
ShowSplashScreen:=false; ShowSplashScreen:=false;
end; end;
if ParamIsOption(i,SkipLastProjectOpt) then
SkipAutoLoadingLastProject:=true;
end; end;
end; end;
@ -1401,6 +1411,7 @@ begin
// try loading last project // try loading last project
if (not ProjectLoaded) if (not ProjectLoaded)
and (not SkipAutoLoadingLastProject)
and (EnvironmentOptions.OpenLastProjectAtStart) and (EnvironmentOptions.OpenLastProjectAtStart)
and (FileExists(EnvironmentOptions.LastSavedProjectFile)) then begin and (FileExists(EnvironmentOptions.LastSavedProjectFile)) then begin
ProjectLoaded:= ProjectLoaded:=
@ -10475,6 +10486,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.739 2004/07/25 22:43:18 mattias
added IDE cmd line option --skip-last-project
Revision 1.738 2004/07/25 01:04:44 mattias Revision 1.738 2004/07/25 01:04:44 mattias
TXMLPropStorage basically working TXMLPropStorage basically working