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: show Icon for Executable file without ext on macOS

Browse source
This commit is contained in:
rich2014 2025-06-29 10:48:20 +08:00
commit a601c76280
1 changed files with 17 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/platform/upixmapmanager.pas
View file

@ -246,6 +246,7 @@ type
{$ENDIF}
{$IF DEFINED(DARWIN)}
function GetSystemFolderIcon: PtrInt;
function GetSystemExecutableIcon: PtrInt;
function GetMimeIcon(AFileExt: String; AIconSize: Integer): PtrInt;
function LoadImageFileBitmap( const filename:String; const size:Integer ): TBitmap;
{$ENDIF}
@ -1432,6 +1433,11 @@ begin
Result:= GetMimeIcon(FileType, gIconsSize);
end;
function TPixMapManager.GetSystemExecutableIcon: PtrInt;
begin
Result:= GetMimeIcon('public.unix-executable', gIconsSize);
end;
function TPixMapManager.GetMimeIcon(AFileExt: String; AIconSize: Integer): PtrInt;
var
I: Integer;
@ -1826,7 +1832,7 @@ begin
if FiArcIconID = -1 then
{$ENDIF}
FiArcIconID := AddDefaultThemePixmap('package-x-generic');
{$IFDEF MSWINDOWS}
{$IF DEFINED(MSWINDOWS) OR DEFINED(DARWIN)}
FiExeIconID := -1;
if gShowIcons > sim_standart then
FiExeIconID := GetSystemExecutableIcon;
@ -2387,7 +2393,7 @@ begin
if (Extension = '') then
begin
{$IF DEFINED(UNIX) AND NOT (DEFINED(DARWIN) OR DEFINED(HAIKU))}
{$IF DEFINED(UNIX) AND NOT DEFINED(HAIKU)}
if IconsMode = sim_all_and_exe then
begin
if DirectAccess and (Attributes and S_IXUGO <> 0) then
@ -2395,11 +2401,15 @@ begin
if not LoadIcon then
Result := -1
else begin
Ext := GioFileGetIcon(FullPath);
if Ext = 'application-x-sharedlib' then
Result := FiExeIconID
else
Result := CheckAddThemePixmap(Ext);
{$IF DEFINED(DARWIN)}
Result := FiExeIconID;
{$ELSE}
Ext := GioFileGetIcon(FullPath);
if Ext = 'application-x-sharedlib' then
Result := FiExeIconID
else
Result := CheckAddThemePixmap(Ext);
{$ENDIF}
end;
Exit;
end;