paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 21:39:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TControlScrollBar: ignore akBottom/akRight anchored controls

Browse Source 
git-svn-id: trunk@18101 -
This commit is contained in:
mattias 2009-01-04 11:10:56 +00:00
parent 3df9f2143a
commit 0a9b9940a9
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/include/controlscrollbar.inc
View File

@ -245,13 +245,15 @@ procedure TControlScrollBar.AutoCalcRange;
c: TControl;
begin
TmpRange := 0;
For I := 0 to FControl.ControlCount - 1 do begin
for I := 0 to FControl.ControlCount - 1 do
begin
c:=FControl.Controls[I];
if not c.IsControlVisible then continue;
if c.Align=alCustom then continue;
if akBottom in c.Anchors then continue;
if (c.Align<>alNone) and (akBottom in AnchorAlign[c.Align]) then continue;
if (FControl.ChildSizing.Layout<>cclNone) and IsNonAligned(c) then continue;
if (akTop in c.Anchors) and (c.AnchorSide[akTop].Control <> nil) then continue;
TmpRange := Max(TmpRange, c.Top + c.Height);
end;
Range := TmpRange;
@ -264,14 +266,15 @@ procedure TControlScrollBar.AutoCalcRange;
c: TControl;
begin
TmpRange := 0;
for i := 0 to FControl.ControlCount - 1 do begin
for i := 0 to FControl.ControlCount - 1 do
begin
c:=FControl.Controls[I];
if not c.IsControlVisible then continue;
if c.Align=alCustom then continue;
if akRight in c.Anchors then continue;
if (c.Align<>alNone) and (akRight in AnchorAlign[c.Align]) then continue;
if (FControl.ChildSizing.Layout<>cclNone)
and IsNonAligned(c) then continue;
if (FControl.ChildSizing.Layout<>cclNone) and IsNonAligned(c) then continue;
if (akLeft in c.Anchors) and (c.AnchorSide[akLeft].Control <> nil) then continue;
TmpRange := Max(TmpRange, c.Left + c.Width);
end;
Range := TmpRange;