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 application bundle icon under Mac OS X

Browse source
This commit is contained in:
Alexander Koblov 2010-07-18 06:38:16 +00:00
commit 0fc8bdcedc
1 changed files with 49 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

51
src/platform/upixmapmanager.pas
View file

@ -166,6 +166,8 @@ type
It is synchronized in GetIconByName->CheckAddPixmap.
}
function GetIconByDesktopFile(sFileName: UTF8String; iDefaultIcon: PtrInt): PtrInt;
{$ELSEIF DEFINED(DARWIN)}
function GetApplicationBundleIcon(sFileName: UTF8String; iDefaultIcon: PtrInt): PtrInt;
{$ENDIF}
function GetBuiltInDriveIcon(Drive : PDrive; IconSize : Integer; clBackColor : TColor) : Graphics.TBitmap;
public
@ -709,11 +711,11 @@ end;
function TPixMapManager.GetIconByDesktopFile(sFileName: UTF8String; iDefaultIcon: PtrInt): PtrInt;
var
I: PtrInt;
iniDesktop: TIniFileEx;
iniDesktop: TIniFileEx = nil;
sIconName: UTF8String;
begin
iniDesktop:= TIniFileEx.Create(sFileName, fmOpenRead);
try
iniDesktop:= TIniFileEx.Create(sFileName, fmOpenRead);
sIconName:= iniDesktop.ReadString('Desktop Entry', 'Icon', EmptyStr);
finally
FreeThenNil(iniDesktop);
@ -734,6 +736,43 @@ begin
Result:= I;
end;
{$ELSEIF DEFINED(DARWIN)}
function TPixMapManager.GetApplicationBundleIcon(sFileName: UTF8String;
iDefaultIcon: PtrInt): PtrInt;
var
I, J: PtrInt;
slInfoFile: TStringListEx = nil;
sTemp,
sIconName: UTF8String;
begin
slInfoFile:= TStringListEx.Create;
try
slInfoFile.LoadFromFile(sFileName + '/Contents/Info.plist');
sTemp:= slInfoFile.Text;
I:= Pos('CFBundleIconFile', sTemp);
if I <= 0 then
Exit(iDefaultIcon)
else
begin
I:= PosEx('<string>', sTemp, I) + 8;
J:= PosEx('</string>', sTemp, I);
sIconName:= Copy(sTemp, I, J - I);
if not StrEnds(sIconName, '.icns') then
sIconName:= sIconName + '.icns';
sIconName:= sFileName + '/Contents/Resources/' + sIconName;
end;
finally
FreeThenNil(slInfoFile);
end;
I:= GetIconByName(sIconName);
if I < 0 then
Result:= iDefaultIcon
else
Result:= I;
end;
{$ENDIF} // Unix
function TPixMapManager.CheckAddThemePixmapLocked(AIconName: String; AIconSize: Integer): PtrInt;
@ -1290,6 +1329,14 @@ begin
Exit;
end
else
{$ELSEIF DEFINED(DARWIN)}
if (gShowIcons = sim_all_and_exe) and
(DirectAccess and (ExtractFileExt(FullPath) = '.app')) then
begin
Result:= GetApplicationBundleIcon(FullPath, FiDirIconID);
Exit;
end
else
{$ENDIF}
begin
Exit(FiDirIconID);