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

fixed sending TButtonControl.OnClick on every change

Browse Source 
git-svn-id: trunk@2106 -
This commit is contained in:
mattias 2002-08-17 23:40:57 +00:00
parent 45a54d0346
commit 947e4d8c21
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5704,8 +5704,10 @@ begin
csCheckbox, csCheckbox,
csToggleBox: csToggleBox:
begin begin
LockOnChange(PGtkObject(Handle),1);
gtk_toggle_button_set_active(PGtkToggleButton(handle), gtk_toggle_button_set_active(PGtkToggleButton(handle),
(TCheckBoxState(data^) = cbChecked)) (TCheckBoxState(data^) = cbChecked));
LockOnChange(PGtkObject(Handle),-1);
end; end;
csCalendar : csCalendar :
@ -7067,6 +7069,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.341 2003/03/25 16:29:53 mattias
fixed sending TButtonControl.OnClick on every change
Revision 1.340 2003/03/25 13:00:39 mattias Revision 1.340 2003/03/25 13:00:39 mattias
implemented TMemo.SelLength, improved OI hints implemented TMemo.SelLength, improved OI hints