From ce98cbec0207296cd807175f4797f541cafabb58 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 1 Jan 2013 17:38:04 +0000
Subject: [PATCH] anchordocking: restoretest: loading settings

git-svn-id: trunk@39712 -
---
 .../restoredebugger/ADRestoreDebugger.lpi             |  5 +----
 components/anchordocking/restoredebugger/mainunit.pas | 11 +++--------
 2 files changed, 4 insertions(+), 12 deletions(-)

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 @@
         <LaunchingApplication PathPlusParams="/usr/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
       </local>
     </RunParams>
-    <RequiredPackages Count="3">
+    <RequiredPackages Count="2">
       <Item1>
         <PackageName Value="AnchorDocking"/>
       </Item1>
       <Item2>
         <PackageName Value="SynEdit"/>
       </Item2>
-      <Item3>
-        <PackageName Value="LCL"/>
-      </Item3>
     </RequiredPackages>
     <Units Count="2">
       <Unit0>
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;