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

fixed checking menuitems

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

5
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -225,7 +225,9 @@ var
LCLMenuItem: TMenuItem; LCLMenuItem: TMenuItem;
begin begin
if GTK_IS_CHECK_MENU_ITEM(Pointer(hndMenu)) then begin if GTK_IS_CHECK_MENU_ITEM(Pointer(hndMenu)) then begin
LockOnChange(PgtkObject(hndMenu),1);
gtk_check_menu_item_set_active(PGtkCheckMenuItem(hndMenu),bChecked); gtk_check_menu_item_set_active(PGtkCheckMenuItem(hndMenu),bChecked);
LockOnChange(PgtkObject(hndMenu),-1);
Result:=true; Result:=true;
end else begin end else begin
LCLMenuItem:=TMenuItem(GetLCLObject(Pointer(hndMenu))); LCLMenuItem:=TMenuItem(GetLCLObject(Pointer(hndMenu)));
@ -7919,6 +7921,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.217 2003/03/16 09:41:06 mattias
fixed checking menuitems
Revision 1.216 2003/03/12 14:39:29 mattias Revision 1.216 2003/03/12 14:39:29 mattias
fixed clipping origin in stretchblt fixed clipping origin in stretchblt