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

small bugfixes and fixed non checked menu items activate

Browse Source 
git-svn-id: trunk@2352 -
This commit is contained in:
mattias 2002-08-17 23:41:17 +00:00
parent b19c77c8fa
commit af7576e3e9
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -263,7 +263,7 @@ begin
if GTK_IS_CHECK_MENU_ITEM(widget) then begin if GTK_IS_CHECK_MENU_ITEM(widget) then begin
LCLMenuItem:=TMenuItem(GetLCLObject(Widget)); LCLMenuItem:=TMenuItem(GetLCLObject(Widget));
if LCLMenuItem<>nil then begin if (LCLMenuItem<>nil) and LCLMenuItem.IsCheckItem then begin
if ((PGtkCheckMenuItem(Widget)^.flag0 and bm_checkmenuitem_active)<>0) if ((PGtkCheckMenuItem(Widget)^.flag0 and bm_checkmenuitem_active)<>0)
<>LCLMenuItem.Checked <>LCLMenuItem.Checked
then begin then begin
@ -280,6 +280,7 @@ begin
end; end;
end; end;
end; end;
Mess.Msg := LM_ACTIVATE; Mess.Msg := LM_ACTIVATE;
Mess.Result := 0; Mess.Result := 0;
Result := DeliverMessage(Data, Mess) = 0; Result := DeliverMessage(Data, Mess) = 0;
@ -2541,6 +2542,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.165 2003/02/03 22:28:08 mattias
small bugfixes and fixed non checked menu items activate
Revision 1.164 2003/01/27 13:49:16 mattias Revision 1.164 2003/01/27 13:49:16 mattias
reduced speedbutton invalidates, added TCanvas.Frame reduced speedbutton invalidates, added TCanvas.Frame