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

Cocoa: Fix code assumption that target is always TScrollingWinControl

Browse Source
This commit is contained in:
David Jenkins 2024-11-08 11:01:11 +00:00 committed by rich2014
parent 62fddfd5f2
commit 83940629e2
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1086,6 +1086,7 @@ begin
inherited setFrame(aframe); inherited setFrame(aframe);
if lclGetTarget is TScrollingWinControl then begin
lclControl:= TScrollingWinControl(lclGetTarget); lclControl:= TScrollingWinControl(lclGetTarget);
newDocSize:= contentSize; newDocSize:= contentSize;
@ -1098,6 +1099,7 @@ begin
newDocSize.Height:= lclBar.Range; newDocSize.Height:= lclBar.Range;
documentView.setFrameSize(newDocSize); documentView.setFrameSize(newDocSize);
end;
if lclHorzScrollInfo.fMask<>0 then if lclHorzScrollInfo.fMask<>0 then
applyScrollInfo(SB_Horz, lclHorzScrollInfo); applyScrollInfo(SB_Horz, lclHorzScrollInfo);