mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 23:39:40 +02:00
Gtk3: do not send arrow keys from combobox otherwise gtk changes active control.
This commit is contained in:
parent
e8ec6ae160
commit
06b6d79d37
@ -1926,7 +1926,6 @@ begin
|
|||||||
gtk_grab_add(GetContainerWidget);
|
gtk_grab_add(GetContainerWidget);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
function TGtk3Widget.GtkEventKey(Sender: PGtkWidget; Event: PGdkEvent; AKeyPress: Boolean): Boolean;
|
function TGtk3Widget.GtkEventKey(Sender: PGtkWidget; Event: PGdkEvent; AKeyPress: Boolean): Boolean;
|
||||||
cdecl;
|
cdecl;
|
||||||
const
|
const
|
||||||
@ -2061,7 +2060,7 @@ begin
|
|||||||
|
|
||||||
{$warning workaround for GtkTreeView key bindings.Must find out what LCL does with
|
{$warning workaround for GtkTreeView key bindings.Must find out what LCL does with
|
||||||
this keys.}
|
this keys.}
|
||||||
if {IsArrowKey and} ([wtListBox,wtListView,wtEntry,wtMemo] * WidgetType <> []) then
|
if {IsArrowKey and} ([wtListBox,wtListView,wtEntry,wtMemo,wtComboBox] * WidgetType <> []) then
|
||||||
// let gtk3 select cell for now. Must check what LCL does with arrow keys
|
// let gtk3 select cell for now. Must check what LCL does with arrow keys
|
||||||
// since gtk3 becomes crazy after delivery of this message
|
// since gtk3 becomes crazy after delivery of this message
|
||||||
else
|
else
|
||||||
|
Loading…
Reference in New Issue
Block a user