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

IDE: startlazarus on darwin start the bundle, open with exe does not work anymore since big sur

Browse Source 
git-svn-id: trunk@64255 -
This commit is contained in:
mattias 2020-12-20 15:02:38 +00:00
parent deba76613b
commit 80ce4d3432
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/idecmdline.pas
View File

@ -210,6 +210,7 @@ begin
HasDebugLog := False;
for i := 1 to ParamsAndCfgCount do begin
Param := ParamsAndCfgStr(i);
if Param='' then continue;
if SysUtils.CompareText(LeftStr(Param, length(DebugLogOpt)), DebugLogOpt) = 0 then
HasDebugLog := HasDebugLog or (length(Param) > length(DebugLogOpt));
if (Param=LazarusDebugOpt) and (not HasDebugLog) then begin

5
ide/lazarusmanager.pas
View File

@ -372,11 +372,7 @@ begin
{$IFDEF darwin}
if DirectoryExistsUTF8(FLazarusPath+'.app') then begin
// start the bundle instead
{$IFDEF LCLCocoa}
FLazarusPath:= FLazarusPath+'.app/Contents/MacOS/'+ExtractFileName(FLazarusPath);
{$ELSE}
FLazarusPath:= FLazarusPath+'.app';// /Contents/MacOS/'+ExtractFileName(FLazarusPath);
{$ENDIF}
end;
{$ENDIF}
@ -415,6 +411,7 @@ begin
// clear the command line files, so that they are passed only once.
FCmdLineFiles:='';
FLazarusProcess.OnStart := @LazarusProcessStart;
DebugLn(['Info: (startlazarus) [TLazarusManager.Run] exe',FLazarusProcess.Process.Executable,' Params=[',FLazarusProcess.Process.Parameters.Text,']']);
FLazarusProcess.Execute;
FLazarusProcess.WaitOnExit;
Restart := FLazarusProcess.WantsRestart;