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: Crash under GTK2 (fixes #2069)

Browse source
This commit is contained in:
Alexander Koblov 2025-01-11 15:14:27 +03:00
commit 2a2862c0f1
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/platform/upixmapmanager.pas
View file

@ -1228,10 +1228,19 @@ end;
function TPixMapManager.AddDefaultThemePixmap(const AIconName: String;
AIconSize: Integer): PtrInt;
var
bmpBitmap: Graphics.TBitmap;
bmpBitmap: Pointer;
{$IF DEFINED(LCLGTK2)}
sIconFileName: String;
{$ENDIF}
begin
if AIconSize = 0 then AIconSize := gIconsSize;
{$IF DEFINED(LCLGTK2)}
sIconFileName := FDCIconTheme.FindIcon(AIconName, AIconSize);
if Length(sIconFileName) = 0 then Exit(-1);
bmpBitmap := gdk_pixbuf_new_from_file_at_size(PChar(sIconFileName), AIconSize, AIconSize, nil);
{$ELSE}
bmpBitmap := LoadThemeIcon(FDCIconTheme, AIconName, AIconSize);
{$ENDIF}
if (bmpBitmap = nil) then
Result := -1
else begin