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

anchordocking: check if layout has exactly one control in each splitter corner

Browse Source 
git-svn-id: trunk@26112 -
This commit is contained in:
mattias 2010-06-14 13:01:10 +00:00
parent c5179d4b4c
commit b86bdbe6bf
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
examples/anchordocking/anchordockstorage.pas
View File

@ -1237,15 +1237,25 @@ begin
for Side:=low(TAnchorKind) to high(TAnchorKind) do
CheckCornerIsUnique(Side,'',ClockwiseAnchor[Side],'');
if (Parent<>nil) and (NodeType=adltnSplitterHorizontal) then begin
// check if
end;
// check grandchild
for i:=0 to Count-1 do begin
Child:=Nodes[i];
Child.CheckConsistency;
if (Child.NodeType=adltnSplitterHorizontal) then begin
// check if splitter corners have exactly one sibling
CheckCornerIsUnique(akLeft,Child.Anchors[akLeft],akTop,Child.Name);
CheckCornerIsUnique(akLeft,Child.Anchors[akLeft],akBottom,Child.Name);
CheckCornerIsUnique(akRight,Child.Anchors[akRight],akTop,Child.Name);
CheckCornerIsUnique(akRight,Child.Anchors[akRight],akBottom,Child.Name);
end;
if (Child.NodeType=adltnSplitterVertical) then begin
// check if splitter corners have exactly one sibling
CheckCornerIsUnique(akTop,Child.Anchors[akTop],akLeft,Child.Name);
CheckCornerIsUnique(akTop,Child.Anchors[akTop],akRight,Child.Name);
CheckCornerIsUnique(akBottom,Child.Anchors[akBottom],akLeft,Child.Name);
CheckCornerIsUnique(akBottom,Child.Anchors[akBottom],akRight,Child.Name);
end;
end;
end;