AnchorDocking: Cleanup: Name debug class names correct.

git-svn-id: trunk@59828 -
This commit is contained in:
michl 2018-12-16 15:03:45 +00:00
parent c6a558f544
commit cc81cd1812

View File

@ -93,31 +93,29 @@ end;
procedure TAnchorDesktopOpt.Load(Path: String; aXMLCfg: TRttiXMLConfig); procedure TAnchorDesktopOpt.Load(Path: String; aXMLCfg: TRttiXMLConfig);
begin begin
//new version of old "TIDEAnchorDockMaster.LoadUserLayout"
Path := Path + 'AnchorDocking/'; Path := Path + 'AnchorDocking/';
try try
{$IFDEF VerboseAnchorDocking} {$IFDEF VerboseAnchorDocking}
debugln(['TIDEAnchorDockMaster.LoadUserLayout ',Path]); DebugLn(['TAnchorDesktopOpt.LoadUserLayout ',Path]);
{$ENDIF} {$ENDIF}
if aXMLCfg.GetValue(Path+'MainConfig/Nodes/ChildCount',0) > 0 then//config is not empty if aXMLCfg.GetValue(Path+'MainConfig/Nodes/ChildCount',0) > 0 then//config is not empty
begin begin
// loading last layout // loading last layout
{$IF defined(VerboseAnchorDocking) or defined(VerboseAnchorDockRestore)} {$IF defined(VerboseAnchorDocking) or defined(VerboseAnchorDockRestore)}
debugln(['TIDEAnchorDockMaster.LoadUserLayout restoring ...']); DebugLn(['TAnchorDesktopOpt.LoadUserLayout restoring ...']);
{$ENDIF} {$ENDIF}
LoadLayoutFromConfig(Path,aXMLCfg); LoadLayoutFromConfig(Path,aXMLCfg);
end else begin end else begin
// loading defaults // loading defaults
{$IF defined(VerboseAnchorDocking) or defined(VerboseAnchorDockRestore)} {$IF defined(VerboseAnchorDocking) or defined(VerboseAnchorDockRestore)}
debugln(['TIDEAnchorDockMaster.LoadUserLayout loading default layout ...']); DebugLn(['TAnchorDesktopOpt.LoadUserLayout loading default layout ...']);
{$ENDIF} {$ENDIF}
LoadLegacyAnchorDockOptions; LoadLegacyAnchorDockOptions;
LoadDefaultLayout; LoadDefaultLayout;
end; end;
except except
on E: Exception do begin on E: Exception do begin
DebugLn(['TIDEAnchorDockMaster.LoadUserLayout loading ',aXMLCfg.GetValue(Path+'Name', ''),' failed: ',E.Message]); DebugLn(['TAnchorDesktopOpt.LoadUserLayout loading ',aXMLCfg.GetValue(Path+'Name', ''),' failed: ',E.Message]);
Raise; Raise;
end; end;
end; end;
@ -215,12 +213,12 @@ begin
Path := Path + 'AnchorDocking/'; Path := Path + 'AnchorDocking/';
try try
{$IF defined(VerboseAnchorDocking) or defined(VerboseAnchorDockRestore)} {$IF defined(VerboseAnchorDocking) or defined(VerboseAnchorDockRestore)}
debugln(['TIDEAnchorDockMaster.SaveDefaultLayout ',Path]); DebugLn(['TAnchorDesktopOpt.SaveDefaultLayout ',Path]);
{$ENDIF} {$ENDIF}
SaveLayoutToConfig(Path, aXMLCfg); SaveLayoutToConfig(Path, aXMLCfg);
except except
on E: Exception do begin on E: Exception do begin
DebugLn(['TIDEAnchorDockMaster.SaveDefaultLayout saving ',aXMLCfg.GetValue(Path+'Name', ''),' failed: ',E.Message]); DebugLn(['TAnchorDesktopOpt.SaveDefaultLayout saving ',aXMLCfg.GetValue(Path+'Name', ''),' failed: ',E.Message]);
Raise; Raise;
end; end;
end; end;