diff --git a/components/anchordocking/restoredebugger/ADRestoreDebugger.lpi b/components/anchordocking/restoredebugger/ADRestoreDebugger.lpi
index 42defabcc5..4f51d08e9a 100644
--- a/components/anchordocking/restoredebugger/ADRestoreDebugger.lpi
+++ b/components/anchordocking/restoredebugger/ADRestoreDebugger.lpi
@@ -28,16 +28,13 @@
-
+
-
-
-
diff --git a/components/anchordocking/restoredebugger/mainunit.pas b/components/anchordocking/restoredebugger/mainunit.pas
index 8ab6e90c27..3e78e8fada 100644
--- a/components/anchordocking/restoredebugger/mainunit.pas
+++ b/components/anchordocking/restoredebugger/mainunit.pas
@@ -34,9 +34,9 @@ unit MainUnit;
interface
uses
- Classes, SysUtils, FileUtil, LazFileUtils, Laz2_XMLCfg, SynEdit,
+ Classes, SysUtils, FileUtil, LazFileUtils, SynEdit,
SynHighlighterXML, AnchorDocking, Forms, Controls, Graphics, Dialogs,
- ComCtrls, ExtCtrls, Buttons, StdCtrls, LazConfigStorage;
+ ComCtrls, ExtCtrls, Buttons, StdCtrls, XMLPropStorage;
type
@@ -116,22 +116,17 @@ end;
procedure TADRestDbg.LoadSettingsFromOriginalSynedit;
var
ms: TMemoryStream;
- XML: TXMLConfig;
Config: TXMLConfigStorage;
begin
ms:=TMemoryStream.Create;
- XML:=TXMLConfig.Create(nil);
Config:=nil;
try
OriginalSynEdit.Lines.SaveToStream(ms);
ms.Position:=0;
- XML.Filename:=;
- Config:=TConfigStorage.Create(XML);
+ Config:=TXMLConfigStorage.Create(ms);
FSettings.LoadFromConfig(Config);
- txmlcon
finally
Config.Free;
- XML.Free;
ms.Free;
end;
end;