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

MG: fixed stopping keypress event if handled by LCL

Browse Source 
git-svn-id: trunk@904 -
This commit is contained in:
lazarus 2002-02-09 01:47:19 +00:00
parent 135292b75d
commit 24bd0b08a8
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1747,8 +1747,8 @@ begin
LM_SETSELLEN : LM_SETSELLEN :
begin begin
if (Sender is TControl) then begin if (Sender is TControl) then begin
case TControl(Sender).fCompStyle of case TControl(Sender).fCompStyle of
csComboBox: csComboBox:
begin begin
gtk_editable_select_region(PGtkEditable(PGtkCombo(Handle)^.entry), gtk_editable_select_region(PGtkEditable(PGtkCombo(Handle)^.entry),
gtk_editable_get_position(PGtkEditable(PGtkCombo(Handle)^.entry)), gtk_editable_get_position(PGtkEditable(PGtkCombo(Handle)^.entry)),
@ -5897,6 +5897,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.233 2002/10/06 17:55:45 lazarus
MG: JITForms now sets csDesigning before creation MG: JITForms now sets csDesigning before creation