File: unit1.lfm

package info (click to toggle)
lazarus 1.2.4%2Bdfsg2-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 170,220 kB
  • ctags: 115,165
  • sloc: pascal: 1,386,898; xml: 257,878; sh: 2,935; java: 603; makefile: 549; perl: 297; sql: 174; ansic: 137
file content (336 lines) | stat: -rw-r--r-- 7,188 bytes parent folder | download | duplicates (4)
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
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
object Form1: TForm1
  Left = 341
  Height = 494
  Top = 225
  Width = 585
  Caption = 'Form1'
  ClientHeight = 494
  ClientWidth = 585
  Position = poScreenCenter
  LCLVersion = '1.1'
  object Chart1: TChart
    Left = 0
    Height = 392
    Top = 0
    Width = 585
    AntialiasingMode = amOn
    AxisList = <    
      item
        Grid.Color = clGray
        Minors = <>
        Title.LabelFont.Height = -11
        Title.LabelFont.Name = 'MS Sans Serif'
      end    
      item
        Grid.Color = clGray
        Alignment = calBottom
        Minors = <>
        Title.LabelFont.Height = -11
        Title.LabelFont.Name = 'MS Sans Serif'
      end>
    Foot.Brush.Color = clBtnFace
    Foot.Font.Color = clRed
    Foot.Font.Height = -13
    Foot.Font.Name = 'MS Sans Serif'
    Foot.Font.Style = [fsBold]
    Foot.Text.Strings = (
      'This a LeftAligned Footer'
    )
    Legend.Font.Height = -11
    Legend.Font.Name = 'MS Sans Serif'
    Title.Brush.Color = clBtnFace
    Title.Font.Color = clBlue
    Title.Font.Height = -11
    Title.Font.Name = 'MS Sans Serif'
    Title.Margin = 8
    Title.Text.Strings = (
      'Centered Chart Title'
    )
    Title.Visible = True
    Align = alClient
    ParentColor = False
    object Chart1LineHor: TConstantLine
      Legend.Visible = False
      Pen.Style = psDash
      Position = 0
    end
    object Chart1LineVert: TConstantLine
      Legend.Visible = False
      LineStyle = lsVertical
      Pen.Style = psDash
      Position = 0
    end
  end
  object Panel1: TPanel
    Left = 0
    Height = 102
    Top = 392
    Width = 585
    Align = alBottom
    ClientHeight = 102
    ClientWidth = 585
    TabOrder = 0
    object lblAdd: TLabel
      Left = 13
      Height = 13
      Top = 10
      Width = 23
      Caption = 'Add:'
      ParentColor = False
    end
    object lblClear: TLabel
      Left = 13
      Height = 13
      Top = 40
      Width = 29
      Caption = 'Clear:'
      ParentColor = False
    end
    object lblAddCount: TLabel
      Left = 288
      Height = 13
      Top = 8
      Width = 57
      Caption = 'Multiple add'
      ParentColor = False
    end
    object lblMarkStyle: TLabel
      Left = 48
      Height = 13
      Top = 80
      Width = 77
      Caption = 'Add with marks:'
      ParentColor = False
    end
    object lblReticule: TLabel
      Left = 360
      Height = 13
      Top = 80
      Width = 42
      Caption = 'Reticule:'
      ParentColor = False
    end
    object btnAddPie: TButton
      Left = 48
      Height = 24
      Top = 8
      Width = 40
      BorderSpacing.InnerBorder = 4
      Caption = 'Pie'
      OnClick = btnAddPieClick
      TabOrder = 0
    end
    object btnAddLine: TButton
      Left = 192
      Height = 24
      Top = 8
      Width = 40
      BorderSpacing.InnerBorder = 4
      Caption = 'Line'
      OnClick = btnAddLineClick
      TabOrder = 1
    end
    object btnAddArea: TButton
      Left = 96
      Height = 24
      Top = 8
      Width = 40
      BorderSpacing.InnerBorder = 4
      Caption = 'Area'
      OnClick = btnAddAreaClick
      TabOrder = 2
    end
    object btnAddBar: TButton
      Left = 144
      Height = 24
      Top = 8
      Width = 40
      BorderSpacing.InnerBorder = 4
      Caption = 'Bar'
      OnClick = btnAddBarClick
      TabOrder = 3
    end
    object cbLegend: TCheckBox
      Left = 384
      Height = 17
      Top = 8
      Width = 55
      Caption = 'Legend'
      OnChange = cbLegendChange
      TabOrder = 4
    end
    object cbBottomAxis: TCheckBox
      Left = 384
      Height = 17
      Top = 24
      Width = 77
      Caption = 'Bottom Axis'
      Checked = True
      OnChange = cbBottomAxisChange
      State = cbChecked
      TabOrder = 5
    end
    object cbLeftAxis: TCheckBox
      Left = 384
      Height = 17
      Top = 40
      Width = 62
      Caption = 'Left Axis'
      Checked = True
      OnChange = cbLeftAxisChange
      State = cbChecked
      TabOrder = 6
    end
    object cbTitle: TCheckBox
      Left = 496
      Height = 17
      Top = 8
      Width = 40
      Caption = 'Title'
      Checked = True
      OnChange = cbTitleChange
      State = cbChecked
      TabOrder = 7
    end
    object cbFooter: TCheckBox
      Left = 496
      Height = 17
      Top = 24
      Width = 52
      Caption = 'Footer'
      OnChange = cbFooterChange
      TabOrder = 8
    end
    object cbInverted: TCheckBox
      Left = 496
      Height = 17
      Top = 40
      Width = 62
      Caption = 'Inverted'
      OnChange = cbInvertedChange
      TabOrder = 9
    end
    object btnClearBar: TButton
      Left = 144
      Height = 24
      Top = 38
      Width = 40
      BorderSpacing.InnerBorder = 4
      Caption = 'Bar'
      OnClick = btnClearBarClick
      TabOrder = 10
    end
    object btnClearArea: TButton
      Left = 96
      Height = 24
      Top = 38
      Width = 40
      BorderSpacing.InnerBorder = 4
      Caption = 'Area'
      OnClick = btnClearAreaClick
      TabOrder = 11
    end
    object btnClearLine: TButton
      Left = 192
      Height = 24
      Top = 38
      Width = 40
      BorderSpacing.InnerBorder = 4
      Caption = 'Line'
      OnClick = btnClearLineClick
      TabOrder = 12
    end
    object btnClearPie: TButton
      Left = 48
      Height = 24
      Top = 38
      Width = 40
      BorderSpacing.InnerBorder = 4
      Caption = 'Pie'
      OnClick = btnClearPieClick
      TabOrder = 13
    end
    object edAddCount: TSpinEdit
      Left = 288
      Height = 21
      Top = 24
      Width = 90
      MaxValue = 1000000
      MinValue = 1
      TabOrder = 14
      Value = 1
    end
    object cbShowGridCheckBox: TCheckBox
      Left = 384
      Height = 17
      Top = 56
      Width = 70
      Caption = 'Show grid '
      Checked = True
      OnChange = cbShowGridCheckBoxChange
      State = cbChecked
      TabOrder = 15
    end
    object cbShowAxisTitles: TCheckBox
      Left = 496
      Height = 17
      Top = 56
      Width = 66
      Caption = 'Axis titles'
      OnChange = cbShowAxisTitlesChange
      TabOrder = 16
    end
    object cbMarkStyle: TComboBox
      Left = 132
      Height = 21
      Top = 76
      Width = 136
      ItemHeight = 13
      ItemIndex = 5
      Items.Strings = (
        'smsCustom'
        'smsNone'
        'smsValue'
        'smsPercent'
        'smsLabel'
        'smsLabelPercent'
        'smsLabelValue'
        'smsLegend'
        'smsPercentTotal'
        'smsLabelPercentTotal'
        'smsXValue'
      )
      Style = csDropDownList
      TabOrder = 17
      Text = 'smsLabelPercent'
    end
    object cbReticule: TComboBox
      Left = 416
      Height = 21
      Top = 76
      Width = 136
      ItemHeight = 13
      ItemIndex = 0
      Items.Strings = (
        'rmNone'
        'rmVertical'
        'rmHorizontal'
        'rmCross'
      )
      OnChange = cbReticuleChange
      Style = csDropDownList
      TabOrder = 18
      Text = 'rmNone'
    end
    object btnClearAll: TButton
      Left = 240
      Height = 24
      Top = 38
      Width = 40
      BorderSpacing.InnerBorder = 4
      Caption = 'All'
      OnClick = btnClearAllClick
      TabOrder = 19
    end
  end
end