uos/examples/formspectrum_unit.lfm at main · fredvs/uos · GitHub

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
object Form1: TForm1
  Left = 477
  Height = 258
  Top = 265
  Width = 268
  Caption = 'Filter Spectrum'
  ClientHeight = 258
  ClientWidth = 268
  OnActivate = FormActivate
  OnDestroy = FormDestroy
  LCLVersion = '3.0.0.3'
  object ProgressBar2: TProgressBar
    Left = 44
    Height = 228
    Top = 28
    Width = 19
    Orientation = pbVertical
    ParentShowHint = False
    ShowHint = True
    Smooth = True
    TabOrder = 0
  end
  object ProgressBar3: TProgressBar
    Left = 67
    Height = 228
    Top = 28
    Width = 19
    Orientation = pbVertical
    ParentShowHint = False
    ShowHint = True
    Smooth = True
    TabOrder = 1
  end
  object ProgressBar4: TProgressBar
    Left = 90
    Height = 228
    Top = 28
    Width = 19
    Orientation = pbVertical
    ParentShowHint = False
    ShowHint = True
    Smooth = True
    TabOrder = 2
  end
  object ProgressBar5: TProgressBar
    Left = 113
    Height = 228
    Top = 28
    Width = 19
    Orientation = pbVertical
    ParentShowHint = False
    ShowHint = True
    Smooth = True
    TabOrder = 3
  end
  object ProgressBar6: TProgressBar
    Left = 136
    Height = 228
    Top = 28
    Width = 19
    Orientation = pbVertical
    ParentShowHint = False
    ShowHint = True
    Smooth = True
    TabOrder = 4
  end
  object ProgressBar7: TProgressBar
    Left = 158
    Height = 228
    Top = 28
    Width = 19
    Orientation = pbVertical
    ParentShowHint = False
    ShowHint = True
    Smooth = True
    TabOrder = 5
  end
  object ProgressBar8: TProgressBar
    Left = 181
    Height = 228
    Top = 28
    Width = 19
    Orientation = pbVertical
    ParentShowHint = False
    ShowHint = True
    Smooth = True
    TabOrder = 6
  end
  object ProgressBar9: TProgressBar
    Left = 204
    Height = 228
    Top = 28
    Width = 19
    Orientation = pbVertical
    ParentShowHint = False
    ShowHint = True
    Smooth = True
    TabOrder = 7
  end
  object ProgressBar10: TProgressBar
    Left = 227
    Height = 228
    Top = 28
    Width = 19
    Orientation = pbVertical
    ParentShowHint = False
    ShowHint = True
    Smooth = True
    TabOrder = 8
  end
  object Button1: TButton
    Left = 164
    Height = 17
    Top = 7
    Width = 45
    Caption = 'Start'
    TabOrder = 9
    OnClick = Button1Click
  end
  object Label1: TLabel
    Left = 262
    Height = 1
    Top = 76
    Width = 1
    ParentColor = False
  end
  object FileNameEdit1: TFileNameEdit
    Left = 7
    Height = 27
    Top = 0
    Width = 156
    FileName = 'FileNameEdit1'
    FilterIndex = 0
    HideDirectories = False
    ButtonWidth = 23
    NumGlyphs = 1
    MaxLength = 0
    TabOrder = 10
    Text = 'FileNameEdit1'
  end
  object Button2: TButton
    Left = 213
    Height = 17
    Top = 7
    Width = 45
    Caption = 'Stop'
    TabOrder = 11
    OnClick = Button2Click
  end
  object ProgressBar1: TProgressBar
    Left = 21
    Height = 228
    Top = 28
    Width = 19
    Orientation = pbVertical
    ParentShowHint = False
    ShowHint = True
    Smooth = True
    TabOrder = 12
  end
end