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

cocoa: replacing instance call with class method call when scrollbar frames. #32966

Browse Source 
git-svn-id: trunk@57003 -
This commit is contained in:
dmitry 2018-01-07 15:51:43 +00:00
parent 57c696942e
commit 789abf9d79
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/interfaces/cocoa/cocoaprivate.pp
View File

@ -1066,6 +1066,8 @@ var
f : NSRect;
hr : NSRect;
vr : NSRect;
hw : CGFLoat;
vw : CGFLoat;
begin
if not Assigned(parent) or not Assigned(doc) then Exit;
@ -1074,26 +1076,28 @@ begin
f.origin.y := 0;
hr := f;
vr := f;
vr.size.width:=vrt.scrollerWidth;
hw := NSScroller.scrollerWidth;
vw := NSScroller.scrollerWidth;
vr.size.width:=vw;
vr.origin.x:=f.size.width-vr.size.width;
hr.size.height:=hrz.scrollerWidth;
hr.size.height:=hw;
if Assigned(hrz) and (not hrz.isHidden) then
begin
f.size.height := f.size.height-hrz.scrollerWidth;
f.origin.y := hrz.scrollerWidth;
f.size.height := f.size.height - hw;
f.origin.y := hw;
vr.origin.y := hrz.scrollerWidth;
vr.size.height := vr.size.height - hrz.scrollerWidth;
vr.origin.y := hw;
vr.size.height := vr.size.height - hw;
if Assigned(vrt) and (not vrt.isHidden) then
hr.size.width:=hr.size.width-vrt.scrollerWidth;
hr.size.width:=hr.size.width-vw;
hrz.setFrame(hr);
end;
if Assigned(vrt) and (not vrt.isHidden) then
begin
f.size.width := f.size.width-vrt.scrollerWidth;
f.size.width := f.size.width-vw;
vrt.setFrame(vr);
end;