-
Notifications
You must be signed in to change notification settings - Fork 8
Expand file tree
/
Copy pathunit1.lfm
More file actions
249 lines (249 loc) · 4.83 KB
/
unit1.lfm
File metadata and controls
249 lines (249 loc) · 4.83 KB
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
object Form1: TForm1
Left = 323
Height = 681
Top = 107
Width = 1122
Caption = 'Form1'
ClientHeight = 681
ClientWidth = 1122
Position = poScreenCenter
LCLVersion = '4.99.0.0'
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
object Button1: TButton
Left = 8
Height = 25
Top = 8
Width = 104
Caption = 'Load Image'
TabOrder = 0
OnClick = Button1Click
end
object Image1: TImage
Left = 120
Height = 128
Top = 8
Width = 256
Center = True
Proportional = True
Stretch = True
end
object Button2: TButton
Left = 384
Height = 128
Top = 8
Width = 32
Caption = '->'
TabOrder = 1
OnClick = Button2Click
end
object Image2: TImage
Left = 424
Height = 128
Top = 8
Width = 256
Center = True
Proportional = True
Stretch = True
OnMouseDown = Image2MouseDown
end
object Button3: TButton
Left = 8
Height = 25
Top = 184
Width = 104
Caption = 'Load .wav'
TabOrder = 2
OnClick = Button3Click
end
object Chart1: TChart
Left = 120
Height = 457
Top = 184
Width = 996
AxisList = <
item
Marks.LabelBrush.Style = bsClear
Minors = <>
Range.Max = 1
Range.Min = -1
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>
Title.Text.Strings = (
'TAChart'
)
Anchors = [akTop, akLeft, akRight, akBottom]
object Chart1LineSeries1: TLineSeries
end
object Chart1LineSeries2: TLineSeries
LinePen.Color = clRed
LinePen.Width = 2
end
end
object Button4: TButton
Left = 8
Height = 25
Top = 455
Width = 104
Caption = 'Preview'
TabOrder = 4
OnClick = Button4Click
end
object Memo1: TMemo
Left = 696
Height = 128
Top = 8
Width = 420
Anchors = [akTop, akLeft, akRight]
Lines.Strings = (
'Memo1'
)
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 5
WordWrap = False
end
object Button5: TButton
Left = 432
Height = 25
Top = 145
Width = 243
Caption = 'Create wave from sine'
TabOrder = 6
OnClick = Button5Click
end
object Edit1: TEdit
Left = 120
Height = 26
Top = 145
Width = 80
TabOrder = 7
Text = 'Edit1'
end
object Label1: TLabel
Left = 208
Height = 16
Top = 152
Width = 15
Caption = 'Hz'
end
object Label2: TLabel
Left = 270
Height = 16
Hint = 'Only relevant for create wave from sine, '#13#10'will be calculated during image conversion '#13#10'("->" Button)'
Top = 152
Width = 53
Caption = 'Duration'
ParentShowHint = False
ShowHint = True
end
object Edit2: TEdit
Left = 318
Height = 26
Top = 145
Width = 80
TabOrder = 8
Text = 'Edit2'
end
object Label3: TLabel
Left = 406
Height = 16
Hint = 'Only relevant for create wave from sine, '#13#10'will be calculated during image conversion '#13#10'("->" Button)'
Top = 153
Width = 13
Caption = '[s]'
ParentShowHint = False
ShowHint = True
end
object ScrollBar1: TScrollBar
Left = 8
Height = 121
Top = 328
Width = 14
Kind = sbVertical
PageSize = 0
TabOrder = 9
OnChange = ScrollBar1Change
end
object Label4: TLabel
Left = 8
Height = 16
Top = 304
Width = 46
Caption = 'Volume'
end
object Label5: TLabel
Left = 40
Height = 16
Top = 384
Width = 40
Caption = 'Label5'
end
object Button6: TButton
Left = 696
Height = 25
Top = 143
Width = 243
Caption = 'Create Wave from different wave'
TabOrder = 10
OnClick = Button6Click
end
object Button7: TButton
Left = 8
Height = 25
Top = 616
Width = 104
Caption = 'Export .wav'
TabOrder = 11
OnClick = Button7Click
end
object CheckBox1: TCheckBox
Left = 8
Height = 22
Top = 114
Width = 63
Caption = 'debug'
TabOrder = 12
end
object Button8: TButton
Left = 8
Height = 25
Top = 648
Width = 1108
Anchors = [akLeft, akRight, akBottom]
Caption = 'Close'
TabOrder = 13
OnClick = Button8Click
end
object OpenPictureDialog1: TOpenPictureDialog
Left = 63
Top = 36
end
object SaveDialog1: TSaveDialog
DefaultExt = '.bmp'
Filter = 'Windows Bitmap|*.bmp|All|*.*'
Left = 480
Top = 48
end
object OpenDialog1: TOpenDialog
DefaultExt = '.wav'
Filter = 'Audio File|*.wav|All|*.*'
Left = 48
Top = 216
end
object SaveDialog2: TSaveDialog
DefaultExt = '.wav'
Filter = 'Audio File|*.wav|All|*.*'
Left = 48
Top = 284
end
end