mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-15 20:19:24 +02:00
AnchorDocking: Cleanup: Name debug class names correct.
git-svn-id: trunk@59828 -
This commit is contained in:
parent
c6a558f544
commit
cc81cd1812
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user