paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 16:19:36 +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 PositionBoundSplitter;
public
constructor Create(AOwner: TComponent); override;
constructor CreateNew(AOwner: TComponent; Num: Integer = 0); override;
destructor Destroy; override;
function CloseQuery: boolean; override;
function CloseSite: boolean; virtual;
@ -2525,7 +2525,7 @@ var
begin
Result:=TAnchorDockHostSite(SiteClass.NewInstance);
Result.DisableAutoSizing;
Result.Create(Self);
Result.CreateNew(Self,1);
i:=0;
repeat
inc(i);
@ -4284,9 +4284,9 @@ begin
end;
end;
constructor TAnchorDockHostSite.Create(AOwner: TComponent);
constructor TAnchorDockHostSite.CreateNew(AOwner: TComponent; Num: Integer);
begin
inherited Create(AOwner);
inherited CreateNew(AOwner,Num);
Visible:=false;
FHeaderSide:=akTop;
FHeader:=DockMaster.HeaderClass.Create(Self);