paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 03:50:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

anchordocking: restore: fixed checking if splitter already used

Browse Source 
git-svn-id: trunk@46502 -
This commit is contained in:
mattias 2014-10-09 21:07:59 +00:00
parent 37e4f0e560
commit cc8d68aac1
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/anchordocking/anchordocking.pas
View File

@ -1599,14 +1599,15 @@ procedure TAnchorDockMaster.MapTreeToControls(Tree: TAnchorDockLayoutTree);
// check each side
for Side:=Low(TAnchorKind) to high(TAnchorKind) do begin
if Node.Anchors[Side]='' then continue;
Splitter:=Site.AnchorSide[Side].Control;
if (not (Splitter is TAnchorDockSplitter))
or (Splitter.Parent<>Site.Parent) then continue;
SplitterNode:=Node.Parent.FindChildNode(Node.Anchors[Side],false);
if (SplitterNode=nil) then continue;
// this Side of node is anchored to a splitter node
if fTreeNameToDocker[SplitterNode.Name]<>nil then continue;
// the SplitterNode is not yet mapped
Splitter:=Site.AnchorSide[Side].Control;
if (not (Splitter is TAnchorDockSplitter))
or (Splitter.Parent<>Site.Parent) then continue;
if fTreeNameToDocker.ControlToName(Splitter)<>'' then continue;
// there is an unmapped splitter anchored to the Site
// => map the splitter to the splitter node
// Note: Splitter.Name can be different from SplitterNode.Name !