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

LCL: fix OpenDocument on Mac for folders. Issue #0038670. Patch by Trevor Roydhouse.

Browse Source 
git-svn-id: trunk@64890 -
This commit is contained in:
bart 2021-03-29 15:46:18 +00:00
parent be1d17f306
commit ce7e9909e5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/sysenvapis_mac.inc
View File

@ -39,8 +39,8 @@ var
lpath: string; lpath: string;
begin begin
Result := True; Result := True;
if not FileExistsUTF8(APath) then begin if not FileExistsUTF8(APath) and not DirectoryExistsUTF8(Apath) then begin
// Windows OpenDocument handles URLs as well // OpenDocument handles URLs as well
Result := OpenURL(Apath); Result := OpenURL(Apath);
Exit; Exit;
end; end;