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

AnchorDocking: Cleanup: Name debug class names correct.

Browse Source 
git-svn-id: trunk@59828 -
This commit is contained in:
michl 2018-12-16 15:03:45 +00:00
parent c6a558f544
commit cc81cd1812
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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