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

UPD: show system native Icon for zip file on macOS

Browse source
This commit is contained in:
rich2014 2025-06-18 21:45:24 +08:00
commit 75e59c056f
1 changed files with 26 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

46
src/platform/upixmapmanager.pas
View file

@ -1924,26 +1924,34 @@ begin
end;
(* Set archive icons *)
for I:=0 to gWCXPlugins.Count - 1 do
begin
if gWCXPlugins.Enabled[I] and ((gWCXPlugins.Flags[I] and PK_CAPS_HIDE) <> PK_CAPS_HIDE) then
begin
sExt := gWCXPlugins.Ext[I];
if (Length(sExt) > 0) and (FExtList.Find(sExt) < 0) then
FExtList.Add(sExt, TObject(FiArcIconID));
end;
end; //for
for I:= 0 to gMultiArcList.Count - 1 do
begin
if gMultiArcList.Items[I].FEnabled and not (mafHide in gMultiArcList.Items[I].FFlags) then
begin
sExt := gMultiArcList.Items[I].FExtension;
if (Length(sExt) > 0) and (FExtList.Find(sExt) < 0) then
FExtList.Add(sExt, TObject(FiArcIconID));
end;
end;
{$IF DEFINED(DARWIN)}
if gShowIcons <> sim_all_and_exe then begin
{$ENDIF}
for I:=0 to gWCXPlugins.Count - 1 do
begin
if gWCXPlugins.Enabled[I] and ((gWCXPlugins.Flags[I] and PK_CAPS_HIDE) <> PK_CAPS_HIDE) then
begin
sExt := gWCXPlugins.Ext[I];
if (Length(sExt) > 0) and (FExtList.Find(sExt) < 0) then
FExtList.Add(sExt, TObject(FiArcIconID));
end;
end; //for
for I:= 0 to gMultiArcList.Count - 1 do
begin
if gMultiArcList.Items[I].FEnabled and not (mafHide in gMultiArcList.Items[I].FFlags) then
begin
sExt := gMultiArcList.Items[I].FExtension;
if (Length(sExt) > 0) and (FExtList.Find(sExt) < 0) then
FExtList.Add(sExt, TObject(FiArcIconID));
end;
end;
{$IF DEFINED(DARWIN)}
end;
{$ENDIF}
(* /Set archive icons *)