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

anchordocking: using CreateNew

Browse Source 
git-svn-id: trunk@29269 -
This commit is contained in:
mattias 2011-01-31 10:20:35 +00:00
parent 430382d436
commit 72f67335e7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
examples/anchordocking/anchordocking.pas
View File

@ -285,7 +285,7 @@ type
procedure CreateBoundSplitter; procedure CreateBoundSplitter;
procedure PositionBoundSplitter; procedure PositionBoundSplitter;
public public
constructor Create(AOwner: TComponent); override; constructor CreateNew(AOwner: TComponent; Num: Integer = 0); override;
destructor Destroy; override; destructor Destroy; override;
function CloseQuery: boolean; override; function CloseQuery: boolean; override;
function CloseSite: boolean; virtual; function CloseSite: boolean; virtual;
@ -2525,7 +2525,7 @@ var
begin begin
Result:=TAnchorDockHostSite(SiteClass.NewInstance); Result:=TAnchorDockHostSite(SiteClass.NewInstance);
Result.DisableAutoSizing; Result.DisableAutoSizing;
Result.Create(Self); Result.CreateNew(Self,1);
i:=0; i:=0;
repeat repeat
inc(i); inc(i);
@ -4284,9 +4284,9 @@ begin
end; end;
end; end;
constructor TAnchorDockHostSite.Create(AOwner: TComponent); constructor TAnchorDockHostSite.CreateNew(AOwner: TComponent; Num: Integer);
begin begin
inherited Create(AOwner); inherited CreateNew(AOwner,Num);
Visible:=false; Visible:=false;
FHeaderSide:=akTop; FHeaderSide:=akTop;
FHeader:=DockMaster.HeaderClass.Create(Self); FHeader:=DockMaster.HeaderClass.Create(Self);