mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Compilation error on Windows

Browse source
This commit is contained in:
rich2014 2026-06-25 17:51:20 +08:00
commit 6d72a856e6
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/platform/uinfotooltip.pas
View file

@ -82,12 +82,11 @@ uses
,DCClassesUtf8;
function GetFileInfoToolTip(aFileSource: IFileSource; const aDisplayFile: TDisplayFile): String;
var
aFile: TFile;
function GetDefaultToolTip(const Hint: String): String;
var
aFile: TFile;
begin
aFile:= aDisplayFile.FSFile;
Result:= Hint;
if (fpModificationTime in aFile.SupportedProperties) and aFile.ModificationTimeProperty.IsValid then
with (aFile.Properties[fpModificationTime] as TFileModificationDateTimeProperty) do
@ -102,6 +101,7 @@ function GetFileInfoToolTip(aFileSource: IFileSource; const aDisplayFile: TDispl
begin
Result:= EmptyStr;
aFile:= aDisplayFile.FSFile;
if fspDirectAccess in aFileSource.Properties then
begin