paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 19:23:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TScrollingWinControl.ScrollInView or TScrollBox.ScrollInView scroll only when ScrollBar is visible, see Issue forum entries.

Browse Source 
git-svn-id: trunk@65085 -
This commit is contained in:
michl 2021-05-04 18:38:05 +00:00
parent cea34fad16
commit 74d996c632
1 changed files with 25 additions and 22 deletions

47
lcl/include/scrollingwincontrol.inc
View File

@ -250,30 +250,33 @@ procedure TScrollingWinControl.ScrollInView(AControl: TControl);
var
LRect: TRect;
LPoint: TPoint;
LHorzVisible, LVertVisible: Boolean;
begin
if AControl = nil then Exit;
if (AControl = nil) or not IsParentOf(AControl) then Exit;
LHorzVisible := HorzScrollBar.IsScrollBarVisible;
LVertVisible := VertScrollBar.IsScrollBarVisible;
if not LHorzVisible and not LVertVisible then Exit;
LRect := Rect(0, 0, AControl.Width, AControl.Height);
LPoint := AControl.ClientToParent(Point(0, 0), Self);
LRect.Left := LPoint.x;
LRect.Top := LPoint.y;
LPoint := AControl.ClientToParent(Point(AControl.Width, AControl.Height), Self);
LRect.Right := LPoint.x;
LRect.Bottom := LPoint.y;
if LRect.Left < 0 then
HorzScrollBar.Position := HorzScrollBar.Position + LRect.Left
else if LRect.Right > ClientWidth then
begin
if LRect.Right - LRect.Left > ClientWidth then
LRect.Right := LRect.Left + ClientWidth;
HorzScrollBar.Position := HorzScrollBar.Position + LRect.Right - ClientWidth;
end;
if LRect.Top < 0 then
VertScrollBar.Position := VertScrollBar.Position + LRect.Top
else if LRect.Bottom > ClientHeight then
begin
if LRect.Bottom - LRect.Top > ClientHeight then
LRect.Bottom := LRect.Top + ClientHeight;
VertScrollBar.Position := VertScrollBar.Position + LRect.Bottom - ClientHeight;
end;
OffsetRect(LRect, LPoint.x, LPoint.y);
if LHorzVisible then
if LRect.Left < 0 then
HorzScrollBar.Position := HorzScrollBar.Position + LRect.Left
else if LRect.Right > ClientWidth then
begin
if LRect.Right - LRect.Left > ClientWidth then
LRect.Right := LRect.Left + ClientWidth;
HorzScrollBar.Position := HorzScrollBar.Position + LRect.Right - ClientWidth;
end;
if LVertVisible then
if LRect.Top < 0 then
VertScrollBar.Position := VertScrollBar.Position + LRect.Top
else if LRect.Bottom > ClientHeight then
begin
if LRect.Bottom - LRect.Top > ClientHeight then
LRect.Bottom := LRect.Top + ClientHeight;
VertScrollBar.Position := VertScrollBar.Position + LRect.Bottom - ClientHeight;
end;
end;
procedure TScrollingWinControl.Loaded;