pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

LazEdit: start with blank page by default if no files are specfied on commandline

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2477 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
lazarus-bart
2012-07-07 22:43:46 +00:00
parent 7826dd6b83
commit 6f1a46a173
1 changed files with 5 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
applications/lazedit/main.pp
View File

@ -1569,12 +1569,10 @@ procedure TLazEditMainForm.ParseCommandlineFilenames(Dummy: PtrInt);
var
i, Count: Integer;
S: String;
OpenBlankPage: Boolean;
begin
//debugln('TLazEditMainForm.ParseCommandlineFilenames');
if Dummy = 12345 then Exit; //Get rid of annoying hint
Count := 0;
OpenBlankPage := False;
{$ifndef darwin}
for i := 1 to ParamCount do
begin
@ -1589,13 +1587,12 @@ begin
if not TryFileOpen(S) then ShowError(Format(vTranslations.msgOpenError,[S]));
end
else ShowError(Format(vTranslations.msgFileNotFound,[S]));
end
else if S = opt_short_prefix + opt_short_blankpage then OpenBlankPage := True;
end;
end;
{$else}
OpenBlankPage := True; //we cannot pass -n on darwin, so offer blank page to the user
{$endif}
if (Count = 0) and OpenBlankPage then DoFileNewByType(eftNone);
//Start with blank page if no files are specified on commandline
if (Count = 0) then
{$endif} //and do this by default on darwin, since we cannot specify -n on commandline for app bundle
DoFileNewByType(eftNone);
end;
procedure TLazEditMainForm.ParseCommandLineSwitches;