paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 18:09:23 +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
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)
private
FDockZone: TDockZone;
FMainControl: TControl;
FPageControl: TLazDockPages;
procedure SetMainControl(const AValue: TControl);
@ -130,7 +120,6 @@ type
function ControlHasTitle(Control: TControl): boolean;
function GetTitleRect(Control: TControl): TRect;
function GetTitleOrientation(Control: TControl): TDockOrientation;
property DockZone: TDockZone read FDockZone;
property PageControl: TLazDockPages read FPageControl;
property MainControl: TControl read FMainControl write SetMainControl;
end;