paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 20:39:14 +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) TIDEEasyDockMaster = class(TIDEDockMaster)
function DockMasterRestore(const CtrlName: string; ASite: TWinControl function DockMasterRestore(const CtrlName: string; ASite: TWinControl
): TControl; ): TControl;
function DockMasterSave(ACtrl: TControl): string;
private private
procedure GetDefaultBounds(AForm: TCustomForm; out Creator: TIDEWindowCreator; procedure GetDefaultBounds(AForm: TCustomForm; out Creator: TIDEWindowCreator;
out NewBounds: TRect; out DockSiblingName: string; out DockAlign: TAlign); out NewBounds: TRect; out DockSiblingName: string; out DockAlign: TAlign);
@ -88,6 +89,11 @@ begin
debugln(['TIDEEasyDockMaster.DockMasterRestore Result=',DbgSName(Result)]); debugln(['TIDEEasyDockMaster.DockMasterRestore Result=',DbgSName(Result)]);
end; end;
function TIDEEasyDockMaster.DockMasterSave(ACtrl: TControl): string;
begin
Result:=ACtrl.Name;
end;
procedure TIDEEasyDockMaster.GetDefaultBounds(AForm: TCustomForm; out procedure TIDEEasyDockMaster.GetDefaultBounds(AForm: TCustomForm; out
Creator: TIDEWindowCreator; out NewBounds: TRect; out DockSiblingName: string; Creator: TIDEWindowCreator; out NewBounds: TRect; out DockSiblingName: string;
out DockAlign: TAlign); out DockAlign: TAlign);
@ -114,6 +120,7 @@ constructor TIDEEasyDockMaster.Create;
begin begin
IDEEasyDockMaster:=Self; IDEEasyDockMaster:=Self;
DockMaster.OnRestore:=@DockMasterRestore; DockMaster.OnRestore:=@DockMasterRestore;
DockMaster.OnSave:=@DockMasterSave;
end; end;
destructor TIDEEasyDockMaster.Destroy; destructor TIDEEasyDockMaster.Destroy;