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

LCL: childsizing: fixed using top/left spacing of middle controls on grid, bug #20383

Browse Source 
git-svn-id: trunk@32589 -
This commit is contained in:
mattias 2011-10-01 17:16:24 +00:00
parent cc95515d35
commit eb25db0014
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/wincontrol.inc
View File

@ -1706,6 +1706,7 @@ var
i: Integer;
Child: TAutoSizeBox;
CurLeftTop: Integer;
s: LongInt;
begin
CurLeftTop:=0;
for i:=0 to ChildCount[Orientation]-1 do begin
@ -1714,7 +1715,10 @@ begin
inc(CurLeftTop,Child.BorderLeftTop[Orientation]);
Child.LeftTop[Orientation]:=CurLeftTop;
inc(CurLeftTop,Child.PreferredSize[Orientation]);
inc(CurLeftTop,Child.BorderRightBottom[Orientation]);
s:=Child.BorderRightBottom[Orientation];
if i<ChildCount[Orientation]-1 then
s:=Max(s,Children[Orientation][i+1].BorderLeftTop[Orientation]);
inc(CurLeftTop,s);
end;
end;
@ -1735,6 +1739,7 @@ var
var
i: Integer;
Child: TAutoSizeBox;
s: LongInt;
begin
Result:=0;
for i:=0 to ChildCount[Orientation]-1 do begin
@ -1744,7 +1749,10 @@ var
if Child.PreferredSize[Orientation]<1 then
Child.PreferredSize[Orientation]:=1;
inc(Result,Child.PreferredSize[Orientation]);
inc(Result,Child.BorderRightBottom[Orientation]);
s:=Child.BorderRightBottom[Orientation];
if i<ChildCount[Orientation]-1 then
s:=Max(s,Children[Orientation][i+1].BorderLeftTop[Orientation]);
inc(Result,s);
end;
end;