mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-16 08:00:30 +01:00
Gtk2: fixed tab focus switch in combobox edit
git-svn-id: trunk@31559 -
This commit is contained in:
parent
9d6ccb72d3
commit
e9a0c2adee
@ -2155,10 +2155,10 @@ var
|
||||
// the gtk2 gtkentry handles the return key and emits an activate signal
|
||||
// The LCL does not use that and needs the return key event
|
||||
// => emulate it
|
||||
if GtkWidgetIsA(TargetWidget, gtk_type_entry)
|
||||
and (gdk_event_get_type(AEvent) = GDK_KEY_PRESS)
|
||||
and (VKey=13)
|
||||
then begin
|
||||
if GtkWidgetIsA(TargetWidget, gtk_type_entry) and
|
||||
(gdk_event_get_type(AEvent) = GDK_KEY_PRESS) and
|
||||
((VKey = VK_RETURN) or (VKey = VK_TAB)) then
|
||||
begin
|
||||
//DebugLn(['EmulateKeysEatenByGtk ']);
|
||||
FillChar(Msg, SizeOf(Msg), 0);
|
||||
Msg.CharCode := VKey;
|
||||
@ -2203,7 +2203,7 @@ begin
|
||||
{$ENDIF}
|
||||
|
||||
// handle every key event only once
|
||||
if HandledByLCL then Exit;
|
||||
if HandledByLCL then exit;
|
||||
|
||||
TargetWidget := AWidget;
|
||||
TargetObj := AData;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user