-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathtest_main.lfm
118 lines (118 loc) · 2.32 KB
/
test_main.lfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
object Form1: TForm1
Left = 729
Height = 374
Top = 156
Width = 1006
Caption = 'Form1'
ClientHeight = 374
ClientWidth = 1006
OnCreate = FormCreate
OnDestroy = FormDestroy
LCLVersion = '1.6.0.4'
object LogOutput: TMemo
Left = 0
Height = 94
Top = 280
Width = 1006
Align = alBottom
Lines.Strings = (
''
)
ReadOnly = True
ScrollBars = ssAutoVertical
TabOrder = 0
end
object Panel1: TPanel
Left = 0
Height = 280
Top = 0
Width = 513
Align = alClient
Caption = 'Panel1'
ClientHeight = 280
ClientWidth = 513
TabOrder = 1
OnClick = Panel1Click
object LoadBtn: TButton
Left = 377
Height = 25
Top = 40
Width = 75
Anchors = [akTop, akRight]
Caption = 'Load JSON...'
OnClick = LoadBtnClick
TabOrder = 0
end
object ParseBtn: TButton
Left = 377
Height = 25
Top = 8
Width = 75
Anchors = [akTop, akRight]
Caption = 'Parse Editor'
OnClick = ParseBtnClick
TabOrder = 1
end
object JSONMemo: TMemo
Left = 1
Height = 278
Top = 1
Width = 352
Align = alLeft
Anchors = [akTop, akLeft, akRight, akBottom]
Lines.Strings = (
'JSONMemo'
)
TabOrder = 2
end
object LoadBtn1: TButton
Left = 377
Height = 25
Top = 184
Width = 75
Anchors = [akTop, akRight]
Caption = 'Load Binary...'
OnClick = LoadBtn1Click
TabOrder = 3
end
object Button1: TButton
Left = 376
Height = 25
Top = 216
Width = 75
Caption = 'Save Binary...'
OnClick = Button1Click
TabOrder = 4
end
end
object Panel2: TPanel
Left = 513
Height = 280
Top = 0
Width = 493
Align = alRight
Caption = 'Panel2'
ClientHeight = 280
ClientWidth = 493
TabOrder = 2
OnClick = Panel2Click
object XONTree: TTreeView
Left = 1
Height = 278
Top = 1
Width = 491
Align = alClient
DefaultItemHeight = 18
ScrollBars = ssAutoVertical
TabOrder = 0
OnClick = XONTreeDblClick
end
end
object OpenDialog1: TOpenDialog
DefaultExt = '.json'
Filter = 'JSON|*.json'
Options = [ofOldStyleDialog, ofEnableSizing, ofViewDetail]
left = 48
top = 48
end
end