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

lcl: TToolBar: auto fix anchoring of child controls

Browse Source 
git-svn-id: trunk@24076 -
This commit is contained in:
mattias 2010-03-18 00:23:14 +00:00
parent 62fc1305ad
commit 4f4bb0755f
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/toolbar.inc
View File

@ -609,9 +609,13 @@ begin
for i:=0 to ControlCount-1 do for i:=0 to ControlCount-1 do
begin begin
CurControl := Controls[i]; CurControl := Controls[i];
if CurControl.Align = alNone then if CurControl.Align = alNone then begin
OrderedControls.Add(CurControl) // set to Left,Top anchoring
else CurControl.Anchors:=[akLeft,akTop];
CurControl.AnchorSide[akLeft].Control:=nil;
CurControl.AnchorSide[akTop].Control:=nil;
OrderedControls.Add(CurControl);
end else
AlignedControls.Add(CurControl) AlignedControls.Add(CurControl)
end; end;
// sort OrderedControls // sort OrderedControls