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: Show hint

Browse source
This commit is contained in:
Alexander Koblov 2011-07-17 04:56:45 +00:00
commit 2a18e4bbde
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/platform/uinfotooltip.pas
View file

@ -59,15 +59,16 @@ function GetFileInfoToolTip(aFileSource: IFileSource; const aFile: TFile): UTF8S
function GetDefaultToolTip(const Hint: UTF8String): UTF8String;
begin
Result:= Hint;
if fpModificationTime in aFile.SupportedProperties then
with (aFile.Properties[fpModificationTime] as TFileModificationDateTimeProperty) do
Result:= IfThen(Hint = EmptyStr, EmptyStr, Hint + LineEnding) + GetDescription + #58#32 + AsString;
Result:= IfThen(Result = EmptyStr, EmptyStr, Result + LineEnding) + GetDescription + #58#32 + AsString;
if fpSize in aFile.SupportedProperties then
with (aFile.Properties[fpSize] as TFileSizeProperty) do
Result:= IfThen(Hint = EmptyStr, EmptyStr, Hint + LineEnding) + GetDescription + #58#32 + AsString;
Result:= IfThen(Result = EmptyStr, EmptyStr, Result + LineEnding) + GetDescription + #58#32 + AsString;
if fpCompressedSize in aFile.SupportedProperties then
with (aFile.Properties[fpCompressedSize] as TFileCompressedSizeProperty) do
Result:= IfThen(Hint = EmptyStr, EmptyStr, Hint + LineEnding) + GetDescription + #58#32 + AsString;
Result:= IfThen(Result = EmptyStr, EmptyStr, Result + LineEnding) + GetDescription + #58#32 + AsString;
end;
begin