paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 03:48:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa: replace deprecated functions in CocoaScrollers

Browse Source
This commit is contained in:
rich2014 2023-12-10 20:51:03 +08:00
parent 3bfa4b5a16
commit 189a26739f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -436,8 +436,10 @@ begin
f.origin.y := 0;
hr := f;
vr := f;
hw := NSScroller.scrollerWidth;
vw := NSScroller.scrollerWidth;
hw := NSScroller.scrollerWidthForControlSize_scrollerStyle(
hrz.controlSize, hrz.preferredScrollerStyle);
vw := NSScroller.scrollerWidthForControlSize_scrollerStyle(
vrt.controlSize, vrt.preferredScrollerStyle);
vr.size.width:=vw;
vr.origin.x:=f.size.width-vr.size.width;
hr.size.height:=hw;