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

added TMenuItem ImageIndex support for gtk

Browse Source 
git-svn-id: trunk@8074 -
This commit is contained in:
mattias 2005-11-06 11:02:21 +00:00
parent 285c581bca
commit c33f18f1a2
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk/gtkobject.inc
View File

@ -5538,7 +5538,7 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TGtkWidgetSet.AssignSelf(Child,Data : Pointer); procedure TGtkWidgetSet.AssignSelf(Child,Data : Pointer);
begin begin
gtk_Object_Set_Data(Pgtkobject(Child),'Self',Data); gtk_Object_Set_Data(Pgtkobject(Child),'Self',Data);
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------

2
lcl/interfaces/gtk/gtkproc.inc
View File

@ -5338,7 +5338,7 @@ begin
Width:=0; Width:=0;
Height:=0; Height:=0;
if LCLMenuItem=nil then exit; if LCLMenuItem=nil then exit;
if LCLMenuItem.HasBitmap then if LCLMenuItem.HasIcon then
GetGdkPixmapFromGraphic(LCLMenuItem.Bitmap,IconImg,IconMask,Width,Height); GetGdkPixmapFromGraphic(LCLMenuItem.Bitmap,IconImg,IconMask,Width,Height);
end; end;