paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 18:20:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

anchordocking: restoretest: loading settings

Browse Source 
git-svn-id: trunk@39712 -
This commit is contained in:
mattias 2013-01-01 17:38:04 +00:00
parent d241c00d1f
commit ce98cbec02
2 changed files with 4 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/anchordocking/restoredebugger/ADRestoreDebugger.lpi
View File

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

11
components/anchordocking/restoredebugger/mainunit.pas
View File

@ -34,9 +34,9 @@ unit MainUnit;
interface interface
uses uses
Classes, SysUtils, FileUtil, LazFileUtils, Laz2_XMLCfg, SynEdit, Classes, SysUtils, FileUtil, LazFileUtils, SynEdit,
SynHighlighterXML, AnchorDocking, Forms, Controls, Graphics, Dialogs, SynHighlighterXML, AnchorDocking, Forms, Controls, Graphics, Dialogs,
ComCtrls, ExtCtrls, Buttons, StdCtrls, LazConfigStorage; ComCtrls, ExtCtrls, Buttons, StdCtrls, XMLPropStorage;
type type
@ -116,22 +116,17 @@ end;
procedure TADRestDbg.LoadSettingsFromOriginalSynedit; procedure TADRestDbg.LoadSettingsFromOriginalSynedit;
var var
ms: TMemoryStream; ms: TMemoryStream;
XML: TXMLConfig;
Config: TXMLConfigStorage; Config: TXMLConfigStorage;
begin begin
ms:=TMemoryStream.Create; ms:=TMemoryStream.Create;
XML:=TXMLConfig.Create(nil);
Config:=nil; Config:=nil;
try try
OriginalSynEdit.Lines.SaveToStream(ms); OriginalSynEdit.Lines.SaveToStream(ms);
ms.Position:=0; ms.Position:=0;
XML.Filename:=; Config:=TXMLConfigStorage.Create(ms);
Config:=TConfigStorage.Create(XML);
FSettings.LoadFromConfig(Config); FSettings.LoadFromConfig(Config);
txmlcon
finally finally
Config.Free; Config.Free;
XML.Free;
ms.Free; ms.Free;
end; end;
end; end;