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

LCL/Cocoa: Implement SelectInFolder for macOS.

Browse Source
This commit is contained in:
rich2014 2025-02-02 10:44:51 +08:00
parent 0d5e804de9
commit b855e211b6
1 changed files with 24 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
lcl/include/sysenvapis_mac.inc
View File

@ -1,5 +1,26 @@
{%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
// OpenDocument handles URLs as well
Result := OpenURL(Apath);
Exit;
end;
// Paths with spaces need to be quoted, see bug 21651
if (APath<>'') and (APath[1]<>'''') then
ResultingPath:=QuotedStr(APath)
else
ResultingPath:=APath;
if Param<>'' then
ResultingPath:=Param+' '+ResultingPath;
RunCmdFromPath('open',ResultingPath);
end;
function FindDefaultBrowser(out ABrowser, AParams: String): Boolean;
begin
@ -34,28 +55,13 @@ end;
// Open a document with the default application associated with it in the system
function OpenDocument(APath: String): Boolean;
var
ResultingPath: string;
lpath: string;
begin
Result := True;
if not FileExistsUTF8(APath) and not DirectoryExistsUTF8(Apath) then begin
// OpenDocument handles URLs as well
Result := OpenURL(Apath);
Exit;
end;
// Paths with spaces need to be quoted, see bug 21651
if (APath<>'') and (APath[1]<>'''') then
ResultingPath:=QuotedStr(APath)
else
ResultingPath:=APath;
RunCmdFromPath('open',ResultingPath);
Result:=DoOpen(APath,'');
end;
// ToDo: Implement
// Now just open the folder in system filemanager.
// open the folder and select the file in system filemanager.
function SelectInFolder(AFullPath: String): Boolean;
begin
Result := OpenDocument(ExtractFilePath(AFullPath));
Result := DoOpen(AFullPath,'-R');
end;