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

Gtk3: cleanup TGtk3ScrollingWinControl constructor.

Browse Source
This commit is contained in:
zeljan1 2025-03-27 19:56:01 +01:00
parent 261e8f74d0
commit 59efce7694
1 changed files with 1 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9106,37 +9106,8 @@ function TGtk3ScrollingWinControl.CreateWidget(const Params: TCreateParams
): PGtkWidget;
begin
FHasPaint := True;
//FWidgetType := [wtWidget, wtContainer, wtScrollingWin, wtScrollingWinControl];
Result := inherited CreateWidget(Params);
include(FWidgetType, wtScrollingWinControl);
exclude(FWidgetType, wtCustomControl);
exit;
// PGtkScrolledWindow(TGtkScrolledWindow.new(nil, nil));
FCentralWidget := LCLGtkFixedNew;
FCentralWidget^.set_hexpand(True);
FCentralWidget^.set_vexpand(True);
FCentralWidget^.set_has_window(True);
FCentralWidget^.show;
PGtkScrolledWindow(Result)^.add_with_viewport(FCentralWidget);
PGtkViewport(PGtkScrolledWindow(Result)^.get_child)^.set_shadow_type(BorderStyleShadowMap[bsNone]);
PGtkScrolledWindow(Result)^.set_shadow_type(BorderStyleShadowMap[TScrollingWinControl(LCLObject).BorderStyle]);
PGtkScrolledWindow(Result)^.get_vscrollbar^.set_can_focus(False);
PGtkScrolledWindow(Result)^.get_hscrollbar^.set_can_focus(False);
PGtkScrolledWindow(Result)^.set_policy(GTK_POLICY_NEVER, GTK_POLICY_NEVER);
// this is very important
PGtkScrolledWindow(Result)^.set_can_focus(False);
FCentralWidget^.set_can_focus(True);
g_signal_connect_data(FCentralWidget,'size-allocate',TGCallback(@ScrollingWinControlFixedSizeAllocate), 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);
Include(FWidgetType, wtScrollingWinControl);
end;
{ TGtk3Window }