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

easydock: using names

Browse Source 
git-svn-id: trunk@25946 -
This commit is contained in:
mattias 2010-06-06 09:04:48 +00:00
parent f23d1268c8
commit 0a9e97d61f
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
examples/dockmanager/design/registereasydockmgr.pas
View File

@ -48,6 +48,7 @@ type
TIDEEasyDockMaster = class(TIDEDockMaster)
function DockMasterRestore(const CtrlName: string; ASite: TWinControl
): TControl;
function DockMasterSave(ACtrl: TControl): string;
private
procedure GetDefaultBounds(AForm: TCustomForm; out Creator: TIDEWindowCreator;
out NewBounds: TRect; out DockSiblingName: string; out DockAlign: TAlign);
@ -88,6 +89,11 @@ begin
debugln(['TIDEEasyDockMaster.DockMasterRestore Result=',DbgSName(Result)]);
end;
function TIDEEasyDockMaster.DockMasterSave(ACtrl: TControl): string;
begin
Result:=ACtrl.Name;
end;
procedure TIDEEasyDockMaster.GetDefaultBounds(AForm: TCustomForm; out
Creator: TIDEWindowCreator; out NewBounds: TRect; out DockSiblingName: string;
out DockAlign: TAlign);
@ -114,6 +120,7 @@ constructor TIDEEasyDockMaster.Create;
begin
IDEEasyDockMaster:=Self;
DockMaster.OnRestore:=@DockMasterRestore;
DockMaster.OnSave:=@DockMasterSave;
end;
destructor TIDEEasyDockMaster.Destroy;