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

Gtk3: reduce asserts from GtkScrollbar.

Browse Source
This commit is contained in:
zeljan1 2025-02-26 16:58:08 +01:00
parent c22d81837f
commit ec97ee173f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk3/gtk3winapi.inc
View File

@ -4064,7 +4064,8 @@ var
begin
if AHorzPolicy <> POLICY[IsScrollbarVis] then
ScrollWin^.set_policy(POLICY[IsScrollbarVis], AVertPolicy);
if Gtk3WidgetSet.OverlayScrolling and ScrollBar^.get_visible and
if Gtk3WidgetSet.OverlayScrolling and Gtk3IsWidget(Scrollbar) and
ScrollBar^.get_visible and
Gtk3IsGdkWindow(ScrollBar^.window) then
begin
ScrollBar^.set_can_focus(False);
@ -4077,7 +4078,8 @@ var
begin
if AVertPolicy <> POLICY[IsScrollbarVis] then
ScrollWin^.set_policy(AHorzPolicy, POLICY[IsScrollbarVis]);
if Gtk3WidgetSet.OverlayScrolling and ScrollBar^.get_visible and
if Gtk3WidgetSet.OverlayScrolling and Gtk3IsWidget(Scrollbar) and
ScrollBar^.get_visible and
Gtk3IsGdkWindow(ScrollBar^.window) then
begin
ScrollBar^.set_can_focus(False);