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

anchordocking: less debug

Browse Source 
git-svn-id: trunk@50276 -
This commit is contained in:
mattias 2015-11-11 01:02:52 +00:00
parent d1b63130f9
commit 30d0635cc2
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/anchordocking/anchordocking.pas
View File

@ -2749,7 +2749,9 @@ begin
Config.AppendBasePath('Restores/');
RestoreLayouts.SaveToConfig(Config);
Config.UndoAppendBasePath;
{$IFDEF VerboseAnchorDocking}
WriteDebugLayout('TAnchorDockMaster.SaveLayoutToConfig ',Tree.Root);
{$ENDIF}
//DebugWriteChildAnchors(Tree.Root);
finally
Tree.Free;

4
components/anchordocking/design/anchordesktopoptions.pas
View File

@ -215,7 +215,9 @@ begin
FTree.SaveToConfig(Path+'MainConfig/', aXMLCfg);
FRestoreLayouts.SaveToConfig(Path+'Restores/', aXMLCfg);
FSettings.SaveToConfig(Path+'Settings/', aXMLCfg);
{$IFDEF VerboseAnchorDocking}
WriteDebugLayout('TAnchorDesktopOpt.SaveLayoutToConfig ',FTree.Root);
{$ENDIF}
end;
procedure TAnchorDesktopOpt.SaveMainLayoutToTree;
@ -241,8 +243,10 @@ begin
if AForm=nil then continue;
if SavedSites.IndexOf(AForm)>=0 then continue;
SavedSites.Add(AForm);
{$IFDEF VerboseAnchorDocking}
debugln(['TAnchorDesktopOpt.SaveMainLayoutToTree AForm=',DbgSName(AForm)]);
DebugWriteChildAnchors(AForm,true,true);
{$ENDIF}
if (AForm is TAnchorDockHostSite) then begin
Site:=TAnchorDockHostSite(AForm);
LayoutNode:=FTree.NewNode(FTree.Root);