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

Gtk3: hint window should not take focus in any case. ScrolledWindow must be cheated for scrollbar policy since many TCustomControl components does not use scrollbars at all. Edited in gtk3 IDE :)

Browse Source
This commit is contained in:
zeljan1 2025-02-21 18:25:55 +01:00
parent d8cd947b55
commit 8032aa76d3
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8539,13 +8539,14 @@ begin
PGtkScrolledWindow(Result)^.add(FCentralWidget);
PGtkScrolledWindow(Result)^.set_policy(GTK_POLICY_NEVER, GTK_POLICY_NEVER);
PGtkScrolledWindow(Result)^.set_policy(GTK_POLICY_EXTERNAL, GTK_POLICY_EXTERNAL);
Result^.set_can_focus(False);
FCentralWidget^.set_can_focus(True);
FCentralWidget^.set_app_paintable(True);
PGtkScrolledWindow(Result)^.set_shadow_type(BorderStyleShadowMap[TCustomControl(LCLObject).BorderStyle]);
g_object_set(PGObject(FCentralWidget), 'resize-mode', [GTK_RESIZE_QUEUE, nil]);
if not (csDesigning in LCLObject.ComponentState) then
g_object_set(PGObject(FCentralWidget), 'resize-mode', [GTK_RESIZE_QUEUE, nil]);
gtk_layout_set_size(PGtkLayout(FCentralWidget), 1, 1);
end;
@ -9636,9 +9637,11 @@ begin
FCentralWidget^.set_size_request(AForm.Width,AForm.Height+1);
fBox^.pack_start(fCentralWidget, true, true, 0);
FBox^.pack_start(fCentralWidget, true, true, 0);
PGtkWindow(Result)^.set_can_focus(false);
FBox^.set_can_focus(False);
FCentralWidget^.set_can_focus(False);
Result^.Hide; // issue #41412
end;