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

started creating TLazDockPage helper controls

Browse Source 
git-svn-id: trunk@7364 -
This commit is contained in:
mattias 2005-07-17 02:24:41 +00:00
parent 5f02e9ea77
commit c7181d4a84
4 changed files with 170 additions and 83 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/identcompletiontool.pas
View File

@ -325,7 +325,7 @@ begin
Result:=CompareIdentifiers(PChar(HistItem.Identifier),IdentItem.Identifier);
if Result<>0 then exit;
debugln('CompareIdentItemWithHistListItem ',HistItem.Identifier,'=',GetIdentifier(IdentItem.Identifier));
//debugln('CompareIdentItemWithHistListItem ',HistItem.Identifier,'=',GetIdentifier(IdentItem.Identifier));
Result:=SysUtils.CompareText(HistItem.ParamList,IdentItem.ParamList);
end;

4
lcl/controls.pp
View File

@ -1735,6 +1735,7 @@ type
procedure AddAsLastChild(NewChildZone: TDockZone);
procedure ReplaceChild(OldChild, NewChild: TDockZone);
function GetLastChild: TDockZone;
function GetIndex: Integer;
public
property ChildControl: TControl read FChildControl;
property ChildCount: Integer read FChildCount;
@ -2952,6 +2953,9 @@ end.
{ =============================================================================
$Log$
Revision 1.313 2005/07/17 02:24:41 mattias
started creating TLazDockPage helper controls
Revision 1.312 2005/07/17 01:05:04 mattias
started basic docking anchoring and made Contributors.txt ASCII to show everywhere

12
lcl/include/dockzone.inc
View File

@ -248,5 +248,17 @@ begin
while (Result.FNextSibling<>nil) do Result:=Result.FNextSibling;
end;
function TDockZone.GetIndex: Integer;
var
Zone: TDockZone;
begin
Result:=0;
Zone:=PrevSibling;
while Zone<>nil do begin
inc(Result);
Zone:=Zone.PrevSibling;
end;
end;
// included by control.pp

235
lcl/ldocktree.pas
View File

@ -35,18 +35,22 @@ uses
type
TLazDockPages = class;
TLazDockPage = class;
TLazDockSplitter = class;
{ TLazDockZone }
TLazDockZone = class(TDockZone)
private
FPage: TLazDockPage;
FPages: TLazDockPages;
FSplitter: TLazDockSplitter;
public
destructor Destroy; override;
function GetCaption: string;
property Splitter: TLazDockSplitter read FSplitter write FSplitter;
property Pages: TLazDockPages read FPages write FPages;
property Page: TLazDockPage read FPage write FPage;
end;
{ TLazDockTree }
@ -57,6 +61,8 @@ type
protected
procedure UndockControlForDocking(AControl: TControl);
procedure BreakAnchors(Zone: TDockZone);
procedure CreateDockLayoutHelperControls(Zone: TLazDockZone);
procedure AnchorDockLayout(Zone: TLazDockZone);
public
constructor Create(TheDockSite: TWinControl); override;
destructor Destroy; override;
@ -66,7 +72,8 @@ type
procedure FindBorderControls(Zone: TLazDockZone; Side: TAnchorKind;
var List: TFPList);
function FindBorderControl(Zone: TLazDockZone; Side: TAnchorKind): TControl;
function GetAnchorControl(Zone: TDockZone; Side: TAnchorKind): TControl;
function GetAnchorControl(Zone: TLazDockZone; Side: TAnchorKind;
OutSide: boolean): TControl;
public
property AutoFreeDockSite: boolean read FAutoFreeDockSite write FAutoFreeDockSite;
end;
@ -189,6 +196,107 @@ begin
BreakAnchors(Zone.NextSibling);
end;
procedure TLazDockTree.CreateDockLayoutHelperControls(Zone: TLazDockZone);
var
ParentPages: TLazDockPages;
ZoneIndex: LongInt;
begin
if Zone=nil then exit;
// create needed TLazDockSplitter
if (Zone.Parent<>nil)
and (Zone.Parent.Orientation in [doVertical,doHorizontal])
and (Zone.PrevSibling<>nil) then begin
// a zone with a side sibling -> needs a TLazDockSplitter
if Zone.Splitter=nil then begin
Zone.Splitter:=TLazDockSplitter.Create(nil);
end;
end else if Zone.Splitter<>nil then begin
// zone no longer needs the splitter
Zone.Splitter.Free;
Zone.Splitter:=nil;
end;
// create needed TLazDockPages
if (Zone.Orientation=doPages) then begin
// a zone of pages -> needs a TLazDockPages
if Zone.FirstChild=nil then
RaiseGDBException('TLazDockTree.CreateDockLayoutHelperControls Inconsistency: doPages without childs');
if (Zone.Pages=nil) then begin
Zone.Pages:=TLazDockPages.Create(nil);
end;
end else if Zone.Pages<>nil then begin
// zone no longer needs the pages
Zone.Pages.Free;
Zone.Pages:=nil;
end;
// create needed TLazDockPage
if (Zone.Parent<>nil)
and (Zone.Parent.Orientation=doPages) then begin
// a zone as page -> needs a TLazDockPage
if (Zone.Page=nil) then begin
ParentPages:=TLazDockZone(Zone.Parent).Pages;
ZoneIndex:=Zone.GetIndex;
ParentPages.Pages.Insert(ZoneIndex,Zone.GetCaption);
Zone.Page:=ParentPages.Page[ZoneIndex];
end;
end else if Zone.Page<>nil then begin
// zone no longer needs the page
Zone.Page.Free;
Zone.Page:=nil;
end;
// create controls for childs and siblings
CreateDockLayoutHelperControls(Zone.FirstChild as TLazDockZone);
CreateDockLayoutHelperControls(Zone.NextSibling as TLazDockZone);
end;
procedure TLazDockTree.AnchorDockLayout(Zone: TLazDockZone);
// setup all anchors between all docked controls and helper controls
var
AnchorControls: array[TAnchorKind] of TControl;
a: TAnchorKind;
SplitterSide: TAnchorKind;
CurControl: TControl;
begin
if Zone=nil then exit;
// get outside anchor controls
for a:=Low(TAnchorKind) to High(TAnchorKind) do
AnchorControls[a]:=GetAnchorControl(Zone,a,true);
// anchor splitter
if (Zone.Splitter<>nil) then begin
if Zone.Parent.Orientation=doHorizontal then
SplitterSide:=akLeft
else
SplitterSide:=akTop;
// IMPORTANT: first set the AnchorSide, then set the Anchors
for a:=Low(TAnchorKind) to High(TAnchorKind) do
if a in Zone.Splitter.Anchors then
Zone.Splitter.AnchorSide[a].Control:=AnchorControls[a];
Zone.Splitter.Anchors:=[akLeft,akRight,akTop,akBottom]-[SplitterSide];
AnchorControls[SplitterSide]:=Zone.Splitter;
end;
// anchor pages
if Zone.Pages<>nil then
CurControl:=Zone.Pages
else
CurControl:=Zone.ChildControl;
if CurControl<>nil then begin
// IMPORTANT: first set the AnchorSide, then set the Anchors
for a:=Low(TAnchorKind) to High(TAnchorKind) do
CurControl.AnchorSide[a].Control:=AnchorControls[a];
CurControl.Anchors:=[akLeft,akRight,akTop,akBottom];
end;
// anchor controls for childs and siblings
AnchorDockLayout(Zone.FirstChild as TLazDockZone);
AnchorDockLayout(Zone.NextSibling as TLazDockZone);
end;
constructor TLazDockTree.Create(TheDockSite: TWinControl);
begin
SetDockZoneClass(TLazDockZone);
@ -373,82 +481,10 @@ begin
end;
procedure TLazDockTree.BuildDockLayout(Zone: TLazDockZone);
var
ASide: TAnchorKind;
FixedSide1: TAnchorKind;
FixedSide2: TAnchorKind;
CurControl: TControl;
CurSplitter: TLazDockSplitter;
SideAnchorControl: TControl;
FixedSide1AnchorControl: TControl;
FixedSide2AnchorControl: TControl;
begin
// reset anchors
BreakAnchors(RootZone);
// create needed TLazDockPages
if (Zone.Orientation=doPages) then begin
// a zone of pages -> needs a TLazDockPages
if (Zone.Pages=nil) then begin
Zone.Pages:=TLazDockPages.Create(nil);
end;
end else if Zone.Pages<>nil then begin
// zone no longer needs the pages
Zone.Pages.Free;
Zone.Pages:=nil;
end;
// create needed TLazDockPage
RaiseGDBException('TODO create needed TLazDockPage');
// create needed TLazDockSplitter
if (Zone.Parent<>nil)
and (Zone.Parent.Orientation in [doVertical,doHorizontal])
and (Zone.PrevSibling<>nil) then begin
// a zone with a side sibling -> needs a TLazDockSplitter
if Zone.Splitter=nil then begin
Zone.Splitter:=TLazDockSplitter.Create(nil);
end;
CurSplitter:=Zone.Splitter;
if Zone.Parent.Orientation=doVertical then begin
ASide:=akLeft;
FixedSide1:=akTop;
FixedSide2:=akBottom;
end else begin
ASide:=akTop;
FixedSide1:=akLeft;
FixedSide2:=akRight;
end;
// anchor splitter
CurSplitter.Align:=alNone;
CurSplitter.ResizeAnchor:=ASide;
SideAnchorControl:=GetAnchorControl(Zone,ASide);
FixedSide1AnchorControl:=GetAnchorControl(Zone,FixedSide1);
FixedSide2AnchorControl:=GetAnchorControl(Zone,FixedSide2);
CurSplitter.Anchors:=[ASide,FixedSide1,FixedSide2];
CurSplitter.AnchorSide[ASide].Control:=SideAnchorControl;
CurSplitter.AnchorSide[FixedSide1].Control:=FixedSide1AnchorControl;
CurSplitter.AnchorSide[FixedSide2].Control:=FixedSide2AnchorControl;
// anchor control
CurControl:=Zone.ChildControl;
if CurControl<>nil then begin
CurControl.Anchors:=[akLeft,akTop,akRight,akBottom];
CurControl.AnchorSide[ASide].Control:=CurSplitter;
CurControl.AnchorSide[FixedSide1].Control:=FixedSide1AnchorControl;
CurControl.AnchorSide[FixedSide2].Control:=FixedSide2AnchorControl;
CurControl.AnchorSide[OppositeAnchor[ASide]].Control:=
GetAnchorControl(Zone,OppositeAnchor[ASide]);
end;
RaiseGDBException('TODO');
end else if Zone.Splitter<>nil then begin
// zone no longer needs the splitter
Zone.Splitter.Free;
Zone.Splitter:=nil;
end;
RaiseGDBException('TODO');
BreakAnchors(Zone);
CreateDockLayoutHelperControls(Zone);
AnchorDockLayout(Zone);
end;
procedure TLazDockTree.FindBorderControls(Zone: TLazDockZone; Side: TAnchorKind;
@ -515,12 +551,38 @@ begin
List.Free;
end;
function TLazDockTree.GetAnchorControl(Zone: TDockZone; Side: TAnchorKind
): TControl;
function TLazDockTree.GetAnchorControl(Zone: TLazDockZone; Side: TAnchorKind;
OutSide: boolean): TControl;
// find a control to anchor the Zone's Side
begin
if Zone=nil then begin
Result:=DockSite;
exit;
end;
if not OutSide then begin
// also check the Splitter and the Page
if (Side=akLeft)
and (Zone.Parent<>nil) and (Zone.Parent.Orientation=doHorizontal)
and (Zone.Splitter<>nil) then begin
Result:=Zone.Splitter;
exit;
end;
if (Side=akTop)
and (Zone.Parent<>nil) and (Zone.Parent.Orientation=doVertical)
and (Zone.Splitter<>nil) then begin
Result:=Zone.Splitter;
exit;
end;
if (Zone.Page<>nil) then begin
Result:=Zone.Page;
exit;
end;
end;
// search the neigbour zones:
Result:=DockSite;
if (Zone=nil) or (Zone.Parent=nil) then exit;
if (Zone.Parent=nil) then exit;
case Zone.Parent.Orientation of
doHorizontal:
if (Side=akLeft) and (Zone.PrevSibling<>nil) then
@ -528,16 +590,16 @@ begin
else if (Side=akRight) and (Zone.NextSibling<>nil) then
Result:=FindBorderControl(Zone.NextSibling as TLazDockZone,akLeft)
else
Result:=GetAnchorControl(Zone.Parent,Side);
Result:=GetAnchorControl(Zone.Parent as TLazDockZone,Side,false);
doVertical:
if (Side=akTop) and (Zone.PrevSibling<>nil) then
Result:=FindBorderControl(Zone.PrevSibling as TLazDockZone,akBottom)
else if (Side=akBottom) and (Zone.NextSibling<>nil) then
Result:=FindBorderControl(Zone.NextSibling as TLazDockZone,akTop)
else
Result:=GetAnchorControl(Zone.Parent,Side);
Result:=GetAnchorControl(Zone.Parent as TLazDockZone,Side,false);
doPages:
Result:=GetAnchorControl(Zone.Parent,Side);
Result:=GetAnchorControl(Zone.Parent as TLazDockZone,Side,false);
end;
end;
@ -547,8 +609,17 @@ destructor TLazDockZone.Destroy;
begin
inherited Destroy;
FreeAndNil(FSplitter);
FreeAndNil(FPage);
FreeAndNil(FPages);
end;
function TLazDockZone.GetCaption: string;
begin
if ChildControl<>nil then
Result:=ChildControl.Caption
else
Result:=IntToStr(GetIndex);
end;
end.