paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 06:31:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

Gtk3: make tabbing work.

Browse Source
This commit is contained in:
zeljan1 2025-03-27 09:28:31 +01:00
parent 977a39c580
commit 366355efc3
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -70,6 +70,8 @@ type
FPaintData: TPaintData;
FDrawSignal: GULong; // needed by designer
FFont: PPangoFontDescription;
class function MoveTabFocus(aWidget: PGtkWidget;
aDirection: TGtkDirectionType; aData: gPointer): gBoolean; cdecl; static;
class function WidgetEvent(widget: PGtkWidget; event: PGdkEvent; data: GPointer): gboolean; cdecl; static; {main event filter of widget}
strict private
FCentralWidgetRGBA: array [0{GTK_STATE_NORMAL}..4{GTK_STATE_INSENSITIVE}] of TDefaultRGBA;
@ -2140,7 +2142,8 @@ begin
end else
writeln('EVENT: KeyPress Result = False Window ? ', Sender^.window = Self.GetWindow);
{$ENDIF}
Result := (TempWidget = GetFocus) and (Msg.CharCode in FKeysToEat);
Result := gtk_false;
// (TempWidget = GetFocus) and (Msg.CharCode in FKeysToEat);
end;
end;
@ -2664,6 +2667,17 @@ begin
gtk_drag_finish(aContext, Result, false, time);
end;
class function TGtk3Widget.MoveTabFocus(aWidget: PGtkWidget;
aDirection: TGtkDirectionType; aData: gPointer): gBoolean; cdecl;
var
aForm: TCustomForm;
begin
Result := gtk_true; // we are usually toplevel here
aForm := GetParentForm(TGtk3Widget(aData).LCLObject);
if Assigned(aForm.ActiveControl) then
aForm.ActiveControl.PerformTab(aDirection = GTK_DIR_TAB_FORWARD);
end;
procedure TGtk3Widget.InitializeWidget;
var
ARect: TGdkRectangle;
@ -2707,6 +2721,10 @@ begin
g_signal_connect_data(FWidget,'drag_data_received',TGCallback(@DragDataReceived), Self, nil, G_CONNECT_DEFAULT);
g_signal_connect_data(FWidget, 'focus', TGCallback(@MoveTabFocus), Self, nil, G_CONNECT_DEFAULT);
if FWidget <> GetContainerWidget then
g_signal_connect_data(GetContainerWidget, 'focus', TGCallback(@MoveTabFocus), Self, nil, G_CONNECT_DEFAULT);
for i := GTK_STATE_NORMAL to GTK_STATE_INSENSITIVE do
begin
FWidget^.get_style_context^.get_background_color(TGtkStateFlags(1 shl (i - 1)), @ARgba);