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

ADD: Feature [0000307] Show icons for WFX plugins #2

Browse source
This commit is contained in:
Alexander Koblov 2019-03-06 20:00:09 +00:00
commit 9aa2cf276e
1 changed files with 6 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/platform/upixmapmanager.pas
View file

@ -1775,17 +1775,14 @@ begin
end;
{$IF DEFINED(MSWINDOWS)}
if IconsMode = sim_all_and_exe then
if (DirectAccess = False) and (AFile.Attributes = (FILE_ATTRIBUTE_NORMAL or FILE_ATTRIBUTE_VIRTUAL)) and Assigned(AFile.LinkProperty) then
begin
if (DirectAccess = False) and (AFile.Attributes = (FILE_ATTRIBUTE_NORMAL or FILE_ATTRIBUTE_VIRTUAL)) and Assigned(AFile.LinkProperty) then
begin
if not LoadIcon then
Result := -1
else begin
Result := GetPluginIcon(AFile.LinkProperty.LinkTo, FiDefaultIconID);
end;
Exit;
if not LoadIcon then
Result := -1
else begin
Result := GetPluginIcon(AFile.LinkProperty.LinkTo, FiDefaultIconID);
end;
Exit;
end;
{$ENDIF}