lazarus/lcl/ldocktree.pas

42   TLazDockZone = class(TDockZone)  class
78     procedure AnchorDockLayout(Zone: TLazDockZone);
79     procedure CreateDockLayoutHelperControls(Zone: TLazDockZone);
80     procedure ResetSizes(Zone: TLazDockZone);
93     procedure BuildDockLayout(Zone: TLazDockZone);
94     procedure FindBorderControls(Zone: TLazDockZone; Side: TAnchorKind;
96     function FindBorderControl(Zone: TLazDockZone; Side: TAnchorKind): TControl;  in FindBorderControl()
97     function GetAnchorControl(Zone: TLazDockZone; Side: TAnchorKind;  in GetAnchorControl()
857 procedure TLazDockTree.CreateDockLayoutHelperControls(Zone: TLazDockZone);
909       ParentPages := TLazDockZone(Zone.Parent).Pages;
924   CreateDockLayoutHelperControls(Zone.FirstChild as TLazDockZone);
925   CreateDockLayoutHelperControls(Zone.NextSibling as TLazDockZone);
928 procedure TLazDockTree.ResetSizes(Zone: TLazDockZone);
931   Child: TLazDockZone;
942     Child := Zone.FirstChild as TLazDockZone;
962       Child := Child.NextSibling as TLazDockZone;
978 procedure TLazDockTree.AnchorDockLayout(Zone: TLazDockZone);
1068   AnchorDockLayout(Zone.FirstChild as TLazDockZone);
1069   AnchorDockLayout(Zone.NextSibling as TLazDockZone);
1076   SetDockZoneClass(TLazDockZone);
1157   NewZone: TLazDockZone;
1180   NewZone := DockZoneClass.Create(Self,AControl) as TLazDockZone;
1267     BuildDockLayout(NewZone.Parent as TLazDockZone)
1269     BuildDockLayout(RootZone as TLazDockZone);
1274   RemoveZone, ParentZone: TLazDockZone;
1276   RemoveZone := RootZone.FindZone(AControl) as TLazDockZone;
1290     ParentZone := RemoveZone.Parent as TLazDockZone;
1306     BuildDockLayout(RemoveZone.Parent as TLazDockZone)
1308     BuildDockLayout(RootZone as TLazDockZone);
1311 procedure TLazDockTree.BuildDockLayout(Zone: TLazDockZone);
1329 procedure TLazDockTree.FindBorderControls(Zone: TLazDockZone; Side: TAnchorKind;
1371       FindBorderControls(Zone.FirstChild as TLazDockZone,Side,List)
1373       FindBorderControls(Zone.GetLastChild as TLazDockZone,Side,List);
1377 function TLazDockTree.FindBorderControl(Zone: TLazDockZone; Side: TAnchorKind  in FindBorderControl()
1393 function TLazDockTree.GetAnchorControl(Zone: TLazDockZone; Side: TAnchorKind;  in GetAnchorControl()
1433         Result:=FindBorderControl(Zone.PrevSibling as TLazDockZone,akBottom)
1435         Result:=FindBorderControl(Zone.NextSibling as TLazDockZone,akTop)
1437         Result:=GetAnchorControl(Zone.Parent as TLazDockZone,Side,false);
1440         Result:=FindBorderControl(Zone.PrevSibling as TLazDockZone,akRight)
1442         Result:=FindBorderControl(Zone.NextSibling as TLazDockZone,akLeft)
1444         Result:=GetAnchorControl(Zone.Parent as TLazDockZone,Side,false);
1446       Result:=GetAnchorControl(Zone.Parent as TLazDockZone,Side,false);
1559   AZone: TLazDockZone;
1593           AZone := RootZone.FindZone(Sender) as TLazDockZone;
1595             BuildDockLayout(TLazDockZone(AZone.Parent));
1668       dbgs(TLazDockZone(Zone).Splitter)]));
1669     if TLazDockZone(Zone).Splitter <> nil then
1670       DumpAnchors('<br>Splitter anchors: ', TLazDockZone(Zone).Splitter);
1712 destructor TLazDockZone.Destroy;
1718 procedure TLazDockZone.FreeSubComponents;
1725 function TLazDockZone.GetCaption: string;  in GetCaption()
1733 function TLazDockZone.GetParentControl: TWinControl;  in GetParentControl()
1742       Exit((Zone as TLazDockZone).Pages);