From 24bd0b08a86ef58ba5d027f62b3fba5cbced4878 Mon Sep 17 00:00:00 2001 From: lazarus Date: Sat, 9 Feb 2002 01:47:19 +0000 Subject: [PATCH] MG: fixed stopping keypress event if handled by LCL git-svn-id: trunk@904 - --- lcl/interfaces/gtk/gtkobject.inc | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lcl/interfaces/gtk/gtkobject.inc b/lcl/interfaces/gtk/gtkobject.inc index 26807e8b05..4ffb47c190 100644 --- a/lcl/interfaces/gtk/gtkobject.inc +++ b/lcl/interfaces/gtk/gtkobject.inc @@ -1747,8 +1747,8 @@ begin LM_SETSELLEN : begin if (Sender is TControl) then begin - case TControl(Sender).fCompStyle of - csComboBox: + case TControl(Sender).fCompStyle of + csComboBox: begin gtk_editable_select_region(PGtkEditable(PGtkCombo(Handle)^.entry), gtk_editable_get_position(PGtkEditable(PGtkCombo(Handle)^.entry)), @@ -5897,6 +5897,9 @@ end; { ============================================================================= $Log$ + Revision 1.234 2002/10/06 20:24:27 lazarus + MG: fixed stopping keypress event if handled by LCL + Revision 1.233 2002/10/06 17:55:45 lazarus MG: JITForms now sets csDesigning before creation