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

Gtk3: connect ScrolledLayoutSizeAllocate, create internal adjustments for TGtk3Window.

Browse Source
This commit is contained in:
zeljan1 2025-03-09 18:17:25 +01:00
parent ccda0b17c4
commit a21db703fd
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9489,6 +9489,14 @@ begin
g_object_set(PGObject(FCentralWidget), 'resize-mode', [GTK_RESIZE_QUEUE, nil]);
gtk_layout_set_size(PGtkLayout(FCentralWidget), 1, 1);
g_signal_connect_data(FCentralWidget,'size-allocate',TGCallback(@ScrolledLayoutSizeAllocate), Self, nil, G_CONNECT_DEFAULT);
with PGtkScrolledWindow(Result)^.get_vadjustment^ do
LCLVAdj := gtk_adjustment_new(value, lower, upper, step_increment, page_increment, page_size);
with PGtkScrolledWindow(Result)^.get_hadjustment^ do
LCLHAdj := gtk_adjustment_new(value, lower, upper, step_increment, page_increment, page_size);
gtk_widget_realize(Result);
if not Assigned(LCLObject.Parent) then