Skip to content
Projects
Groups
Snippets
Help
Loading...
Sign in
Toggle navigation
E
EtherBone Core
Project
Project
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
Wiki
Wiki
image/svg+xml
Discourse
Discourse
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Commits
Issue Boards
Open sidebar
Projects
EtherBone Core
Commits
7ab0754e
Commit
7ab0754e
authored
Apr 08, 2011
by
Marcus Zweig
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
--no commit message
--no commit message
parent
1176dbbd
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
20 additions
and
17 deletions
+20
-17
WR.bdsproj
GUI/XMLdevice/WR.bdsproj
+2
-2
WR.cfg
GUI/XMLdevice/WR.cfg
+2
-2
XML_WR.dfm
GUI/XMLdevice/XML_WR.dfm
+13
-12
XML_WR.pas
GUI/XMLdevice/XML_WR.pas
+3
-1
No files found.
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 =
23
2
Left =
512
Top =
39
2
end
object OpenDialog1: TOpenDialog
Left = 360
Top = 264
Filter = 'XML Files |*.xml'
Left = 512
Top = 424
end
object MainMenu1: TMainMenu
Left =
360
Top =
29
6
Left =
512
Top =
45
6
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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment