paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 20:50:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa: ensure that in extreme cases, the Scroller can remain Horizontal/Vertical unchanged

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

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

@ -1680,11 +1680,17 @@ begin
vertScrollerFrame.origin.x := docFrame.size.width - vertScrollerFrame.size.width;
vertScrollerFrame.origin.y := docFrame.origin.y;
if Assigned(horzScroller) then
if Assigned(horzScroller) then begin
if horzScrollerFrame.size.width <= horzScrollerFrame.size.height then
horzScrollerFrame.size.width:= horzScrollerFrame.size.height + 1;
horzScroller.setFrame(horzScrollerFrame);
end;
if Assigned(vertScroller) then
if Assigned(vertScroller) then begin
if vertScrollerFrame.size.height <= vertScrollerFrame.size.width then
vertScrollerFrame.size.height:= vertScrollerFrame.size.width + 1;
vertScroller.setFrame(vertScrollerFrame);
end;
if not NSEqualRects(doc.frame, docFrame) then
begin