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

Cocoa: fix the visibility of Legacy Style Scroller

Browse Source
This commit is contained in:
rich2014 2024-07-05 21:14:17 +08:00
parent 551af85901
commit d5e286fd61
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/cocoa/cocoascrollers.pas
View File

@ -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 );