paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 00:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-GTK2: Fix UnityTrayIcon crash on gdk_pixbuf_save. Issue #32258, patch from Benito van der Zander.

Browse Source 
git-svn-id: trunk@55709 -
This commit is contained in:
juha 2017-08-19 22:59:38 +00:00
parent f54d4f2318
commit 938d485a23
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk2/unitywsctrls.pas
View File

@ -148,7 +148,7 @@ begin
if FileExists(GlobalIconPath) then if FileExists(GlobalIconPath) then
DeleteFile(GlobalIconPath); DeleteFile(GlobalIconPath);
GlobalIconPath := IconThemePath + FIconName + '.' + IconType; GlobalIconPath := IconThemePath + FIconName + '.' + IconType;
gdk_pixbuf_save(GlobalIcon, PChar(GlobalIconPath), IconType, nil); gdk_pixbuf_save(GlobalIcon, PChar(GlobalIconPath), IconType, nil, [nil]);
if GlobalAppIndicator <> nil then if GlobalAppIndicator <> nil then
app_indicator_set_icon(GlobalAppIndicator, PChar(FIconName)); app_indicator_set_icon(GlobalAppIndicator, PChar(FIconName));
end end
@ -184,7 +184,7 @@ begin
if FileExists(GlobalIconPath) then if FileExists(GlobalIconPath) then
DeleteFile(GlobalIconPath); DeleteFile(GlobalIconPath);
GlobalIconPath := IconThemePath + FIconName + '.' + IconType; GlobalIconPath := IconThemePath + FIconName + '.' + IconType;
gdk_pixbuf_save(GlobalIcon, PChar(GlobalIconPath), IconType, nil); gdk_pixbuf_save(GlobalIcon, PChar(GlobalIconPath), IconType, nil, [nil]);
{ Again it seems that icons can only come from files } { Again it seems that icons can only come from files }
app_indicator_set_icon(GlobalAppIndicator, PChar(FIconName)); app_indicator_set_icon(GlobalAppIndicator, PChar(FIconName));
end; end;