mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-22 16:59:11 +02:00
LCL: fix OpenDocument on Mac for folders. Issue #0038670. Patch by Trevor Roydhouse.
git-svn-id: trunk@64890 -
This commit is contained in:
parent
be1d17f306
commit
ce7e9909e5
@ -39,8 +39,8 @@ var
|
||||
lpath: string;
|
||||
begin
|
||||
Result := True;
|
||||
if not FileExistsUTF8(APath) then begin
|
||||
// Windows OpenDocument handles URLs as well
|
||||
if not FileExistsUTF8(APath) and not DirectoryExistsUTF8(Apath) then begin
|
||||
// OpenDocument handles URLs as well
|
||||
Result := OpenURL(Apath);
|
||||
Exit;
|
||||
end;
|
||||
|
Loading…
Reference in New Issue
Block a user