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;