From d5e286fd61704d5163c93caf11c02d14c9f57881 Mon Sep 17 00:00:00 2001
From: rich2014 <rich2014.git@outlook.com>
Date: Fri, 5 Jul 2024 21:14:17 +0800
Subject: [PATCH] Cocoa: fix the visibility of Legacy Style Scroller

---
 lcl/interfaces/cocoa/cocoascrollers.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/cocoa/cocoascrollers.pas b/lcl/interfaces/cocoa/cocoascrollers.pas
index 10c50cc9c3..b84769e2ee 100644
--- a/lcl/interfaces/cocoa/cocoascrollers.pas
+++ b/lcl/interfaces/cocoa/cocoascrollers.pas
@@ -1738,6 +1738,9 @@ begin
     Exit;
   end;
 
+  if scroller.knobProportion = 1 then
+    Exit;
+
   if scroller.isHidden then
   begin
     scroller.setHidden( false );
@@ -1748,7 +1751,8 @@ end;
 function TCocoaScrollStyleManagerLegacy.isAvailableScrollBar(scroller: NSScroller
   ): Boolean;
 begin
-  Result:= Assigned(scroller) and NOT scroller.isHidden;
+  Result:= Assigned(scroller) and NOT scroller.isHidden and
+           (0<scroller.knobProportion) and (scroller.knobProportion<1);;
 end;
 
 procedure TCocoaScrollStyleManagerLegacy.showScrollBar(
@@ -1757,6 +1761,9 @@ begin
   if NOT Assigned(scroller) then
     Exit;
 
+  if scroller.knobProportion = 1 then
+    Exit;
+
   scroller.setHidden( False );
   scroller.setAlphaValue( 1 );
   scroller.setNeedsDisplay_( True );