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 tooltip under Linux

Browse source
This commit is contained in:
Alexander Koblov 2011-04-11 03:53:14 +00:00
commit 8656d6ee12
1 changed files with 17 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/platform/uinfotooltip.pas
View file

@ -56,6 +56,20 @@ uses
;
function GetFileInfoToolTip(aFileSource: IFileSource; const aFile: TFile): UTF8String;
function GetDefaultToolTip(const Hint: UTF8String): UTF8String;
begin
if fpModificationTime in aFile.SupportedProperties then
with (aFile.Properties[fpModificationTime] as TFileModificationDateTimeProperty) do
Result:= IfThen(Hint = EmptyStr, EmptyStr, Hint + 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;
if fpCompressedSize in aFile.SupportedProperties then
with (aFile.Properties[fpCompressedSize] as TFileCompressedSizeProperty) do
Result:= IfThen(Hint = EmptyStr, EmptyStr, Hint + LineEnding) + GetDescription + #58#32 + AsString;
end;
begin
Result:= EmptyStr;
@ -64,19 +78,13 @@ begin
Result:= StringReplace(gFileInfoToolTip.GetFileInfoToolTip(aFileSource, aFile), '\n', LineEnding, [rfReplaceAll]);
{$IF DEFINED(MSWINDOWS)}
Result:= IfThen(Result = EmptyStr, EmptyStr, Result + LineEnding) + SHGetInfoTip(aFile.Path, aFile.Name)
{$ELSE}
Result:= GetDefaultToolTip(Result);
{$ENDIF}
end
else
begin
if fpModificationTime in aFile.SupportedProperties then
with (aFile.Properties[fpModificationTime] as TFileModificationDateTimeProperty) do
Result:= GetDescription + #58#32 + AsString;
if fpSize in aFile.SupportedProperties then
with (aFile.Properties[fpSize] as TFileSizeProperty) do
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(Result = EmptyStr, EmptyStr, Result + LineEnding) + GetDescription + #58#32 + AsString;
Result:= GetDefaultToolTip(Result);
end;
end;