mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-24 16:28:53 -05:00
Just a bit of the Script Manager code.
I need to code a lot more, and it will be a bit hackish. Basically, the TMMLSettings is not able to handle childs with the same name. It can parse them into the tree, but the finding methods will not work. (They will always find the first.) Three possibilities: - Delete the one we just parsed, and search again. (We will get the next result) - Use WalkToNode and then manually parse the node. (This is more dangerous but doesn't delete the settints) - Do the XML parsing semi-manually, kind of like rewriting the settings unit.
This commit is contained in:
parent
496e4e5dbd
commit
14e929decc
@ -10,7 +10,6 @@
|
|||||||
<TargetFileExt Value=""/>
|
<TargetFileExt Value=""/>
|
||||||
<ResourceType Value="res"/>
|
<ResourceType Value="res"/>
|
||||||
<UseXPManifest Value="True"/>
|
<UseXPManifest Value="True"/>
|
||||||
<Icon Value="0"/>
|
|
||||||
<ActiveWindowIndexAtStart Value="0"/>
|
<ActiveWindowIndexAtStart Value="0"/>
|
||||||
</General>
|
</General>
|
||||||
<VersionInfo>
|
<VersionInfo>
|
||||||
@ -35,12 +34,12 @@
|
|||||||
<PackageName Value="LCL"/>
|
<PackageName Value="LCL"/>
|
||||||
</Item1>
|
</Item1>
|
||||||
</RequiredPackages>
|
</RequiredPackages>
|
||||||
<Units Count="3">
|
<Units Count="9">
|
||||||
<Unit0>
|
<Unit0>
|
||||||
<Filename Value="project1.lpr"/>
|
<Filename Value="project1.lpr"/>
|
||||||
<IsPartOfProject Value="True"/>
|
<IsPartOfProject Value="True"/>
|
||||||
<UnitName Value="project1"/>
|
<UnitName Value="project1"/>
|
||||||
<UsageCount Value="24"/>
|
<UsageCount Value="36"/>
|
||||||
</Unit0>
|
</Unit0>
|
||||||
<Unit1>
|
<Unit1>
|
||||||
<Filename Value="scriptmanager.pas"/>
|
<Filename Value="scriptmanager.pas"/>
|
||||||
@ -51,9 +50,9 @@
|
|||||||
<IsVisibleTab Value="True"/>
|
<IsVisibleTab Value="True"/>
|
||||||
<EditorIndex Value="0"/>
|
<EditorIndex Value="0"/>
|
||||||
<WindowIndex Value="0"/>
|
<WindowIndex Value="0"/>
|
||||||
<TopLine Value="1"/>
|
<TopLine Value="34"/>
|
||||||
<CursorPos X="77" Y="17"/>
|
<CursorPos X="6" Y="58"/>
|
||||||
<UsageCount Value="24"/>
|
<UsageCount Value="36"/>
|
||||||
<Loaded Value="True"/>
|
<Loaded Value="True"/>
|
||||||
</Unit1>
|
</Unit1>
|
||||||
<Unit2>
|
<Unit2>
|
||||||
@ -61,76 +60,186 @@
|
|||||||
<WindowIndex Value="0"/>
|
<WindowIndex Value="0"/>
|
||||||
<TopLine Value="1276"/>
|
<TopLine Value="1276"/>
|
||||||
<CursorPos X="1" Y="1294"/>
|
<CursorPos X="1" Y="1294"/>
|
||||||
<SyntaxHighlighter Value="FreePascal"/>
|
<UsageCount Value="8"/>
|
||||||
|
<DefaultSyntaxHighlighter Value="Delphi"/>
|
||||||
|
</Unit2>
|
||||||
|
<Unit3>
|
||||||
|
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
|
||||||
|
<UnitName Value="bitmaps"/>
|
||||||
|
<WindowIndex Value="0"/>
|
||||||
|
<TopLine Value="112"/>
|
||||||
|
<CursorPos X="79" Y="138"/>
|
||||||
|
<UsageCount Value="9"/>
|
||||||
|
</Unit3>
|
||||||
|
<Unit4>
|
||||||
|
<Filename Value="../../Units/MMLAddon/settings.pas"/>
|
||||||
|
<UnitName Value="settings"/>
|
||||||
|
<EditorIndex Value="1"/>
|
||||||
|
<WindowIndex Value="0"/>
|
||||||
|
<TopLine Value="45"/>
|
||||||
|
<CursorPos X="5" Y="74"/>
|
||||||
|
<UsageCount Value="13"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit4>
|
||||||
|
<Unit5>
|
||||||
|
<Filename Value="../../Units/MMLCore/os_linux.pas"/>
|
||||||
|
<UnitName Value="os_linux"/>
|
||||||
|
<WindowIndex Value="0"/>
|
||||||
|
<TopLine Value="11"/>
|
||||||
|
<CursorPos X="64" Y="29"/>
|
||||||
|
<UsageCount Value="9"/>
|
||||||
|
</Unit5>
|
||||||
|
<Unit6>
|
||||||
|
<Filename Value="../../Units/MMLCore/mufasatypes.pas"/>
|
||||||
|
<UnitName Value="MufasaTypes"/>
|
||||||
|
<EditorIndex Value="3"/>
|
||||||
|
<WindowIndex Value="0"/>
|
||||||
|
<TopLine Value="23"/>
|
||||||
|
<CursorPos X="1" Y="1"/>
|
||||||
|
<UsageCount Value="13"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit6>
|
||||||
|
<Unit7>
|
||||||
|
<Filename Value="../../Units/MMLCore/mufasabase.pas"/>
|
||||||
|
<UnitName Value="mufasabase"/>
|
||||||
|
<EditorIndex Value="2"/>
|
||||||
|
<WindowIndex Value="0"/>
|
||||||
|
<TopLine Value="7"/>
|
||||||
|
<CursorPos X="1" Y="1"/>
|
||||||
|
<UsageCount Value="13"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit7>
|
||||||
|
<Unit8>
|
||||||
|
<Filename Value="../../../lazarus/lcl/include/treeview.inc"/>
|
||||||
|
<WindowIndex Value="0"/>
|
||||||
|
<TopLine Value="2214"/>
|
||||||
|
<CursorPos X="1" Y="2232"/>
|
||||||
|
<SyntaxHighlighter Value="Delphi"/>
|
||||||
<UsageCount Value="10"/>
|
<UsageCount Value="10"/>
|
||||||
<DefaultSyntaxHighlighter Value="Text"/>
|
<DefaultSyntaxHighlighter Value="Text"/>
|
||||||
</Unit2>
|
</Unit8>
|
||||||
</Units>
|
</Units>
|
||||||
<JumpHistory Count="16" HistoryIndex="15">
|
<JumpHistory Count="30" HistoryIndex="29">
|
||||||
<Position1>
|
<Position1>
|
||||||
<Filename Value="scriptmanager.pas"/>
|
<Filename Value="scriptmanager.pas"/>
|
||||||
<Caret Line="15" Column="32" TopLine="1"/>
|
<Caret Line="36" Column="29" TopLine="4"/>
|
||||||
</Position1>
|
</Position1>
|
||||||
<Position2>
|
<Position2>
|
||||||
<Filename Value="scriptmanager.pas"/>
|
<Filename Value="scriptmanager.pas"/>
|
||||||
<Caret Line="19" Column="32" TopLine="1"/>
|
<Caret Line="37" Column="29" TopLine="4"/>
|
||||||
</Position2>
|
</Position2>
|
||||||
<Position3>
|
<Position3>
|
||||||
<Filename Value="scriptmanager.pas"/>
|
<Filename Value="scriptmanager.pas"/>
|
||||||
<Caret Line="13" Column="32" TopLine="1"/>
|
<Caret Line="38" Column="37" TopLine="7"/>
|
||||||
</Position3>
|
</Position3>
|
||||||
<Position4>
|
<Position4>
|
||||||
<Filename Value="scriptmanager.pas"/>
|
<Filename Value="scriptmanager.pas"/>
|
||||||
<Caret Line="35" Column="29" TopLine="4"/>
|
<Caret Line="37" Column="37" TopLine="6"/>
|
||||||
</Position4>
|
</Position4>
|
||||||
<Position5>
|
<Position5>
|
||||||
<Filename Value="scriptmanager.pas"/>
|
<Filename Value="scriptmanager.pas"/>
|
||||||
<Caret Line="37" Column="29" TopLine="4"/>
|
<Caret Line="36" Column="37" TopLine="5"/>
|
||||||
</Position5>
|
</Position5>
|
||||||
<Position6>
|
<Position6>
|
||||||
<Filename Value="scriptmanager.pas"/>
|
<Filename Value="scriptmanager.pas"/>
|
||||||
<Caret Line="36" Column="29" TopLine="4"/>
|
<Caret Line="11" Column="52" TopLine="1"/>
|
||||||
</Position6>
|
</Position6>
|
||||||
<Position7>
|
<Position7>
|
||||||
<Filename Value="scriptmanager.pas"/>
|
<Filename Value="scriptmanager.pas"/>
|
||||||
<Caret Line="37" Column="29" TopLine="4"/>
|
<Caret Line="24" Column="86" TopLine="1"/>
|
||||||
</Position7>
|
</Position7>
|
||||||
<Position8>
|
<Position8>
|
||||||
<Filename Value="scriptmanager.pas"/>
|
<Filename Value="scriptmanager.pas"/>
|
||||||
<Caret Line="36" Column="29" TopLine="4"/>
|
<Caret Line="19" Column="26" TopLine="6"/>
|
||||||
</Position8>
|
</Position8>
|
||||||
<Position9>
|
<Position9>
|
||||||
<Filename Value="scriptmanager.pas"/>
|
<Filename Value="../../Units/MMLAddon/settings.pas"/>
|
||||||
<Caret Line="37" Column="29" TopLine="4"/>
|
<Caret Line="1" Column="1" TopLine="1"/>
|
||||||
</Position9>
|
</Position9>
|
||||||
<Position10>
|
<Position10>
|
||||||
<Filename Value="scriptmanager.pas"/>
|
<Filename Value="../../Units/MMLAddon/settings.pas"/>
|
||||||
<Caret Line="36" Column="29" TopLine="4"/>
|
<Caret Line="31" Column="54" TopLine="1"/>
|
||||||
</Position10>
|
</Position10>
|
||||||
<Position11>
|
<Position11>
|
||||||
<Filename Value="scriptmanager.pas"/>
|
<Filename Value="../../Units/MMLAddon/settings.pas"/>
|
||||||
<Caret Line="37" Column="29" TopLine="4"/>
|
<Caret Line="31" Column="71" TopLine="1"/>
|
||||||
</Position11>
|
</Position11>
|
||||||
<Position12>
|
<Position12>
|
||||||
<Filename Value="scriptmanager.pas"/>
|
<Filename Value="scriptmanager.pas"/>
|
||||||
<Caret Line="38" Column="37" TopLine="7"/>
|
<Caret Line="41" Column="10" TopLine="6"/>
|
||||||
</Position12>
|
</Position12>
|
||||||
<Position13>
|
<Position13>
|
||||||
<Filename Value="scriptmanager.pas"/>
|
<Filename Value="scriptmanager.pas"/>
|
||||||
<Caret Line="37" Column="37" TopLine="6"/>
|
<Caret Line="35" Column="82" TopLine="10"/>
|
||||||
</Position13>
|
</Position13>
|
||||||
<Position14>
|
<Position14>
|
||||||
<Filename Value="scriptmanager.pas"/>
|
<Filename Value="scriptmanager.pas"/>
|
||||||
<Caret Line="36" Column="37" TopLine="5"/>
|
<Caret Line="21" Column="69" TopLine="10"/>
|
||||||
</Position14>
|
</Position14>
|
||||||
<Position15>
|
<Position15>
|
||||||
<Filename Value="scriptmanager.pas"/>
|
<Filename Value="scriptmanager.pas"/>
|
||||||
<Caret Line="11" Column="52" TopLine="1"/>
|
<Caret Line="41" Column="39" TopLine="11"/>
|
||||||
</Position15>
|
</Position15>
|
||||||
<Position16>
|
<Position16>
|
||||||
<Filename Value="scriptmanager.pas"/>
|
<Filename Value="scriptmanager.pas"/>
|
||||||
<Caret Line="24" Column="86" TopLine="1"/>
|
<Caret Line="42" Column="15" TopLine="11"/>
|
||||||
</Position16>
|
</Position16>
|
||||||
|
<Position17>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="30" Column="62" TopLine="12"/>
|
||||||
|
</Position17>
|
||||||
|
<Position18>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="29" Column="62" TopLine="12"/>
|
||||||
|
</Position18>
|
||||||
|
<Position19>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="31" Column="31" TopLine="12"/>
|
||||||
|
</Position19>
|
||||||
|
<Position20>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="37" Column="23" TopLine="19"/>
|
||||||
|
</Position20>
|
||||||
|
<Position21>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="64" Column="25" TopLine="36"/>
|
||||||
|
</Position21>
|
||||||
|
<Position22>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="55" Column="11" TopLine="45"/>
|
||||||
|
</Position22>
|
||||||
|
<Position23>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="52" Column="5" TopLine="28"/>
|
||||||
|
</Position23>
|
||||||
|
<Position24>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="59" Column="13" TopLine="34"/>
|
||||||
|
</Position24>
|
||||||
|
<Position25>
|
||||||
|
<Filename Value="../../Units/MMLAddon/settings.pas"/>
|
||||||
|
<Caret Line="63" Column="24" TopLine="52"/>
|
||||||
|
</Position25>
|
||||||
|
<Position26>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="53" Column="12" TopLine="34"/>
|
||||||
|
</Position26>
|
||||||
|
<Position27>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="57" Column="22" TopLine="35"/>
|
||||||
|
</Position27>
|
||||||
|
<Position28>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="55" Column="21" TopLine="38"/>
|
||||||
|
</Position28>
|
||||||
|
<Position29>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="33" Column="17" TopLine="27"/>
|
||||||
|
</Position29>
|
||||||
|
<Position30>
|
||||||
|
<Filename Value="scriptmanager.pas"/>
|
||||||
|
<Caret Line="58" Column="34" TopLine="50"/>
|
||||||
|
</Position30>
|
||||||
</JumpHistory>
|
</JumpHistory>
|
||||||
</ProjectOptions>
|
</ProjectOptions>
|
||||||
<CompilerOptions>
|
<CompilerOptions>
|
||||||
@ -140,6 +249,7 @@
|
|||||||
</Target>
|
</Target>
|
||||||
<SearchPaths>
|
<SearchPaths>
|
||||||
<IncludeFiles Value="$(ProjOutDir)/"/>
|
<IncludeFiles Value="$(ProjOutDir)/"/>
|
||||||
|
<OtherUnitFiles Value="$(ProjPath)../../Units/MMLCore/;$(ProjPath)../../Units/MMLAddon/;$(ProjPath)../../Units/PascalScript/;$(ProjPath)../../Units/Misc/;$(ProjPath)../../Units/MMLAddon/PSInc/;$(ProjPath)../../Units/Linux/;$(LazarusDir)/components/mouseandkeyinput/"/>
|
||||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||||
</SearchPaths>
|
</SearchPaths>
|
||||||
<Parsing>
|
<Parsing>
|
||||||
@ -148,12 +258,11 @@
|
|||||||
</SyntaxOptions>
|
</SyntaxOptions>
|
||||||
</Parsing>
|
</Parsing>
|
||||||
<CodeGeneration>
|
<CodeGeneration>
|
||||||
<TargetCPU Value="arm"/>
|
<TargetCPU Value="x86_64"/>
|
||||||
<TargetOS Value="Linux"/>
|
<TargetOS Value="Linux"/>
|
||||||
</CodeGeneration>
|
</CodeGeneration>
|
||||||
<Linking>
|
<Linking>
|
||||||
<Options>
|
<Options>
|
||||||
<PassLinkerOptions Value="True"/>
|
|
||||||
<LinkerOptions Value="-L/home/merlijn/Programs/fpc/libcross/"/>
|
<LinkerOptions Value="-L/home/merlijn/Programs/fpc/libcross/"/>
|
||||||
<Win32>
|
<Win32>
|
||||||
<GraphicApplication Value="True"/>
|
<GraphicApplication Value="True"/>
|
||||||
|
@ -1,7 +1,7 @@
|
|||||||
object Form1: TForm1
|
object Form1: TForm1
|
||||||
Left = 369
|
Left = 1499
|
||||||
Height = 567
|
Height = 567
|
||||||
Top = 144
|
Top = 51
|
||||||
Width = 825
|
Width = 825
|
||||||
ActiveControl = Button1
|
ActiveControl = Button1
|
||||||
Caption = 'Form1'
|
Caption = 'Form1'
|
||||||
@ -12,7 +12,7 @@ object Form1: TForm1
|
|||||||
Left = 32
|
Left = 32
|
||||||
Height = 520
|
Height = 520
|
||||||
Top = 24
|
Top = 24
|
||||||
Width = 216
|
Width = 384
|
||||||
Columns = <
|
Columns = <
|
||||||
item
|
item
|
||||||
Caption = 'Scripts'
|
Caption = 'Scripts'
|
||||||
@ -20,12 +20,6 @@ object Form1: TForm1
|
|||||||
end>
|
end>
|
||||||
IconOptions.Arrangement = iaLeft
|
IconOptions.Arrangement = iaLeft
|
||||||
ItemIndex = -1
|
ItemIndex = -1
|
||||||
Items.LazData = {
|
|
||||||
640000000400000000000000FFFFFFFFFFFFFFFF000000000100000061000000
|
|
||||||
00FFFFFFFFFFFFFFFF00000000050000004974656D3100000000FFFFFFFFFFFF
|
|
||||||
FFFF00000000040000006664686400000000FFFFFFFFFFFFFFFF000000000200
|
|
||||||
00006466
|
|
||||||
}
|
|
||||||
LargeImages = ImageList1
|
LargeImages = ImageList1
|
||||||
ScrollBars = ssAutoBoth
|
ScrollBars = ssAutoBoth
|
||||||
SmallImages = ImageList1
|
SmallImages = ImageList1
|
||||||
@ -33,34 +27,26 @@ object Form1: TForm1
|
|||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ViewStyle = vsReport
|
ViewStyle = vsReport
|
||||||
end
|
end
|
||||||
object ListBox1: TListBox
|
|
||||||
Left = 560
|
|
||||||
Height = 520
|
|
||||||
Top = 24
|
|
||||||
Width = 240
|
|
||||||
Items.Strings = (
|
|
||||||
'wat'
|
|
||||||
'wa'
|
|
||||||
'asd'
|
|
||||||
'd'
|
|
||||||
'd'
|
|
||||||
)
|
|
||||||
ItemHeight = 40
|
|
||||||
Style = lbOwnerDrawFixed
|
|
||||||
TabOrder = 1
|
|
||||||
end
|
|
||||||
object Button1: TButton
|
object Button1: TButton
|
||||||
Left = 360
|
Left = 432
|
||||||
Height = 25
|
Height = 25
|
||||||
Top = 24
|
Top = 504
|
||||||
Width = 75
|
Width = 75
|
||||||
Caption = 'Button1'
|
Caption = 'Button1'
|
||||||
OnClick = Button1Click
|
OnClick = Button1Click
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object TreeView1: TTreeView
|
||||||
|
Left = 528
|
||||||
|
Height = 528
|
||||||
|
Top = 16
|
||||||
|
Width = 272
|
||||||
|
DefaultItemHeight = 19
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
end
|
end
|
||||||
object ImageList1: TImageList
|
object ImageList1: TImageList
|
||||||
left = 288
|
left = 368
|
||||||
top = 16
|
top = 504
|
||||||
Bitmap = {
|
Bitmap = {
|
||||||
4C69010000001000000010000000424242004242420042424200424242004242
|
4C69010000001000000010000000424242004242420042424200424242004242
|
||||||
420042424200424242004242420042424200424242004242420042424200A155
|
420042424200424242004242420042424200424242004242420042424200A155
|
||||||
|
@ -6,7 +6,7 @@ interface
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
||||||
ExtCtrls, ComCtrls;
|
ExtCtrls, ComCtrls, settings, MufasaTypes;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|
||||||
@ -15,7 +15,6 @@ type
|
|||||||
TForm1 = class(TForm)
|
TForm1 = class(TForm)
|
||||||
Button1: TButton;
|
Button1: TButton;
|
||||||
ImageList1: TImageList;
|
ImageList1: TImageList;
|
||||||
ListBox1: TListBox;
|
|
||||||
ListView1: TListView;
|
ListView1: TListView;
|
||||||
TreeView1: TTreeView;
|
TreeView1: TTreeView;
|
||||||
procedure Button1Click(Sender: TObject);
|
procedure Button1Click(Sender: TObject);
|
||||||
@ -25,6 +24,19 @@ type
|
|||||||
{ public declarations }
|
{ public declarations }
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
TSimbaScript = class(TObject)
|
||||||
|
|
||||||
|
public
|
||||||
|
Name, Version, Author, Description: String;
|
||||||
|
Tags, Files: TStringArray;
|
||||||
|
|
||||||
|
private
|
||||||
|
|
||||||
|
public
|
||||||
|
constructor Create(n: TTreeNode);
|
||||||
|
destructor Delete;
|
||||||
|
end;
|
||||||
|
|
||||||
var
|
var
|
||||||
Form1: TForm1;
|
Form1: TForm1;
|
||||||
|
|
||||||
@ -33,9 +45,41 @@ implementation
|
|||||||
{$R *.lfm}
|
{$R *.lfm}
|
||||||
|
|
||||||
{ TForm1 }
|
{ TForm1 }
|
||||||
|
procedure fill(s: TMMLSettings);
|
||||||
|
var
|
||||||
|
i:integer;
|
||||||
|
n, nn: TTreeNode;
|
||||||
|
ss: TSimbaScript;
|
||||||
|
begin
|
||||||
|
n := s.WalkToNode('Scripts/ScriptList/');
|
||||||
|
nn := n.GetFirstChild;
|
||||||
|
while nn <> nil do
|
||||||
|
begin
|
||||||
|
ss := TSimbaScript.Create(nn);
|
||||||
|
nn := nn.GetNextSibling;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TForm1.Button1Click(Sender: TObject);
|
procedure TForm1.Button1Click(Sender: TObject);
|
||||||
|
var
|
||||||
|
s: TMMLSettings;
|
||||||
begin
|
begin
|
||||||
|
s := TMMLSettings.Create(TreeView1.Items);
|
||||||
|
s.LoadFromXML('/scratch/gittest/list.xml');
|
||||||
|
fill(s);
|
||||||
|
s.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TSimbaScript }
|
||||||
|
|
||||||
|
constructor TSimbaScript.Create(n: TTreeNode);
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TSimbaScript.Delete;
|
||||||
|
begin
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
Loading…
Reference in New Issue
Block a user