mini_projects/miniprojects/Spectrum_analyzer/unit1.lfm at main · PascalCorpsman/mini_projects · 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
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
object Form1: TForm1
  Left = 324
  Height = 637
  Top = 108
  Width = 760
  Caption = 'Form1'
  ClientHeight = 637
  ClientWidth = 760
  Position = poScreenCenter
  LCLVersion = '4.99.0.0'
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  object Button1: TButton
    Left = 16
    Height = 25
    Top = 8
    Width = 104
    Caption = 'Load .wav'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Image1: TImage
    Left = 72
    Height = 480
    Top = 96
    Width = 640
    Stretch = True
    OnMouseDown = Image1MouseDown
    OnMouseMove = Image1MouseMove
  end
  object Label1: TLabel
    Left = 8
    Height = 16
    Top = 560
    Width = 56
    Alignment = taRightJustify
    AutoSize = False
    Caption = '0 hz'
  end
  object Label2: TLabel
    Left = 8
    Height = 16
    Top = 96
    Width = 56
    Alignment = taRightJustify
    AutoSize = False
    Caption = '3000 hz'
  end
  object Label3: TLabel
    Left = 72
    Height = 16
    Top = 584
    Width = 26
    Caption = '0ms'
  end
  object Label4: TLabel
    Left = 712
    Height = 16
    Top = 584
    Width = 40
    Caption = 'Label4'
  end
  object Button2: TButton
    Left = 136
    Height = 25
    Top = 8
    Width = 155
    Caption = 'Create empty board'
    TabOrder = 1
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 16
    Height = 25
    Top = 64
    Width = 49
    Caption = '/\'
    TabOrder = 2
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 16
    Height = 25
    Top = 120
    Width = 49
    Caption = '\/'
    TabOrder = 3
    OnClick = Button4Click
  end
  object Label5: TLabel
    Left = 344
    Height = 16
    Top = 73
    Width = 40
    Caption = 'Label5'
  end
  object CheckBox1: TCheckBox
    Left = 632
    Height = 22
    Top = 67
    Width = 80
    Caption = 'Colorized'
    TabOrder = 4
    OnChange = CheckBox1Change
  end
  object Label6: TLabel
    Left = 576
    Height = 16
    Top = 609
    Width = 136
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Label6'
  end
  object Label7: TLabel
    Left = 328
    Height = 64
    Top = 296
    Width = 139
    Caption = 'Please '#10'- Load a .wav file '#10'- Create a empty board '#10'to show spectrum.'
  end
  object CheckBox2: TCheckBox
    Left = 72
    Height = 22
    Hint = 'Left = inc amplitude'#10'Right = dec amplitude'
    Top = 603
    Width = 47
    Caption = 'Edit'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
  end
  object ScrollBar1: TScrollBar
    Left = 144
    Height = 14
    Top = 608
    Width = 121
    Max = 10
    Min = 2
    PageSize = 0
    Position = 2
    TabOrder = 6
  end
  object Button5: TButton
    Left = 637
    Height = 25
    Top = 8
    Width = 75
    Caption = 'Save .wav'
    TabOrder = 7
    OnClick = Button5Click
  end
  object CheckBox3: TCheckBox
    Left = 293
    Height = 22
    Top = 603
    Width = 109
    Caption = 'Edit as overlay'
    TabOrder = 8
    OnClick = CheckBox3Click
  end
  object Button6: TButton
    Left = 320
    Height = 25
    Top = 8
    Width = 75
    Caption = 'Preview'
    TabOrder = 9
    OnClick = Button6Click
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '.wav'
    Filter = 'Wave files|*.wav|All files|*'
    Left = 128
    Top = 120
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '.wav'
    Filter = 'Wave files|*.wav|All files|*'
    Left = 648
    Top = 120
  end
end