paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 07:49:27 +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 :
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