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

LCL: Eliminate a variable in function DoOpen for Mac.

Browse Source
This commit is contained in:
Juha 2025-02-02 10:23:41 +02:00
parent 4164e5b669
commit d8227cc4c4
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/sysenvapis_mac.inc
View File

@ -1,8 +1,6 @@
{%MainUnit ../lclintf.pas}
function DoOpen(APath: String; Param: String): Boolean;
var
ResultingPath: string;
begin
Result := True;
if not FileExistsUTF8(APath) and not DirectoryExistsUTF8(Apath) then begin
@ -12,14 +10,12 @@ begin
end;
// Paths with spaces need to be quoted, see bug 21651
if (APath<>'') and (APath[1]<>'''') then
ResultingPath:=QuotedStr(APath)
else
ResultingPath:=APath;
APath:=QuotedStr(APath);
if Param<>'' then
ResultingPath:=Param+' '+ResultingPath;
APath:=Param+' '+APath;
RunCmdFromPath('open',ResultingPath);
RunCmdFromPath('open',APath);
end;
function FindDefaultBrowser(out ABrowser, AParams: String): Boolean;