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

startlazarus: start IDE on Mac via open, bug #32180, patch from Anthony Walter

Browse Source 
git-svn-id: trunk@55548 -
This commit is contained in:
mattias 2017-07-20 16:22:14 +00:00
parent 9fae108464
commit 5f2e130bc6
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/lazarusmanager.pas
View File

@ -362,7 +362,7 @@ begin
{$IFDEF darwin} {$IFDEF darwin}
if FileExistsUTF8(FLazarusPath+'.app') then begin if FileExistsUTF8(FLazarusPath+'.app') then begin
// start the bundle instead // start the bundle instead
FLazarusPath:=FLazarusPath+'.app/Contents/MacOS/'+ExtractFileName(FLazarusPath); FLazarusPath:= FLazarusPath+'.app';// /Contents/MacOS/'+ExtractFileName(FLazarusPath);
end; end;
{$ENDIF} {$ENDIF}
@ -372,10 +372,17 @@ begin
{$IFDEF Linux} {$IFDEF Linux}
EnvOverrides.Values['LIBOVERLAY_SCROLLBAR']:='0'; EnvOverrides.Values['LIBOVERLAY_SCROLLBAR']:='0';
{$ENDIF} {$ENDIF}
{$IFDEF darwin}
FLazarusProcess :=
TLazarusProcess.Create('open',
' -a ' + FLazarusPath + ' --args ' + GetCommandLineParameters(FCmdLineParams, True)+' '+FCmdLineFiles,
EnvOverrides);
{$ELSE}
FLazarusProcess := FLazarusProcess :=
TLazarusProcess.Create(FLazarusPath, TLazarusProcess.Create(FLazarusPath,
GetCommandLineParameters(FCmdLineParams, True)+' '+FCmdLineFiles, GetCommandLineParameters(FCmdLineParams, True)+' '+FCmdLineFiles,
EnvOverrides); EnvOverrides);
{$ENDIF}
finally finally
EnvOverrides.Free; EnvOverrides.Free;
end; end;