forked from P33a/SimTwo
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathFastChart.lfm
211 lines (211 loc) · 5.52 KB
/
FastChart.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
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
object FChart: TFChart
Left = 419
Height = 421
Top = 458
Width = 724
Caption = 'Chart'
ClientHeight = 421
ClientWidth = 724
Color = clBtnFace
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
KeyPreview = True
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyDown = FormKeyDown
OnShow = FormShow
SessionProperties = 'EditFileName.Text;EditMaxPoints.Text;Left;PageControl.TabIndex;Top;CBFreeze.Checked;CBZeroCross.Checked'
LCLVersion = '1.8.2.0'
object PageControl: TPageControl
Left = 0
Height = 416
Top = 5
Width = 724
ActivePage = TabTimeChart
Align = alBottom
TabIndex = 0
TabOrder = 0
object TabTimeChart: TTabSheet
Caption = 'Time Chart'
ClientHeight = 390
ClientWidth = 716
object TreeView: TTreeView
Left = 0
Height = 360
Top = 0
Width = 185
Anchors = [akTop, akLeft, akBottom]
HideSelection = False
Images = ILCheckBox
Indent = 19
ReadOnly = True
TabOrder = 0
OnMouseDown = TreeViewMouseDown
Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end
object BChartRefresh: TButton
Left = 2
Height = 21
Top = 369
Width = 50
Anchors = [akLeft, akBottom]
Caption = 'Refresh'
OnClick = BChartRefreshClick
TabOrder = 1
end
object BClear: TButton
Left = 132
Height = 21
Top = 369
Width = 50
Anchors = [akLeft, akBottom]
Caption = 'Clear'
OnClick = BClearClick
TabOrder = 2
end
object BSave: TButton
Left = 186
Height = 21
Top = 369
Width = 71
Anchors = [akLeft, akBottom]
Caption = 'Save Chart'
OnClick = BSaveClick
TabOrder = 3
end
object Chart: TChart
Left = 184
Height = 360
Top = 0
Width = 532
AxisList = <
item
Marks.LabelBrush.Style = bsClear
Minors = <>
Range.UseMax = True
Range.UseMin = True
Title.LabelFont.Orientation = 900
Title.LabelBrush.Style = bsClear
end
item
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelBrush.Style = bsClear
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TChart'
)
Anchors = [akTop, akLeft, akRight, akBottom]
DoubleBuffered = True
end
object EditFileName: TEdit
Left = 264
Height = 21
Top = 368
Width = 121
Anchors = [akLeft, akBottom]
TabOrder = 5
Text = 'Chartdata'
end
object BSaveLog: TButton
Left = 394
Height = 21
Top = 369
Width = 59
Anchors = [akLeft, akBottom]
Caption = 'Save Log'
OnClick = BSaveLogClick
TabOrder = 6
end
object CBFreeze: TCheckBox
Left = 464
Height = 19
Top = 370
Width = 53
Anchors = [akLeft, akBottom]
Caption = '&Freeze'
Checked = True
OnClick = CBFreezeClick
State = cbChecked
TabOrder = 7
end
object Label1: TLabel
Left = 598
Height = 13
Top = 373
Width = 56
Anchors = [akLeft, akBottom]
Caption = 'Max Points:'
ParentColor = False
end
object EditMaxPoints: TEdit
Left = 660
Height = 21
Top = 368
Width = 41
Anchors = [akLeft, akBottom]
TabOrder = 8
Text = '200'
end
object BSet: TButton
Left = 766
Height = 21
Top = 369
Width = 59
Anchors = [akRight, akBottom]
Caption = 'Set'
OnClick = BSetClick
TabOrder = 9
end
object CBZeroCross: TCheckBox
Left = 520
Height = 19
Top = 369
Width = 72
Caption = 'Zero Cross'
Checked = True
OnChange = CBZeroCrossChange
State = cbChecked
TabOrder = 10
end
end
object TabUserCharts: TTabSheet
Caption = 'User Charts'
ClientHeight = 390
ClientWidth = 716
object PanelChart: TPanel
Left = 136
Height = 394
Top = 0
Width = 580
Anchors = [akTop, akLeft, akRight, akBottom]
TabOrder = 0
end
end
end
object ILCheckBox: TImageList
Left = 60
Top = 76
Bitmap = {
4C7A030000001000000010000000B20000000000000078DAEDD4DB0D85200C06
60763D63B006EBB042D7E1B14712855A4AA1F2A634F98331F9B8093AB75EDE7B
B42417F747339518A3E687B5FDF692CFEF67C33D3E28F7A2FAC8FDC7058F068F
1D6BF12859A36FAC61FDA235EE1FEEFBFFB10A019B186C4AA9C9541FA70DC777
E1297D6873533CED87E60750CFEC84E729BE37B74EB2E35E1D1B6A7B99DC0E3D
B4CFA21FAD9F8C9F73EE7B6D250FB2A56BB879DA87628BAF16D5B3AB45FE3FE2
832CD51F0F67D784
}
end
object IniPropStorage: TIniPropStorage
StoredValues = <>
IniSection = 'FastChart'
Left = 408
Top = 169
end
end