Skip to content

E
etherbone-core
Commit 7ab0754e authored by Marcus Zweig's avatar Marcus Zweig
Browse files
Options

--no commit message 

--no commit message
parent 1176dbbd
Hide whitespace changes
Inline Side-by-side
Showing with 20 additions and 17 deletions
GUI/XMLdevice/WR.bdsproj
View file @ 7ab0754e
......@@ -17,7 +17,7 @@
</FileVersion>
<Compiler>
<Compiler Name="A">8</Compiler>
<Compiler Name="B">0</Compiler>
<Compiler Name="B">1</Compiler>
<Compiler Name="C">1</Compiler>
<Compiler Name="D">1</Compiler>
<Compiler Name="E">0</Compiler>
......@@ -30,7 +30,7 @@
<Compiler Name="L">1</Compiler>
<Compiler Name="M">0</Compiler>
<Compiler Name="N">1</Compiler>
<Compiler Name="O">1</Compiler>
<Compiler Name="O">0</Compiler>
<Compiler Name="P">1</Compiler>
<Compiler Name="Q">0</Compiler>
<Compiler Name="R">0</Compiler>
......
GUI/XMLdevice/WR.cfg
View file @ 7ab0754e
-$A8
-$B-
-$B+
-$C+
-$D+
-$E-
......@@ -12,7 +12,7 @@
-$L+
-$M-
-$N+
-$O+
-$O-
-$P+
-$Q-
-$R-
......
GUI/XMLdevice/XML_WR.dfm
View file @ 7ab0754e
object Form1: TForm1
Left = 0
Top = 0
Width = 512
Width = 616
Height = 601
AutoSize = True
Caption = 'whiterabbit'
......@@ -20,7 +20,7 @@ object Form1: TForm1
object Panel1: TPanel
Left = 0
Top = 0
Width = 353
Width = 457
Height = 385
BevelInner = bvLowered
TabOrder = 0
......@@ -34,7 +34,7 @@ object Form1: TForm1
object XML_TreeView: TTreeView
Left = 15
Top = 31
Width = 313
Width = 426
Height = 338
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
......@@ -84,7 +84,7 @@ object Form1: TForm1
end
end
object Panel3: TPanel
Left = 351
Left = 455
Top = 0
Width = 153
Height = 385
......@@ -183,16 +183,17 @@ object Form1: TForm1
object Timer1: TTimer
Interval = 100
OnTimer = Timer1Timer
Left = 360
Top = 232
Left = 512
Top = 392
end
object OpenDialog1: TOpenDialog
Left = 360
Top = 264
Filter = 'XML Files |*.xml'
Left = 512
Top = 424
end
object MainMenu1: TMainMenu
Left = 360
Top = 296
Left = 512
Top = 456
object D1: TMenuItem
Caption = 'Datei'
object XMLLaden1: TMenuItem
......@@ -228,8 +229,8 @@ object Form1: TForm1
end
end
object XMLDoc: TXMLDocument
Left = 360
Top = 336
Left = 512
Top = 488
DOMVendorDesc = 'MSXML'
end
end
GUI/XMLdevice/XML_WR.pas
View file @ 7ab0754e
......@@ -163,7 +163,9 @@ var
begin
case nodes[i].NodeType of
ntElement : kindknoten :=
XML_TreeView.Items.AddChild(knoten,'<'+nodes[i].NodeName+'>');
XML_TreeView.Items.AddChild(knoten,'<'+nodes[i].NodeName+'>'+' *value:'+
VarToStr(nodes[i].Attributes['value'])+
' *bitpos:'+ VarToStr(nodes[i].Attributes['bitpos']));
ntText : kindknoten :=
XML_TreeView.Items.AddChild(knoten,nodes[i].text);
end; // of case
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment