paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 18:21:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk2: fix not released DCs from r57164 #987f894152. issue #33099

Browse Source 
git-svn-id: trunk@57231 -
This commit is contained in:
ondrej 2018-02-03 14:13:05 +00:00
parent 24d9a06647
commit 3e56e04dde
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2wsmenus.pp
View File

@ -202,6 +202,7 @@ begin
begin
DC := Widgetset.GetDC(HWND({%H-}PtrUInt(AMenuItem)));
IconWidth := LCLItem.GetIconSize(DC).X;
WidgetSet.ReleaseDC(HWND({%H-}PtrUInt(AMenuItem)), DC);
if IconWidth > 0 then
begin
gtk_widget_style_get(PGtkWidget(AMenuItem), 'toggle-spacing', [@spacing, nil]);
@ -222,6 +223,7 @@ begin
GTK_WIDGET_GET_CLASS(AMenuItem)^.size_request(PGtkWidget(AMenuItem), requisition);
DC := Widgetset.GetDC(HWND({%H-}PtrUInt(AMenuItem)));
IconHeight := LCLItem.GetIconSize(DC).Y;
Widgetset.ReleaseDC(HWND({%H-}PtrUInt(AMenuItem)), DC);
if requisition^.height < IconHeight then
requisition^.height := IconHeight;
end;