mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Compilation for non macOS

Browse source 
(cherry picked from commit 8e147eeefc)
This commit is contained in:
Alexander Koblov 2026-01-10 15:53:31 +03:00
commit e56735c8b6
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/filesources/filesystem/ufilesystemfilesource.pas
View file

@ -401,7 +401,9 @@ var
LinkAttrs: TFileAttrs;
begin
Result := TFile.Create(APath);
{$IF DEFINED(DARWIN)}
Result.SetPropertyLazyLoader(@PropertyLazyLoader);
{$ENDIF}
with Result do
begin
@ -477,7 +479,9 @@ begin
raise EFileNotFound.Create(aFilePath);
Result := TFile.Create(ExtractFilePath(aFilePath));
{$IF DEFINED(DARWIN)}
Result.SetPropertyLazyLoader(@PropertyLazyLoader);
{$ENDIF}
FillFromStat(Result, aFilePath, @StatInfo);
{$ELSE}