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

easydock: debugging

Browse Source 
git-svn-id: trunk@25945 -
This commit is contained in:
mattias 2010-06-06 09:02:05 +00:00
parent 0e14f732e0
commit f23d1268c8
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -83,7 +83,9 @@ end;
function TIDEEasyDockMaster.DockMasterRestore(const CtrlName: string;
ASite: TWinControl): TControl;
begin
debugln(['TIDEEasyDockMaster.DockMasterRestore CtrlName="',dbgstr(CtrlName),'"']);
Result:=IDEWindowCreators.GetForm(CtrlName,true);
debugln(['TIDEEasyDockMaster.DockMasterRestore Result=',DbgSName(Result)]);
end;
procedure TIDEEasyDockMaster.GetDefaultBounds(AForm: TCustomForm; out
@ -174,12 +176,14 @@ var
begin
// load the users default layout
Filename:=GetDefaultLayoutFilename;
debugln(['TIDEEasyDockMaster.LoadDefaultLayout ',Filename,' exists=',FileExistsUTF8(Filename)]);
if FileExistsUTF8(Filename) then
DockMaster.LoadFromFile(Filename);
end;
procedure TIDEEasyDockMaster.SaveDefaultLayout;
begin
debugln(['TIDEEasyDockMaster.SaveDefaultLayout ',GetDefaultLayoutFilename]);
// load the users default layout
DockMaster.SaveToFile(GetDefaultLayoutFilename);
end;