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

fixed TComboBox.OnChange

Browse Source 
git-svn-id: trunk@2249 -
This commit is contained in:
mattias 2002-08-17 23:41:10 +00:00
parent 17a19514d5
commit 84c890b989
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -155,7 +155,7 @@ function LockOnChange(GtkObject: PGtkObject; LockOffset: integer): integer;
begin begin
Result:=Integer(gtk_object_get_data(GtkObject,'OnChangeLock')); Result:=Integer(gtk_object_get_data(GtkObject,'OnChangeLock'));
if LockOffset<>0 then begin if LockOffset<>0 then begin
inc(Result); inc(Result,LockOffset);
gtk_object_set_data(GtkObject,'OnChangeLock',Pointer(Result)); gtk_object_set_data(GtkObject,'OnChangeLock',Pointer(Result));
end; end;
end; end;
@ -3985,6 +3985,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.160 2003/03/02 23:08:31 mattias
fixed TComboBox.OnChange
Revision 1.159 2003/02/18 22:56:23 mattias Revision 1.159 2003/02/18 22:56:23 mattias
fixed key grabbing fixed key grabbing