paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 18:39:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: anchordocking: removed tlazdockform.fdockzone

Browse Source 
git-svn-id: trunk@14028 -
This commit is contained in:
mattias 2008-02-08 13:35:01 +00:00
parent fac3620d0c
commit cdbaf61026
1 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/ldocktree.pas
View File

@ -100,20 +100,10 @@ type
The default DockSite for a TLazDockTree The default DockSite for a TLazDockTree
Note: AnchorDocking does not use DockZone. Note: AnchorDocking does not use DockZone.
if DockZone<>nil then
If DockZone is a leaf (DockZone.ChildCount=0) then
Only child control is DockZone.ChildControl
else
if DockZone.Orientation in [doHorizontal,doVertical] then
Child controls are TLazDockForm and TSplitter
else if DockZone.Orientation=doPages then
Child control is a TLazDockPages
} }
TLazDockForm = class(TCustomForm) TLazDockForm = class(TCustomForm)
private private
FDockZone: TDockZone;
FMainControl: TControl; FMainControl: TControl;
FPageControl: TLazDockPages; FPageControl: TLazDockPages;
procedure SetMainControl(const AValue: TControl); procedure SetMainControl(const AValue: TControl);
@ -130,7 +120,6 @@ type
function ControlHasTitle(Control: TControl): boolean; function ControlHasTitle(Control: TControl): boolean;
function GetTitleRect(Control: TControl): TRect; function GetTitleRect(Control: TControl): TRect;
function GetTitleOrientation(Control: TControl): TDockOrientation; function GetTitleOrientation(Control: TControl): TDockOrientation;
property DockZone: TDockZone read FDockZone;
property PageControl: TLazDockPages read FPageControl; property PageControl: TLazDockPages read FPageControl;
property MainControl: TControl read FMainControl write SetMainControl; property MainControl: TControl read FMainControl write SetMainControl;
end; end;