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

Cocoa: fix a few issues in Scroller

Browse Source
This commit is contained in:
rich2014 2024-07-01 00:57:14 +08:00
parent f57d734eba
commit 570352971d
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -806,6 +806,7 @@ begin
fhscroll := allocScroller( self, r, avisible);
fhscroll.setAutoresizingMask(NSViewWidthSizable);
Result := fhscroll;
_manager.updateLayout;
end;
end;
@ -829,6 +830,7 @@ begin
else
fvscroll.setAutoresizingMask(NSViewHeightSizable or NSViewMinXMargin);
Result := fvscroll;
_manager.updateLayout;
end;
end;
@ -1107,6 +1109,8 @@ procedure TCocoaScrollBar.setDoubleValue(newValue: double);
var
proportion: CGFloat;
begin
if newValue < 0 then newValue:= 0;
if newValue > 1 then newValue:= 1;
proportion:= self.knobProportion;
_manager.onKnobValueUpdated( self, newValue, proportion );
inherited;
@ -1116,6 +1120,8 @@ procedure TCocoaScrollBar.setKnobProportion(newValue: CGFloat);
var
position: CGFloat;
begin
if newValue < 0 then newValue:= 0;
if newValue > 1 then newValue:= 1;
position:= self.doubleValue;
_manager.onKnobValueUpdated( self, position, newValue );
inherited;
@ -1723,7 +1729,6 @@ var
begin
effect:= TCocoaScrollBarEffectOverlay(scrollBar.effect);
slotRect:= scroller.rectForPart(NSScrollerKnobSlot);
if scrollBar.IsHorizontal then
slotSize:= slotRect.size.width
@ -1796,7 +1801,7 @@ end;
function TCocoaScrollStyleManagerOverlay.isAvailableScrollBar(scroller: NSScroller
): Boolean;
begin
Result:= Assigned(scroller) and (scroller.knobProportion<1);
Result:= Assigned(scroller) and (0<scroller.knobProportion) and (scroller.knobProportion<1);
end;
procedure TCocoaScrollStyleManagerOverlay.showScrollBar(scroller: NSScroller);