paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 13:20:26 +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)"/>
</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>

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

@ -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;