From fd1bd28085258e473faa4edf3c13db25a7dfcaf2 Mon Sep 17 00:00:00 2001
From: zeljan1 <zeljko@holobit.hr>
Date: Sun, 26 Jan 2025 15:54:26 +0100
Subject: [PATCH] Gtk3: fixed result of TGtk3WidgetSet.ShowScrollBar

---
 lcl/interfaces/gtk3/gtk3winapi.inc | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

diff --git a/lcl/interfaces/gtk3/gtk3winapi.inc b/lcl/interfaces/gtk3/gtk3winapi.inc
index b61012160a..b989154d72 100644
--- a/lcl/interfaces/gtk3/gtk3winapi.inc
+++ b/lcl/interfaces/gtk3/gtk3winapi.inc
@@ -4395,18 +4395,10 @@ begin
   begin
     AWidget.Visible := bShow;
   end else
-  (*
-  if wtWindow in AWidget.WidgetType then
-  begin
-    DebugLn('WARNING: TGtk3WidgetSet.ShowScrollBar cannot get scrollbar from ',dbgsName(AWidget.LCLObject),
-    ' bShow ',dbgs(bShow));
-  end else
-  *)
   if wtScrollingWin in AWidget.WidgetType then
   begin
-    // AScrolledWin :=
     if TGtk3ScrollableWin(Handle).GetScrolledWindow = nil then
-      exit;
+      exit(False);
     if wBar in [SB_BOTH, SB_HORZ] then
     begin
       if bShow then
@@ -4434,7 +4426,7 @@ begin
       TGtk3ScrollableWin(AWidget).VScrollBarPolicy := NewPolicy;
     end;
   end else
-    DebugLn('WARNING: TGtk3WidgetSet.ShowScrollBar cannot get scrollbar from ',dbgsName(AWidget.LCLObject));
+    Result := False;
 end;
 
 function TGtk3WidgetSet.ShowWindow(hWnd: HWND; nCmdShow: Integer): Boolean;