Commit 26973f8

Nick Faro committed on
Fix segfault issue on Arch 
Somehow the LCL causes a segfault when it tries to get the monitor's DPI
on Arch. This seems to be resolved by letting Lazarus update the forms
(by slightly moving them around in the IDE, it reorganizes a bunch of
properties and updates the LCL version.... which seems to fix things). I
don't understand it, but oh well.

 https://gitlab.com/freepascal.org/lazarus/lazarus/-/issues/41025
commit 26973f80074a3f297b3f6841eef9a73fa21d23d5 parent b7d32e6
6 changed files +1204−1197
Modifiedsrc/about_hugetracker.lfm +36−35
@@ -1,21 +1,22 @@
1 object frmAboutHugetracker: TfrmAboutHugetracker 1 object frmAboutHugetracker: TfrmAboutHugetracker
2 Left = 1719 2 Left = 615
3 Height = 350 3 Height = 467
4 Top = 326 4 Top = 457
5 Width = 545 5 Width = 727
6 BorderStyle = bsDialog 6 BorderStyle = bsDialog
7 Caption = 'About hUGETracker' 7 Caption = 'About hUGETracker'
8 ClientHeight = 350 8 ClientHeight = 467
9 ClientWidth = 545 9 ClientWidth = 727
10 DesignTimePPI = 128
10 OnCreate = FormCreate 11 OnCreate = FormCreate
11 OnDeactivate = FormDeactivate 12 OnDeactivate = FormDeactivate
12 Position = poDesktopCenter 13 Position = poDesktopCenter
13 LCLVersion = '2.2.7.0' 14 LCLVersion = '3.0.0.3'
14 object Label1: TLabel 15 object Label1: TLabel
15 Left = 179 16 Left = 239
16 Height = 17 17 Height = 23
17 Top = 144 18 Top = 192
18 Width = 186 19 Width = 251
19 Alignment = taCenter 20 Alignment = taCenter
20 Caption = 'Created by Nick "SuperDisk" Faro' 21 Caption = 'Created by Nick "SuperDisk" Faro'
21 ParentColor = False 22 ParentColor = False
@@ -23,46 +24,46 @@ object frmAboutHugetracker: TfrmAboutHugetracker
23 WordWrap = True 24 WordWrap = True
24 end 25 end
25 object Button1: TButton 26 object Button1: TButton
26 Left = 207 27 Left = 276
27 Height = 25 28 Height = 33
28 Top = 312 29 Top = 416
29 Width = 135 30 Width = 180
30 Caption = 'Close' 31 Caption = 'Close'
31 OnClick = Button1Click
32 ParentFont = False 32 ParentFont = False
33 TabOrder = 0 33 TabOrder = 0
34 OnClick = Button1Click
34 end 35 end
35 object Label2: TLabel 36 object Label2: TLabel
36 Left = 144 37 Left = 192
37 Height = 102 38 Height = 138
38 Top = 192 39 Top = 256
39 Width = 104 40 Width = 142
40 Caption = 'Christian Hackbart'#13#10'Toxa'#13#10'RichardULZ'#13#10'Daid'#13#10'LIJI32'#13#10'ISSOtm' 41 Caption = 'Christian Hackbart'#13#10'Toxa'#13#10'RichardULZ'#13#10'Daid'#13#10'LIJI32'#13#10'ISSOtm'
41 ParentColor = False 42 ParentColor = False
42 end 43 end
43 object Label3: TLabel 44 object Label3: TLabel
44 Left = 320 45 Left = 427
45 Height = 102 46 Height = 138
46 Top = 192 47 Top = 256
47 Width = 81 48 Width = 113
48 Caption = 'Eevee'#13#10'B00daW'#13#10'MelonadeM'#13#10'Goodnight Girl'#13#10'Kabcorp'#13#10'TakuikaNinja' 49 Caption = 'Eevee'#13#10'B00daW'#13#10'MelonadeM'#13#10'Goodnight Girl'#13#10'Kabcorp'#13#10'TakuikaNinja'
49 ParentColor = False 50 ParentColor = False
50 end 51 end
51 object Label4: TLabel 52 object Label4: TLabel
52 Left = 232 53 Left = 309
53 Height = 17 54 Height = 23
54 Top = 168 55 Top = 224
55 Width = 80 56 Width = 109
56 Caption = 'Special thanks' 57 Caption = 'Special thanks'
57 Font.Height = -12 58 Font.Height = -16
58 Font.Style = [fsUnderline] 59 Font.Style = [fsUnderline]
59 ParentColor = False 60 ParentColor = False
60 ParentFont = False 61 ParentFont = False
61 end 62 end
62 object Panel1: TPanel 63 object Panel1: TPanel
63 Left = 10 64 Left = 13
64 Height = 93 65 Height = 93
65 Top = 10 66 Top = 13
66 Width = 524 67 Width = 524
67 AutoSize = True 68 AutoSize = True
68 BevelWidth = 3 69 BevelWidth = 3
@@ -5717,10 +5718,10 @@ object frmAboutHugetracker: TfrmAboutHugetracker
5717 end 5718 end
5718 end 5719 end
5719 object VersionLabel: TLabel 5720 object VersionLabel: TLabel
5720 Left = 10 5721 Left = 13
5721 Height = 24 5722 Height = 32
5722 Top = 104 5723 Top = 139
5723 Width = 524 5724 Width = 699
5724 Alignment = taRightJustify 5725 Alignment = taRightJustify
5725 AutoSize = False 5726 AutoSize = False
5726 Caption = 'Version' 5727 Caption = 'Version'
Modifiedsrc/effecteditor.lfm +102−101
@@ -1,13 +1,14 @@
1 object frmEffectEditor: TfrmEffectEditor 1 object frmEffectEditor: TfrmEffectEditor
2 Left = 1357 2 Left = 640
3 Height = 238 3 Height = 317
4 Top = 431 4 Top = 502
5 Width = 391 5 Width = 521
6 BorderIcons = [biSystemMenu, biMinimize] 6 BorderIcons = [biSystemMenu, biMinimize]
7 BorderStyle = bsDialog 7 BorderStyle = bsDialog
8 Caption = 'Effect Editor' 8 Caption = 'Effect Editor'
9 ClientHeight = 238 9 ClientHeight = 317
10 ClientWidth = 391 10 ClientWidth = 521
11 DesignTimePPI = 128
11 FormStyle = fsStayOnTop 12 FormStyle = fsStayOnTop
12 KeyPreview = True 13 KeyPreview = True
13 OnCloseQuery = FormCloseQuery 14 OnCloseQuery = FormCloseQuery
@@ -15,14 +16,14 @@ object frmEffectEditor: TfrmEffectEditor
15 OnShow = FormCreate 16 OnShow = FormCreate
16 Position = poMainFormCenter 17 Position = poMainFormCenter
17 ShowInTaskBar = stNever 18 ShowInTaskBar = stNever
18 LCLVersion = '2.0.11.0' 19 LCLVersion = '3.0.0.3'
19 object ComboBox1: TComboBox 20 object ComboBox1: TComboBox
20 Left = 78 21 Left = 104
21 Height = 23 22 Height = 31
22 Top = 9 23 Top = 12
23 Width = 303 24 Width = 404
24 DropDownCount = 99 25 DropDownCount = 99
25 ItemHeight = 15 26 ItemHeight = 0
26 ItemIndex = 0 27 ItemIndex = 0
27 Items.Strings = ( 28 Items.Strings = (
28 '0 - Arpeggio' 29 '0 - Arpeggio'
@@ -42,34 +43,34 @@ object frmEffectEditor: TfrmEffectEditor
42 'E - Note Cut' 43 'E - Note Cut'
43 'F - Set Speed' 44 'F - Set Speed'
44 ) 45 )
45 OnChange = ComboBox1Change
46 ParentFont = False 46 ParentFont = False
47 Style = csDropDownList 47 Style = csDropDownList
48 TabOrder = 0 48 TabOrder = 0
49 Text = '0 - Arpeggio' 49 Text = '0 - Arpeggio'
50 OnChange = ComboBox1Change
50 end 51 end
51 object Label1: TLabel 52 object Label1: TLabel
52 Left = 14 53 Left = 19
53 Height = 15 54 Height = 23
54 Top = 14 55 Top = 19
55 Width = 56 56 Width = 80
56 Caption = 'Effect type' 57 Caption = 'Effect type'
57 ParentColor = False 58 ParentColor = False
58 ParentFont = False 59 ParentFont = False
59 end 60 end
60 object Notebook1: TNotebook 61 object Notebook1: TNotebook
61 Left = 14 62 Left = 19
62 Height = 183 63 Height = 244
63 Top = 46 64 Top = 61
64 Width = 367 65 Width = 489
65 PageIndex = 0 66 PageIndex = 0
66 TabOrder = 1 67 TabOrder = 1
67 object OneParamPage: TPage 68 object OneParamPage: TPage
68 object OneParamTrackBar: TTrackBar 69 object OneParamTrackBar: TTrackBar
69 Left = 18 70 Left = 24
70 Height = 25 71 Height = 59
71 Top = 41 72 Top = 55
72 Width = 334 73 Width = 445
73 Max = 255 74 Max = 255
74 OnChange = OneParamTrackBarChange 75 OnChange = OneParamTrackBarChange
75 Position = 0 76 Position = 0
@@ -77,10 +78,10 @@ object frmEffectEditor: TfrmEffectEditor
77 TabOrder = 0 78 TabOrder = 0
78 end 79 end
79 object Value: TLabel 80 object Value: TLabel
80 Left = 18 81 Left = 24
81 Height = 17 82 Height = 23
82 Top = 9 83 Top = 12
83 Width = 334 84 Width = 445
84 Alignment = taCenter 85 Alignment = taCenter
85 AutoSize = False 86 AutoSize = False
86 Caption = 'Value' 87 Caption = 'Value'
@@ -90,10 +91,10 @@ object frmEffectEditor: TfrmEffectEditor
90 end 91 end
91 object TwoParamsPage: TPage 92 object TwoParamsPage: TPage
92 object TwoParamsTrackBar1: TTrackBar 93 object TwoParamsTrackBar1: TTrackBar
93 Left = 18 94 Left = 24
94 Height = 25 95 Height = 33
95 Top = 41 96 Top = 55
96 Width = 334 97 Width = 445
97 Max = 15 98 Max = 15
98 OnChange = TwoParamsTrackBar1Change 99 OnChange = TwoParamsTrackBar1Change
99 Position = 0 100 Position = 0
@@ -101,10 +102,10 @@ object frmEffectEditor: TfrmEffectEditor
101 TabOrder = 0 102 TabOrder = 0
102 end 103 end
103 object TwoParamsTrackBar2: TTrackBar 104 object TwoParamsTrackBar2: TTrackBar
104 Left = 18 105 Left = 24
105 Height = 25 106 Height = 33
106 Top = 78 107 Top = 104
107 Width = 334 108 Width = 445
108 Max = 15 109 Max = 15
109 OnChange = TwoParamsTrackBar2Change 110 OnChange = TwoParamsTrackBar2Change
110 Position = 0 111 Position = 0
@@ -112,10 +113,10 @@ object frmEffectEditor: TfrmEffectEditor
112 TabOrder = 1 113 TabOrder = 1
113 end 114 end
114 object Value1: TLabel 115 object Value1: TLabel
115 Left = 18 116 Left = 24
116 Height = 17 117 Height = 23
117 Top = 9 118 Top = 12
118 Width = 334 119 Width = 445
119 Alignment = taCenter 120 Alignment = taCenter
120 AutoSize = False 121 AutoSize = False
121 Caption = 'Value1' 122 Caption = 'Value1'
@@ -126,9 +127,9 @@ object frmEffectEditor: TfrmEffectEditor
126 object VibratoPage: TPage 127 object VibratoPage: TPage
127 object VibratoDepthTrackBar: TTrackBar 128 object VibratoDepthTrackBar: TTrackBar
128 Left = 0 129 Left = 0
129 Height = 25 130 Height = 33
130 Top = 24 131 Top = 32
131 Width = 360 132 Width = 480
132 Max = 15 133 Max = 15
133 OnChange = VibratoDepthTrackBarChange 134 OnChange = VibratoDepthTrackBarChange
134 Position = 0 135 Position = 0
@@ -136,7 +137,7 @@ object frmEffectEditor: TfrmEffectEditor
136 TabOrder = 0 137 TabOrder = 0
137 end 138 end
138 object Label2: TLabel 139 object Label2: TLabel
139 Left = 168 140 Left = 224
140 Height = 15 141 Height = 15
141 Top = 0 142 Top = 0
142 Width = 32 143 Width = 32
@@ -145,10 +146,10 @@ object frmEffectEditor: TfrmEffectEditor
145 ParentFont = False 146 ParentFont = False
146 end 147 end
147 object VibratoComboBox: TComboBox 148 object VibratoComboBox: TComboBox
148 Left = 96 149 Left = 128
149 Height = 23 150 Height = 23
150 Top = 88 151 Top = 117
151 Width = 176 152 Width = 235
152 ItemHeight = 15 153 ItemHeight = 15
153 ItemIndex = 0 154 ItemIndex = 0
154 Items.Strings = ( 155 Items.Strings = (
@@ -169,15 +170,15 @@ object frmEffectEditor: TfrmEffectEditor
169 'e: __--------------__-------' 170 'e: __--------------__-------'
170 'f: _---------------_--------' 171 'f: _---------------_--------'
171 ) 172 )
172 OnChange = VibratoComboBoxChange
173 Style = csDropDownList 173 Style = csDropDownList
174 TabOrder = 1 174 TabOrder = 1
175 Text = '0: _________________________' 175 Text = '0: _________________________'
176 OnChange = VibratoComboBoxChange
176 end 177 end
177 object Label3: TLabel 178 object Label3: TLabel
178 Left = 160 179 Left = 213
179 Height = 15 180 Height = 15
180 Top = 64 181 Top = 85
181 Width = 55 182 Width = 55
182 Caption = 'Waveform' 183 Caption = 'Waveform'
183 ParentColor = False 184 ParentColor = False
@@ -185,10 +186,10 @@ object frmEffectEditor: TfrmEffectEditor
185 end 186 end
186 object MasterVolumePage: TPage 187 object MasterVolumePage: TPage
187 object Value2: TLabel 188 object Value2: TLabel
188 Left = 18 189 Left = 24
189 Height = 17 190 Height = 23
190 Top = 18 191 Top = 24
191 Width = 334 192 Width = 445
192 Alignment = taCenter 193 Alignment = taCenter
193 AutoSize = False 194 AutoSize = False
194 Caption = 'Value2' 195 Caption = 'Value2'
@@ -196,10 +197,10 @@ object frmEffectEditor: TfrmEffectEditor
196 ParentFont = False 197 ParentFont = False
197 end 198 end
198 object LeftVolumeTrackBar: TTrackBar 199 object LeftVolumeTrackBar: TTrackBar
199 Left = 18 200 Left = 24
200 Height = 25 201 Height = 33
201 Top = 50 202 Top = 67
202 Width = 334 203 Width = 445
203 Max = 7 204 Max = 7
204 OnChange = RightVolumeTrackBarChange 205 OnChange = RightVolumeTrackBarChange
205 Position = 0 206 Position = 0
@@ -207,10 +208,10 @@ object frmEffectEditor: TfrmEffectEditor
207 TabOrder = 0 208 TabOrder = 0
208 end 209 end
209 object RightVolumeTrackBar: TTrackBar 210 object RightVolumeTrackBar: TTrackBar
210 Left = 18 211 Left = 24
211 Height = 25 212 Height = 33
212 Top = 87 213 Top = 116
213 Width = 334 214 Width = 445
214 Max = 7 215 Max = 7
215 OnChange = RightVolumeTrackBarChange 216 OnChange = RightVolumeTrackBarChange
216 Position = 0 217 Position = 0
@@ -221,9 +222,9 @@ object frmEffectEditor: TfrmEffectEditor
221 object PanningPage: TPage 222 object PanningPage: TPage
222 object LeftPanCheckGroup: TCheckGroup 223 object LeftPanCheckGroup: TCheckGroup
223 Left = 0 224 Left = 0
224 Height = 183 225 Height = 244
225 Top = 0 226 Top = 0
226 Width = 181 227 Width = 241
227 AutoFill = True 228 AutoFill = True
228 Caption = 'Left' 229 Caption = 'Left'
229 ChildSizing.LeftRightSpacing = 6 230 ChildSizing.LeftRightSpacing = 6
@@ -234,56 +235,56 @@ object frmEffectEditor: TfrmEffectEditor
234 ChildSizing.ShrinkVertical = crsScaleChilds 235 ChildSizing.ShrinkVertical = crsScaleChilds
235 ChildSizing.Layout = cclLeftToRightThenTopToBottom 236 ChildSizing.Layout = cclLeftToRightThenTopToBottom
236 ChildSizing.ControlsPerLine = 1 237 ChildSizing.ControlsPerLine = 1
237 ClientHeight = 148 238 ClientHeight = 219
238 ClientWidth = 177 239 ClientWidth = 237
239 ParentFont = False 240 ParentFont = False
240 TabOrder = 0 241 TabOrder = 0
241 object CheckBox1: TCheckBox 242 object CheckBox1: TCheckBox
242 Left = 3 243 Left = 4
243 Height = 69 244 Height = 69
244 Top = 3 245 Top = 4
245 Width = 300 246 Width = 300
246 Caption = 'Duty 1' 247 Caption = 'Duty 1'
247 OnClick = CheckBox1Change
248 ParentFont = False 248 ParentFont = False
249 TabOrder = 0 249 TabOrder = 0
250 OnClick = CheckBox1Change
250 end 251 end
251 object CheckBox2: TCheckBox 252 object CheckBox2: TCheckBox
252 Left = 3 253 Left = 4
253 Height = 69 254 Height = 69
254 Top = 43 255 Top = 57
255 Width = 300 256 Width = 300
256 Caption = 'Duty 2' 257 Caption = 'Duty 2'
257 OnClick = CheckBox1Change
258 ParentFont = False 258 ParentFont = False
259 TabOrder = 1 259 TabOrder = 1
260 OnClick = CheckBox1Change
260 end 261 end
261 object CheckBox3: TCheckBox 262 object CheckBox3: TCheckBox
262 Left = 3 263 Left = 4
263 Height = 69 264 Height = 69
264 Top = 82 265 Top = 109
265 Width = 300 266 Width = 300
266 Caption = 'Wave' 267 Caption = 'Wave'
267 OnClick = CheckBox1Change
268 ParentFont = False 268 ParentFont = False
269 TabOrder = 2 269 TabOrder = 2
270 OnClick = CheckBox1Change
270 end 271 end
271 object CheckBox4: TCheckBox 272 object CheckBox4: TCheckBox
272 Left = 3 273 Left = 4
273 Height = 66 274 Height = 66
274 Top = 122 275 Top = 163
275 Width = 300 276 Width = 300
276 Caption = 'Noise' 277 Caption = 'Noise'
277 OnClick = CheckBox1Change
278 ParentFont = False 278 ParentFont = False
279 TabOrder = 3 279 TabOrder = 3
280 OnClick = CheckBox1Change
280 end 281 end
281 end 282 end
282 object RightPanCheckGroup: TCheckGroup 283 object RightPanCheckGroup: TCheckGroup
283 Left = 183 284 Left = 244
284 Height = 183 285 Height = 244
285 Top = 0 286 Top = 0
286 Width = 181 287 Width = 241
287 AutoFill = True 288 AutoFill = True
288 Caption = 'Right' 289 Caption = 'Right'
289 ChildSizing.LeftRightSpacing = 6 290 ChildSizing.LeftRightSpacing = 6
@@ -294,58 +295,58 @@ object frmEffectEditor: TfrmEffectEditor
294 ChildSizing.ShrinkVertical = crsScaleChilds 295 ChildSizing.ShrinkVertical = crsScaleChilds
295 ChildSizing.Layout = cclLeftToRightThenTopToBottom 296 ChildSizing.Layout = cclLeftToRightThenTopToBottom
296 ChildSizing.ControlsPerLine = 1 297 ChildSizing.ControlsPerLine = 1
297 ClientHeight = 148 298 ClientHeight = 219
298 ClientWidth = 177 299 ClientWidth = 237
299 ParentFont = False 300 ParentFont = False
300 TabOrder = 1 301 TabOrder = 1
301 object CheckBox5: TCheckBox 302 object CheckBox5: TCheckBox
302 Left = 3 303 Left = 4
303 Height = 69 304 Height = 69
304 Top = 3 305 Top = 4
305 Width = 300 306 Width = 300
306 Caption = 'Duty 1' 307 Caption = 'Duty 1'
307 OnClick = CheckBox1Change
308 ParentFont = False 308 ParentFont = False
309 TabOrder = 0 309 TabOrder = 0
310 OnClick = CheckBox1Change
310 end 311 end
311 object CheckBox6: TCheckBox 312 object CheckBox6: TCheckBox
312 Left = 3 313 Left = 4
313 Height = 69 314 Height = 69
314 Top = 43 315 Top = 57
315 Width = 300 316 Width = 300
316 Caption = 'Duty 2' 317 Caption = 'Duty 2'
317 OnClick = CheckBox1Change
318 ParentFont = False 318 ParentFont = False
319 TabOrder = 1 319 TabOrder = 1
320 OnClick = CheckBox1Change
320 end 321 end
321 object CheckBox7: TCheckBox 322 object CheckBox7: TCheckBox
322 Left = 3 323 Left = 4
323 Height = 69 324 Height = 69
324 Top = 82 325 Top = 109
325 Width = 300 326 Width = 300
326 Caption = 'Wave' 327 Caption = 'Wave'
327 OnClick = CheckBox1Change
328 ParentFont = False 328 ParentFont = False
329 TabOrder = 2 329 TabOrder = 2
330 OnClick = CheckBox1Change
330 end 331 end
331 object CheckBox8: TCheckBox 332 object CheckBox8: TCheckBox
332 Left = 3 333 Left = 4
333 Height = 66 334 Height = 66
334 Top = 122 335 Top = 163
335 Width = 300 336 Width = 300
336 Caption = 'Noise' 337 Caption = 'Noise'
337 OnClick = CheckBox1Change
338 ParentFont = False 338 ParentFont = False
339 TabOrder = 3 339 TabOrder = 3
340 OnClick = CheckBox1Change
340 end 341 end
341 end 342 end
342 end 343 end
343 object DutyCyclePage: TPage 344 object DutyCyclePage: TPage
344 object DutyRadioGroup: TRadioGroup 345 object DutyRadioGroup: TRadioGroup
345 Left = 55 346 Left = 73
346 Height = 169 347 Height = 225
347 Top = 0 348 Top = 0
348 Width = 242 349 Width = 323
349 AutoFill = True 350 AutoFill = True
350 Caption = 'Duty Cycle' 351 Caption = 'Duty Cycle'
351 ChildSizing.LeftRightSpacing = 6 352 ChildSizing.LeftRightSpacing = 6
@@ -355,8 +356,8 @@ object frmEffectEditor: TfrmEffectEditor
355 ChildSizing.ShrinkVertical = crsScaleChilds 356 ChildSizing.ShrinkVertical = crsScaleChilds
356 ChildSizing.Layout = cclLeftToRightThenTopToBottom 357 ChildSizing.Layout = cclLeftToRightThenTopToBottom
357 ChildSizing.ControlsPerLine = 1 358 ChildSizing.ControlsPerLine = 1
358 ClientHeight = 134 359 ClientHeight = 200
359 ClientWidth = 238 360 ClientWidth = 319
360 Items.Strings = ( 361 Items.Strings = (
361 '12.5% ( _-------_-------_------- )' 362 '12.5% ( _-------_-------_------- )'
362 '25% ( __------__------__------ )' 363 '25% ( __------__------__------ )'
Modifiedsrc/findreplace.lfm +155−155
@@ -1,30 +1,30 @@
1 object frmFindReplace: TfrmFindReplace 1 object frmFindReplace: TfrmFindReplace
2 Left = 1706 2 Left = 796
3 Height = 639 3 Height = 487
4 Top = 205 4 Top = 408
5 Width = 665 5 Width = 507
6 BorderStyle = bsDialog 6 BorderStyle = bsDialog
7 Caption = 'Find/Replace' 7 Caption = 'Find/Replace'
8 ClientHeight = 639 8 ClientHeight = 487
9 ClientWidth = 665 9 ClientWidth = 507
10 DesignTimePPI = 168 10 DesignTimePPI = 128
11 OnCreate = FormCreate 11 OnCreate = FormCreate
12 LCLVersion = '2.2.3.0' 12 LCLVersion = '3.0.0.3'
13 object GroupBox1: TGroupBox 13 object GroupBox1: TGroupBox
14 Left = 28 14 Left = 21
15 Height = 266 15 Height = 203
16 Top = 14 16 Top = 11
17 Width = 604 17 Width = 460
18 Caption = 'Find' 18 Caption = 'Find'
19 ClientHeight = 231 19 ClientHeight = 178
20 ClientWidth = 600 20 ClientWidth = 456
21 TabOrder = 0 21 TabOrder = 0
22 object FindNoteLow: TComboBox 22 object FindNoteLow: TComboBox
23 Left = 180 23 Left = 137
24 Height = 38 24 Height = 31
25 Top = 7 25 Top = 5
26 Width = 175 26 Width = 133
27 ItemHeight = 30 27 ItemHeight = 0
28 ItemIndex = 0 28 ItemIndex = 0
29 Items.Strings = ( 29 Items.Strings = (
30 'C-3' 30 'C-3'
@@ -105,71 +105,71 @@ object frmFindReplace: TfrmFindReplace
105 Text = 'C-3' 105 Text = 'C-3'
106 end 106 end
107 object FindNoteCheckbox: TCheckBox 107 object FindNoteCheckbox: TCheckBox
108 Left = 14 108 Left = 11
109 Height = 34 109 Height = 25
110 Top = 14 110 Top = 11
111 Width = 80 111 Width = 60
112 Caption = 'Note' 112 Caption = 'Note'
113 TabOrder = 1 113 TabOrder = 1
114 end 114 end
115 object FindInstrCheckbox: TCheckBox 115 object FindInstrCheckbox: TCheckBox
116 Left = 14 116 Left = 11
117 Height = 34 117 Height = 25
118 Top = 70 118 Top = 53
119 Width = 135 119 Width = 109
120 Caption = 'Instrument' 120 Caption = 'Instrument'
121 TabOrder = 2 121 TabOrder = 2
122 end 122 end
123 object FindInstrLow: TSpinEdit 123 object FindInstrLow: TSpinEdit
124 Left = 180 124 Left = 137
125 Height = 38 125 Height = 33
126 Top = 63 126 Top = 48
127 Width = 175 127 Width = 133
128 MaxValue = 15 128 MaxValue = 15
129 MinValue = 1 129 MinValue = 1
130 TabOrder = 3 130 TabOrder = 3
131 Value = 1 131 Value = 1
132 end 132 end
133 object Label1: TLabel 133 object Label1: TLabel
134 Left = 364 134 Left = 277
135 Height = 30 135 Height = 23
136 Top = 70 136 Top = 53
137 Width = 19 137 Width = 16
138 Caption = 'to' 138 Caption = 'to'
139 ParentColor = False 139 ParentColor = False
140 end 140 end
141 object FindInstrHigh: TSpinEdit 141 object FindInstrHigh: TSpinEdit
142 Left = 392 142 Left = 299
143 Height = 38 143 Height = 33
144 Top = 63 144 Top = 48
145 Width = 175 145 Width = 133
146 MaxValue = 15 146 MaxValue = 15
147 MinValue = 1 147 MinValue = 1
148 TabOrder = 4 148 TabOrder = 4
149 Value = 1 149 Value = 1
150 end 150 end
151 object FindFXCodeCheckbox: TCheckBox 151 object FindFXCodeCheckbox: TCheckBox
152 Left = 14 152 Left = 11
153 Height = 34 153 Height = 25
154 Top = 126 154 Top = 96
155 Width = 138 155 Width = 107
156 Caption = 'Effect code' 156 Caption = 'Effect code'
157 TabOrder = 5 157 TabOrder = 5
158 end 158 end
159 object FindFXParamCheckbox: TCheckBox 159 object FindFXParamCheckbox: TCheckBox
160 Left = 14 160 Left = 11
161 Height = 34 161 Height = 25
162 Top = 182 162 Top = 139
163 Width = 161 163 Width = 127
164 Caption = 'Effect params' 164 Caption = 'Effect params'
165 TabOrder = 6 165 TabOrder = 6
166 end 166 end
167 object FindFXCodeLow: TComboBox 167 object FindFXCodeLow: TComboBox
168 Left = 180 168 Left = 137
169 Height = 38 169 Height = 31
170 Top = 119 170 Top = 91
171 Width = 175 171 Width = 133
172 ItemHeight = 30 172 ItemHeight = 0
173 ItemIndex = 0 173 ItemIndex = 0
174 Items.Strings = ( 174 Items.Strings = (
175 '0' 175 '0'
@@ -194,19 +194,19 @@ object frmFindReplace: TfrmFindReplace
194 Text = '0' 194 Text = '0'
195 end 195 end
196 object Label2: TLabel 196 object Label2: TLabel
197 Left = 364 197 Left = 277
198 Height = 30 198 Height = 23
199 Top = 126 199 Top = 96
200 Width = 19 200 Width = 16
201 Caption = 'to' 201 Caption = 'to'
202 ParentColor = False 202 ParentColor = False
203 end 203 end
204 object FindFXCodeHigh: TComboBox 204 object FindFXCodeHigh: TComboBox
205 Left = 392 205 Left = 299
206 Height = 38 206 Height = 31
207 Top = 119 207 Top = 91
208 Width = 175 208 Width = 133
209 ItemHeight = 30 209 ItemHeight = 0
210 ItemIndex = 0 210 ItemIndex = 0
211 Items.Strings = ( 211 Items.Strings = (
212 '0' 212 '0'
@@ -231,11 +231,11 @@ object frmFindReplace: TfrmFindReplace
231 Text = '0' 231 Text = '0'
232 end 232 end
233 object FindFXParamLow: TComboBox 233 object FindFXParamLow: TComboBox
234 Left = 180 234 Left = 137
235 Height = 38 235 Height = 33
236 Top = 175 236 Top = 133
237 Width = 175 237 Width = 133
238 ItemHeight = 30 238 ItemHeight = 0
239 ItemIndex = 0 239 ItemIndex = 0
240 Items.Strings = ( 240 Items.Strings = (
241 '00' 241 '00'
@@ -499,19 +499,19 @@ object frmFindReplace: TfrmFindReplace
499 Text = '00' 499 Text = '00'
500 end 500 end
501 object Label3: TLabel 501 object Label3: TLabel
502 Left = 364 502 Left = 277
503 Height = 30 503 Height = 23
504 Top = 182 504 Top = 139
505 Width = 19 505 Width = 16
506 Caption = 'to' 506 Caption = 'to'
507 ParentColor = False 507 ParentColor = False
508 end 508 end
509 object FindFXParamHigh: TComboBox 509 object FindFXParamHigh: TComboBox
510 Left = 392 510 Left = 299
511 Height = 38 511 Height = 33
512 Top = 175 512 Top = 133
513 Width = 175 513 Width = 133
514 ItemHeight = 30 514 ItemHeight = 0
515 ItemIndex = 0 515 ItemIndex = 0
516 Items.Strings = ( 516 Items.Strings = (
517 '00' 517 '00'
@@ -775,19 +775,19 @@ object frmFindReplace: TfrmFindReplace
775 Text = '00' 775 Text = '00'
776 end 776 end
777 object Label4: TLabel 777 object Label4: TLabel
778 Left = 364 778 Left = 277
779 Height = 30 779 Height = 23
780 Top = 14 780 Top = 11
781 Width = 19 781 Width = 16
782 Caption = 'to' 782 Caption = 'to'
783 ParentColor = False 783 ParentColor = False
784 end 784 end
785 object FindNoteHigh: TComboBox 785 object FindNoteHigh: TComboBox
786 Left = 392 786 Left = 299
787 Height = 38 787 Height = 31
788 Top = 7 788 Top = 5
789 Width = 175 789 Width = 133
790 ItemHeight = 30 790 ItemHeight = 0
791 ItemIndex = 0 791 ItemIndex = 0
792 Items.Strings = ( 792 Items.Strings = (
793 'C-3' 793 'C-3'
@@ -869,71 +869,71 @@ object frmFindReplace: TfrmFindReplace
869 end 869 end
870 end 870 end
871 object Button1: TButton 871 object Button1: TButton
872 Left = 28 872 Left = 21
873 Height = 44 873 Height = 34
874 Top = 574 874 Top = 437
875 Width = 131 875 Width = 100
876 Caption = 'Replace' 876 Caption = 'Replace'
877 OnClick = Button1Click
878 TabOrder = 1 877 TabOrder = 1
878 OnClick = Button1Click
879 end 879 end
880 object GroupBox2: TGroupBox 880 object GroupBox2: TGroupBox
881 Left = 28 881 Left = 21
882 Height = 266 882 Height = 203
883 Top = 294 883 Top = 224
884 Width = 604 884 Width = 460
885 Caption = 'Replace' 885 Caption = 'Replace'
886 ClientHeight = 231 886 ClientHeight = 178
887 ClientWidth = 600 887 ClientWidth = 456
888 TabOrder = 2 888 TabOrder = 2
889 object ReplaceNoteCheckbox: TCheckBox 889 object ReplaceNoteCheckbox: TCheckBox
890 Left = 14 890 Left = 11
891 Height = 34 891 Height = 25
892 Top = 14 892 Top = 11
893 Width = 80 893 Width = 60
894 Caption = 'Note' 894 Caption = 'Note'
895 TabOrder = 0 895 TabOrder = 0
896 end 896 end
897 object ReplaceInstrCheckbox: TCheckBox 897 object ReplaceInstrCheckbox: TCheckBox
898 Left = 14 898 Left = 11
899 Height = 34 899 Height = 25
900 Top = 70 900 Top = 53
901 Width = 135 901 Width = 109
902 Caption = 'Instrument' 902 Caption = 'Instrument'
903 TabOrder = 1 903 TabOrder = 1
904 end 904 end
905 object InstrReplaceValue: TSpinEdit 905 object InstrReplaceValue: TSpinEdit
906 Left = 392 906 Left = 299
907 Height = 38 907 Height = 33
908 Top = 63 908 Top = 48
909 Width = 175 909 Width = 133
910 MaxValue = 15 910 MaxValue = 15
911 MinValue = 1 911 MinValue = 1
912 TabOrder = 2 912 TabOrder = 2
913 Value = 1 913 Value = 1
914 end 914 end
915 object ReplaceFXCodeCheckbox: TCheckBox 915 object ReplaceFXCodeCheckbox: TCheckBox
916 Left = 14 916 Left = 11
917 Height = 34 917 Height = 25
918 Top = 126 918 Top = 96
919 Width = 138 919 Width = 107
920 Caption = 'Effect code' 920 Caption = 'Effect code'
921 TabOrder = 3 921 TabOrder = 3
922 end 922 end
923 object ReplaceFXParamCheckbox: TCheckBox 923 object ReplaceFXParamCheckbox: TCheckBox
924 Left = 14 924 Left = 11
925 Height = 34 925 Height = 25
926 Top = 182 926 Top = 139
927 Width = 161 927 Width = 127
928 Caption = 'Effect params' 928 Caption = 'Effect params'
929 TabOrder = 4 929 TabOrder = 4
930 end 930 end
931 object FXCodeReplaceValue: TComboBox 931 object FXCodeReplaceValue: TComboBox
932 Left = 392 932 Left = 299
933 Height = 38 933 Height = 31
934 Top = 119 934 Top = 91
935 Width = 175 935 Width = 133
936 ItemHeight = 30 936 ItemHeight = 0
937 ItemIndex = 0 937 ItemIndex = 0
938 Items.Strings = ( 938 Items.Strings = (
939 '0' 939 '0'
@@ -958,11 +958,11 @@ object frmFindReplace: TfrmFindReplace
958 Text = '0' 958 Text = '0'
959 end 959 end
960 object FXParamReplaceValue: TComboBox 960 object FXParamReplaceValue: TComboBox
961 Left = 392 961 Left = 299
962 Height = 38 962 Height = 33
963 Top = 175 963 Top = 133
964 Width = 175 964 Width = 133
965 ItemHeight = 30 965 ItemHeight = 0
966 ItemIndex = 0 966 ItemIndex = 0
967 Items.Strings = ( 967 Items.Strings = (
968 '00' 968 '00'
@@ -1226,11 +1226,11 @@ object frmFindReplace: TfrmFindReplace
1226 Text = '00' 1226 Text = '00'
1227 end 1227 end
1228 object NoteReplaceValue: TComboBox 1228 object NoteReplaceValue: TComboBox
1229 Left = 392 1229 Left = 299
1230 Height = 38 1230 Height = 31
1231 Top = 7 1231 Top = 5
1232 Width = 175 1232 Width = 133
1233 ItemHeight = 30 1233 ItemHeight = 0
1234 ItemIndex = 0 1234 ItemIndex = 0
1235 Items.Strings = ( 1235 Items.Strings = (
1236 'C-3' 1236 'C-3'
@@ -1311,11 +1311,11 @@ object frmFindReplace: TfrmFindReplace
1311 Text = 'C-3' 1311 Text = 'C-3'
1312 end 1312 end
1313 object NoteReplaceOp: TComboBox 1313 object NoteReplaceOp: TComboBox
1314 Left = 180 1314 Left = 137
1315 Height = 38 1315 Height = 31
1316 Top = 7 1316 Top = 5
1317 Width = 184 1317 Width = 140
1318 ItemHeight = 30 1318 ItemHeight = 0
1319 ItemIndex = 0 1319 ItemIndex = 0
1320 Items.Strings = ( 1320 Items.Strings = (
1321 'Set to' 1321 'Set to'
@@ -1327,11 +1327,11 @@ object frmFindReplace: TfrmFindReplace
1327 Text = 'Set to' 1327 Text = 'Set to'
1328 end 1328 end
1329 object InstrReplaceOp: TComboBox 1329 object InstrReplaceOp: TComboBox
1330 Left = 180 1330 Left = 137
1331 Height = 38 1331 Height = 31
1332 Top = 63 1332 Top = 48
1333 Width = 184 1333 Width = 140
1334 ItemHeight = 30 1334 ItemHeight = 0
1335 ItemIndex = 0 1335 ItemIndex = 0
1336 Items.Strings = ( 1336 Items.Strings = (
1337 'Set to' 1337 'Set to'
@@ -1343,11 +1343,11 @@ object frmFindReplace: TfrmFindReplace
1343 Text = 'Set to' 1343 Text = 'Set to'
1344 end 1344 end
1345 object FXCodeReplaceOp: TComboBox 1345 object FXCodeReplaceOp: TComboBox
1346 Left = 180 1346 Left = 137
1347 Height = 38 1347 Height = 31
1348 Top = 119 1348 Top = 91
1349 Width = 184 1349 Width = 140
1350 ItemHeight = 30 1350 ItemHeight = 0
1351 ItemIndex = 0 1351 ItemIndex = 0
1352 Items.Strings = ( 1352 Items.Strings = (
1353 'Set to' 1353 'Set to'
@@ -1359,11 +1359,11 @@ object frmFindReplace: TfrmFindReplace
1359 Text = 'Set to' 1359 Text = 'Set to'
1360 end 1360 end
1361 object FXParamReplaceOp: TComboBox 1361 object FXParamReplaceOp: TComboBox
1362 Left = 180 1362 Left = 137
1363 Height = 38 1363 Height = 31
1364 Top = 175 1364 Top = 133
1365 Width = 184 1365 Width = 140
1366 ItemHeight = 30 1366 ItemHeight = 0
1367 ItemIndex = 0 1367 ItemIndex = 0
1368 Items.Strings = ( 1368 Items.Strings = (
1369 'Set to' 1369 'Set to'
@@ -1376,12 +1376,12 @@ object frmFindReplace: TfrmFindReplace
1376 end 1376 end
1377 end 1377 end
1378 object Button2: TButton 1378 object Button2: TButton
1379 Left = 168 1379 Left = 128
1380 Height = 44 1380 Height = 34
1381 Top = 574 1381 Top = 437
1382 Width = 131 1382 Width = 100
1383 Caption = 'Cancel' 1383 Caption = 'Cancel'
1384 OnClick = Button2Click
1385 TabOrder = 3 1384 TabOrder = 3
1385 OnClick = Button2Click
1386 end 1386 end
1387 end 1387 end
Modifiedsrc/options.lfm +274−272
@@ -1,28 +1,29 @@
1 object frmOptions: TfrmOptions 1 object frmOptions: TfrmOptions
2 Left = 1734 2 Left = 623
3 Height = 710 3 Height = 947
4 Top = 220 4 Top = 260
5 Width = 550 5 Width = 733
6 BorderStyle = bsDialog 6 BorderStyle = bsDialog
7 Caption = 'Options' 7 Caption = 'Options'
8 ClientHeight = 710 8 ClientHeight = 947
9 ClientWidth = 550 9 ClientWidth = 733
10 DesignTimePPI = 128
10 OnClose = FormClose 11 OnClose = FormClose
11 OnCreate = FormCreate 12 OnCreate = FormCreate
12 Position = poMainFormCenter 13 Position = poMainFormCenter
13 LCLVersion = '2.2.7.0' 14 LCLVersion = '3.0.0.3'
14 object Button1: TButton 15 object Button1: TButton
15 AnchorSideRight.Side = asrBottom 16 AnchorSideRight.Side = asrBottom
16 AnchorSideBottom.Side = asrBottom 17 AnchorSideBottom.Side = asrBottom
17 Left = 412 18 Left = 549
18 Height = 25 19 Height = 33
19 Top = 677 20 Top = 903
20 Width = 123 21 Width = 164
21 Anchors = [akRight, akBottom] 22 Anchors = [akRight, akBottom]
22 Caption = 'OK' 23 Caption = 'OK'
23 OnClick = Button1Click
24 ParentFont = False 24 ParentFont = False
25 TabOrder = 0 25 TabOrder = 0
26 OnClick = Button1Click
26 end 27 end
27 object OptionsPageControl: TPageControl 28 object OptionsPageControl: TPageControl
28 AnchorSideLeft.Control = Owner 29 AnchorSideLeft.Control = Owner
@@ -30,36 +31,36 @@ object frmOptions: TfrmOptions
30 AnchorSideRight.Control = Owner 31 AnchorSideRight.Control = Owner
31 AnchorSideRight.Side = asrBottom 32 AnchorSideRight.Side = asrBottom
32 AnchorSideBottom.Control = Button1 33 AnchorSideBottom.Control = Button1
33 Left = 10 34 Left = 13
34 Height = 660 35 Height = 881
35 Top = 10 36 Top = 13
36 Width = 530 37 Width = 707
37 ActivePage = CustomiztaionTabSheet 38 ActivePage = CustomiztaionTabSheet
38 Anchors = [akTop, akLeft, akRight, akBottom] 39 Anchors = [akTop, akLeft, akRight, akBottom]
39 BorderSpacing.Left = 10 40 BorderSpacing.Left = 13
40 BorderSpacing.Top = 10 41 BorderSpacing.Top = 13
41 BorderSpacing.Right = 10 42 BorderSpacing.Right = 13
42 BorderSpacing.Bottom = 7 43 BorderSpacing.Bottom = 9
43 TabIndex = 2 44 TabIndex = 2
44 TabOrder = 1 45 TabOrder = 1
45 object GeneralTabSheet: TTabSheet 46 object GeneralTabSheet: TTabSheet
46 Caption = 'General' 47 Caption = 'General'
47 ClientHeight = 625 48 ClientHeight = 840
48 ClientWidth = 524 49 ClientWidth = 701
49 object OptionsGroupBox: TGroupBox 50 object OptionsGroupBox: TGroupBox
50 Left = 8 51 Left = 11
51 Height = 568 52 Height = 757
52 Top = 8 53 Top = 11
53 Width = 392 54 Width = 523
54 Caption = 'Options' 55 Caption = 'Options'
55 ClientHeight = 549 56 ClientHeight = 732
56 ClientWidth = 388 57 ClientWidth = 519
57 TabOrder = 0 58 TabOrder = 0
58 object CheckListBox1: TCheckListBox 59 object CheckListBox1: TCheckListBox
59 Left = 8 60 Left = 11
60 Height = 528 61 Height = 704
61 Top = 8 62 Top = 11
62 Width = 370 63 Width = 493
63 Items.Strings = ( 64 Items.Strings = (
64 'Show scopes (uses more CPU)' 65 'Show scopes (uses more CPU)'
65 'Play preview when placing notes' 66 'Play preview when placing notes'
@@ -71,6 +72,7 @@ object frmOptions: TfrmOptions
71 ) 72 )
72 ItemHeight = 23 73 ItemHeight = 23
73 TabOrder = 0 74 TabOrder = 0
75 TopIndex = -1
74 Data = { 76 Data = {
75 0700000000000000000000 77 0700000000000000000000
76 } 78 }
@@ -79,40 +81,40 @@ object frmOptions: TfrmOptions
79 end 81 end
80 object KeyboardTabSheet: TTabSheet 82 object KeyboardTabSheet: TTabSheet
81 Caption = 'Keyboard' 83 Caption = 'Keyboard'
82 ClientHeight = 625 84 ClientHeight = 840
83 ClientWidth = 524 85 ClientWidth = 701
84 object KeymapGroupBox: TGroupBox 86 object KeymapGroupBox: TGroupBox
85 Left = 16 87 Left = 21
86 Height = 544 88 Height = 725
87 Top = 48 89 Top = 64
88 Width = 392 90 Width = 523
89 Caption = 'Custom key map' 91 Caption = 'Custom key map'
90 ClientHeight = 525 92 ClientHeight = 700
91 ClientWidth = 388 93 ClientWidth = 519
92 Enabled = False 94 Enabled = False
93 ParentFont = False 95 ParentFont = False
94 TabOrder = 0 96 TabOrder = 0
95 object KeyMapStringGrid: TStringGrid 97 object KeyMapStringGrid: TStringGrid
96 Left = 8 98 Left = 11
97 Height = 472 99 Height = 629
98 Top = 8 100 Top = 11
99 Width = 368 101 Width = 491
100 AutoFillColumns = True 102 AutoFillColumns = True
101 ColCount = 2 103 ColCount = 2
102 Columns = < 104 Columns = <
103 item 105 item
104 MinSize = 10 106 MinSize = 13
105 MaxSize = 200 107 MaxSize = 267
106 Title.Caption = 'Key' 108 Title.Caption = 'Key'
107 Width = 183 109 Width = 244
108 end 110 end
109 item 111 item
110 MinSize = 10 112 MinSize = 13
111 MaxSize = 200 113 MaxSize = 267
112 Title.Caption = 'Note' 114 Title.Caption = 'Note'
113 Width = 183 115 Width = 243
114 end> 116 end>
115 DefaultColWidth = 120 117 DefaultColWidth = 160
116 FixedCols = 0 118 FixedCols = 0
117 MouseWheelOption = mwGrid 119 MouseWheelOption = mwGrid
118 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAutoAddRows, goTabs, goSmoothScroll] 120 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAutoAddRows, goTabs, goSmoothScroll]
@@ -120,406 +122,406 @@ object frmOptions: TfrmOptions
120 TabOrder = 0 122 TabOrder = 0
121 OnValidateEntry = KeyMapStringGridValidateEntry 123 OnValidateEntry = KeyMapStringGridValidateEntry
122 ColWidths = ( 124 ColWidths = (
123 183 125 244
124 183 126 243
125 ) 127 )
126 end 128 end
127 object Button2: TButton 129 object Button2: TButton
128 Left = 8 130 Left = 11
129 Height = 25 131 Height = 33
130 Top = 488 132 Top = 651
131 Width = 131 133 Width = 175
132 Caption = 'Load' 134 Caption = 'Load'
133 OnClick = Button2Click
134 ParentFont = False 135 ParentFont = False
135 TabOrder = 1 136 TabOrder = 1
137 OnClick = Button2Click
136 end 138 end
137 object Button3: TButton 139 object Button3: TButton
138 Left = 144 140 Left = 192
139 Height = 25 141 Height = 33
140 Top = 488 142 Top = 651
141 Width = 126 143 Width = 168
142 Caption = 'Save' 144 Caption = 'Save'
143 OnClick = Button3Click
144 ParentFont = False 145 ParentFont = False
145 TabOrder = 2 146 TabOrder = 2
147 OnClick = Button3Click
146 end 148 end
147 object Button4: TButton 149 object Button4: TButton
148 Left = 346 150 Left = 461
149 Height = 25 151 Height = 33
150 Top = 488 152 Top = 651
151 Width = 30 153 Width = 40
152 Caption = '-' 154 Caption = '-'
153 OnClick = Button4Click
154 ParentFont = False 155 ParentFont = False
155 TabOrder = 3 156 TabOrder = 3
157 OnClick = Button4Click
156 end 158 end
157 object Button5: TButton 159 object Button5: TButton
158 Left = 312 160 Left = 416
159 Height = 25 161 Height = 33
160 Top = 488 162 Top = 651
161 Width = 30 163 Width = 40
162 Caption = '+' 164 Caption = '+'
163 OnClick = Button5Click
164 ParentFont = False 165 ParentFont = False
165 TabOrder = 4 166 TabOrder = 4
167 OnClick = Button5Click
166 end 168 end
167 end 169 end
168 object UseCustomKeymapCheckbox: TCheckBox 170 object UseCustomKeymapCheckbox: TCheckBox
169 Left = 24 171 Left = 32
170 Height = 21 172 Height = 25
171 Top = 16 173 Top = 21
172 Width = 136 174 Width = 177
173 Caption = 'Use custom keymap' 175 Caption = 'Use custom keymap'
174 OnChange = KeymapCheckboxChange
175 TabOrder = 1 176 TabOrder = 1
177 OnChange = KeymapCheckboxChange
176 end 178 end
177 end 179 end
178 object CustomiztaionTabSheet: TTabSheet 180 object CustomiztaionTabSheet: TTabSheet
179 Caption = 'Appearance' 181 Caption = 'Appearance'
180 ClientHeight = 625 182 ClientHeight = 840
181 ClientWidth = 524 183 ClientWidth = 701
182 object Panel1: TPanel 184 object Panel1: TPanel
183 Left = 312 185 Left = 416
184 Height = 608 186 Height = 811
185 Top = 8 187 Top = 11
186 Width = 200 188 Width = 267
187 BevelWidth = 3 189 BevelWidth = 3
188 ClientHeight = 608 190 ClientHeight = 811
189 ClientWidth = 200 191 ClientWidth = 267
190 TabOrder = 0 192 TabOrder = 0
191 object SampleTrackerGridPanel: TPanel 193 object SampleTrackerGridPanel: TPanel
192 Left = 3 194 Left = 3
193 Height = 602 195 Height = 805
194 Top = 3 196 Top = 3
195 Width = 194 197 Width = 261
196 Align = alClient 198 Align = alClient
197 BevelOuter = bvNone 199 BevelOuter = bvNone
198 TabOrder = 0 200 TabOrder = 0
199 end 201 end
200 end 202 end
201 object CustomizationGroupBox: TGroupBox 203 object CustomizationGroupBox: TGroupBox
202 Left = 8 204 Left = 11
203 Height = 608 205 Height = 811
204 Top = 8 206 Top = 11
205 Width = 297 207 Width = 396
206 Caption = 'Customization' 208 Caption = 'Customization'
207 ClientHeight = 589 209 ClientHeight = 786
208 ClientWidth = 293 210 ClientWidth = 392
209 TabOrder = 1 211 TabOrder = 1
210 object Label1: TLabel 212 object Label1: TLabel
211 Left = 14 213 Left = 19
212 Height = 17 214 Height = 23
213 Top = 14 215 Top = 19
214 Width = 127 216 Width = 176
215 Caption = 'Pattern editor font size' 217 Caption = 'Pattern editor font size'
216 ParentColor = False 218 ParentColor = False
217 ParentFont = False 219 ParentFont = False
218 end 220 end
219 object FontSizeSpinner: TSpinEdit 221 object FontSizeSpinner: TSpinEdit
220 Left = 155 222 Left = 207
221 Height = 27 223 Height = 33
222 Top = 9 224 Top = 12
223 Width = 123 225 Width = 164
224 OnChange = FontSizeSpinnerChange 226 OnChange = FontSizeSpinnerChange
225 ParentFont = False 227 ParentFont = False
226 TabOrder = 0 228 TabOrder = 0
227 Value = 12 229 Value = 12
228 end 230 end
229 object NoteTextColorButton: TColorButton 231 object NoteTextColorButton: TColorButton
230 Left = 155 232 Left = 207
231 Height = 25 233 Height = 33
232 Top = 40 234 Top = 53
233 Width = 123 235 Width = 164
234 BorderWidth = 2 236 BorderWidth = 3
235 ButtonColorSize = 16 237 ButtonColorSize = 21
236 ButtonColor = 8342016 238 ButtonColor = 8342016
237 OnColorChanged = NoteTextColorButtonColorChanged 239 OnColorChanged = NoteTextColorButtonColorChanged
238 end 240 end
239 object Label2: TLabel 241 object Label2: TLabel
240 Left = 14 242 Left = 19
241 Height = 17 243 Height = 23
242 Top = 40 244 Top = 53
243 Width = 82 245 Width = 113
244 Caption = 'Note text color' 246 Caption = 'Note text color'
245 ParentColor = False 247 ParentColor = False
246 end 248 end
247 object InstrumentTextColorButton: TColorButton 249 object InstrumentTextColorButton: TColorButton
248 Left = 155 250 Left = 207
249 Height = 25 251 Height = 33
250 Top = 72 252 Top = 96
251 Width = 123 253 Width = 164
252 BorderWidth = 2 254 BorderWidth = 3
253 ButtonColorSize = 16 255 ButtonColorSize = 21
254 ButtonColor = 8355584 256 ButtonColor = 8355584
255 OnColorChanged = NoteTextColorButtonColorChanged 257 OnColorChanged = NoteTextColorButtonColorChanged
256 end 258 end
257 object MiscEffectTextColorButton: TColorButton 259 object MiscEffectTextColorButton: TColorButton
258 Left = 155 260 Left = 207
259 Height = 25 261 Height = 33
260 Top = 104 262 Top = 139
261 Width = 123 263 Width = 164
262 BorderWidth = 2 264 BorderWidth = 3
263 ButtonColorSize = 16 265 ButtonColorSize = 21
264 ButtonColor = 4145020 266 ButtonColor = 4145020
265 OnColorChanged = NoteTextColorButtonColorChanged 267 OnColorChanged = NoteTextColorButtonColorChanged
266 end 268 end
267 object PitchEffectTextColorButton: TColorButton 269 object PitchEffectTextColorButton: TColorButton
268 Left = 155 270 Left = 207
269 Height = 25 271 Height = 33
270 Top = 136 272 Top = 181
271 Width = 123 273 Width = 164
272 BorderWidth = 2 274 BorderWidth = 3
273 ButtonColorSize = 16 275 ButtonColorSize = 21
274 ButtonColor = 25186 276 ButtonColor = 25186
275 OnColorChanged = NoteTextColorButtonColorChanged 277 OnColorChanged = NoteTextColorButtonColorChanged
276 end 278 end
277 object VolumeEffectTextColorButton: TColorButton 279 object VolumeEffectTextColorButton: TColorButton
278 Left = 155 280 Left = 207
279 Height = 25 281 Height = 33
280 Top = 168 282 Top = 224
281 Width = 123 283 Width = 164
282 BorderWidth = 2 284 BorderWidth = 3
283 ButtonColorSize = 16 285 ButtonColorSize = 21
284 ButtonColor = 32550 286 ButtonColor = 32550
285 OnColorChanged = NoteTextColorButtonColorChanged 287 OnColorChanged = NoteTextColorButtonColorChanged
286 end 288 end
287 object PanningEffectTextColorButton: TColorButton 289 object PanningEffectTextColorButton: TColorButton
288 Left = 155 290 Left = 207
289 Height = 25 291 Height = 33
290 Top = 200 292 Top = 267
291 Width = 123 293 Width = 164
292 BorderWidth = 2 294 BorderWidth = 3
293 ButtonColorSize = 16 295 ButtonColorSize = 21
294 ButtonColor = 8355584 296 ButtonColor = 8355584
295 OnColorChanged = NoteTextColorButtonColorChanged 297 OnColorChanged = NoteTextColorButtonColorChanged
296 end 298 end
297 object SongEffectTextColorButton: TColorButton 299 object SongEffectTextColorButton: TColorButton
298 Left = 155 300 Left = 207
299 Height = 25 301 Height = 33
300 Top = 232 302 Top = 309
301 Width = 123 303 Width = 164
302 BorderWidth = 2 304 BorderWidth = 3
303 ButtonColorSize = 16 305 ButtonColorSize = 21
304 ButtonColor = 127 306 ButtonColor = 127
305 OnColorChanged = NoteTextColorButtonColorChanged 307 OnColorChanged = NoteTextColorButtonColorChanged
306 end 308 end
307 object Label3: TLabel 309 object Label3: TLabel
308 Left = 14 310 Left = 19
309 Height = 17 311 Height = 23
310 Top = 72 312 Top = 96
311 Width = 117 313 Width = 162
312 Caption = 'Instrument text color' 314 Caption = 'Instrument text color'
313 ParentColor = False 315 ParentColor = False
314 end 316 end
315 object Label4: TLabel 317 object Label4: TLabel
316 Left = 14 318 Left = 19
317 Height = 17 319 Height = 23
318 Top = 104 320 Top = 139
319 Width = 119 321 Width = 162
320 Caption = 'Misc. effect text color' 322 Caption = 'Misc. effect text color'
321 ParentColor = False 323 ParentColor = False
322 end 324 end
323 object Label5: TLabel 325 object Label5: TLabel
324 Left = 14 326 Left = 19
325 Height = 17 327 Height = 23
326 Top = 136 328 Top = 181
327 Width = 117 329 Width = 161
328 Caption = 'Pitch effect text color' 330 Caption = 'Pitch effect text color'
329 ParentColor = False 331 ParentColor = False
330 end 332 end
331 object Label6: TLabel 333 object Label6: TLabel
332 Left = 14 334 Left = 19
333 Height = 17 335 Height = 23
334 Top = 168 336 Top = 224
335 Width = 132 337 Width = 180
336 Caption = 'Volume effect text color' 338 Caption = 'Volume effect text color'
337 ParentColor = False 339 ParentColor = False
338 end 340 end
339 object Label7: TLabel 341 object Label7: TLabel
340 Left = 14 342 Left = 19
341 Height = 17 343 Height = 23
342 Top = 200 344 Top = 267
343 Width = 135 345 Width = 186
344 Caption = 'Panning effect text color' 346 Caption = 'Panning effect text color'
345 ParentColor = False 347 ParentColor = False
346 end 348 end
347 object Label8: TLabel 349 object Label8: TLabel
348 Left = 14 350 Left = 19
349 Height = 17 351 Height = 23
350 Top = 232 352 Top = 309
351 Width = 118 353 Width = 162
352 Caption = 'Song effect text color' 354 Caption = 'Song effect text color'
353 ParentColor = False 355 ParentColor = False
354 end 356 end
355 object BackgroundColorButton: TColorButton 357 object BackgroundColorButton: TColorButton
356 Left = 155 358 Left = 207
357 Height = 25 359 Height = 33
358 Top = 296 360 Top = 395
359 Width = 123 361 Width = 164
360 BorderWidth = 2 362 BorderWidth = 3
361 ButtonColorSize = 16 363 ButtonColorSize = 21
362 ButtonColor = 13687777 364 ButtonColor = 13687777
363 OnColorChanged = NoteTextColorButtonColorChanged 365 OnColorChanged = NoteTextColorButtonColorChanged
364 end 366 end
365 object HighlightedColorButton: TColorButton 367 object HighlightedColorButton: TColorButton
366 Left = 155 368 Left = 207
367 Height = 25 369 Height = 33
368 Top = 328 370 Top = 437
369 Width = 123 371 Width = 164
370 BorderWidth = 2 372 BorderWidth = 3
371 ButtonColorSize = 16 373 ButtonColorSize = 21
372 ButtonColor = 8034729 374 ButtonColor = 8034729
373 OnColorChanged = NoteTextColorButtonColorChanged 375 OnColorChanged = NoteTextColorButtonColorChanged
374 end 376 end
375 object SelectedColorButton: TColorButton 377 object SelectedColorButton: TColorButton
376 Left = 155 378 Left = 207
377 Height = 25 379 Height = 33
378 Top = 360 380 Top = 480
379 Width = 123 381 Width = 164
380 BorderWidth = 2 382 BorderWidth = 3
381 ButtonColorSize = 16 383 ButtonColorSize = 21
382 ButtonColor = 10400960 384 ButtonColor = 10400960
383 OnColorChanged = NoteTextColorButtonColorChanged 385 OnColorChanged = NoteTextColorButtonColorChanged
384 end 386 end
385 object FourthRowColorButton: TColorButton 387 object FourthRowColorButton: TColorButton
386 Left = 155 388 Left = 207
387 Height = 25 389 Height = 33
388 Top = 392 390 Top = 523
389 Width = 123 391 Width = 164
390 BorderWidth = 2 392 BorderWidth = 3
391 ButtonColorSize = 16 393 ButtonColorSize = 21
392 ButtonColor = 12833240 394 ButtonColor = 12833240
393 OnColorChanged = NoteTextColorButtonColorChanged 395 OnColorChanged = NoteTextColorButtonColorChanged
394 end 396 end
395 object SixteenthRowColorButton: TColorButton 397 object SixteenthRowColorButton: TColorButton
396 Left = 155 398 Left = 207
397 Height = 25 399 Height = 33
398 Top = 424 400 Top = 565
399 Width = 123 401 Width = 164
400 BorderWidth = 2 402 BorderWidth = 3
401 ButtonColorSize = 16 403 ButtonColorSize = 21
402 ButtonColor = 11912654 404 ButtonColor = 11912654
403 OnColorChanged = NoteTextColorButtonColorChanged 405 OnColorChanged = NoteTextColorButtonColorChanged
404 end 406 end
405 object Label9: TLabel 407 object Label9: TLabel
406 Left = 14 408 Left = 19
407 Height = 17 409 Height = 23
408 Top = 296 410 Top = 395
409 Width = 67 411 Width = 92
410 Caption = 'Background' 412 Caption = 'Background'
411 ParentColor = False 413 ParentColor = False
412 end 414 end
413 object Label10: TLabel 415 object Label10: TLabel
414 Left = 14 416 Left = 19
415 Height = 17 417 Height = 23
416 Top = 328 418 Top = 437
417 Width = 64 419 Width = 89
418 Caption = 'Highlighted' 420 Caption = 'Highlighted'
419 ParentColor = False 421 ParentColor = False
420 end 422 end
421 object Label11: TLabel 423 object Label11: TLabel
422 Left = 14 424 Left = 19
423 Height = 17 425 Height = 23
424 Top = 360 426 Top = 480
425 Width = 48 427 Width = 64
426 Caption = 'Selected' 428 Caption = 'Selected'
427 ParentColor = False 429 ParentColor = False
428 end 430 end
429 object Label12: TLabel 431 object Label12: TLabel
430 Left = 14 432 Left = 19
431 Height = 17 433 Height = 23
432 Top = 392 434 Top = 523
433 Width = 92 435 Width = 126
434 Caption = 'Every fourth row' 436 Caption = 'Every fourth row'
435 ParentColor = False 437 ParentColor = False
436 end 438 end
437 object Label13: TLabel 439 object Label13: TLabel
438 Left = 14 440 Left = 19
439 Height = 17 441 Height = 23
440 Top = 424 442 Top = 565
441 Width = 109 443 Width = 147
442 Caption = 'Every sixteenth row' 444 Caption = 'Every sixteenth row'
443 ParentColor = False 445 ParentColor = False
444 end 446 end
445 object DotsColorButton: TColorButton 447 object DotsColorButton: TColorButton
446 Left = 155 448 Left = 207
447 Height = 25 449 Height = 33
448 Top = 456 450 Top = 608
449 Width = 123 451 Width = 164
450 BorderWidth = 2 452 BorderWidth = 3
451 ButtonColorSize = 16 453 ButtonColorSize = 21
452 ButtonColor = clGray 454 ButtonColor = clGray
453 OnColorChanged = NoteTextColorButtonColorChanged 455 OnColorChanged = NoteTextColorButtonColorChanged
454 end 456 end
455 object DividersColorButton: TColorButton 457 object DividersColorButton: TColorButton
456 Left = 155 458 Left = 207
457 Height = 25 459 Height = 33
458 Top = 488 460 Top = 651
459 Width = 123 461 Width = 164
460 BorderWidth = 2 462 BorderWidth = 3
461 ButtonColorSize = 16 463 ButtonColorSize = 21
462 ButtonColor = 11253692 464 ButtonColor = 11253692
463 OnColorChanged = NoteTextColorButtonColorChanged 465 OnColorChanged = NoteTextColorButtonColorChanged
464 end 466 end
465 object Label14: TLabel 467 object Label14: TLabel
466 Left = 14 468 Left = 19
467 Height = 17 469 Height = 23
468 Top = 456 470 Top = 608
469 Width = 26 471 Width = 36
470 Caption = 'Dots' 472 Caption = 'Dots'
471 ParentColor = False 473 ParentColor = False
472 end 474 end
473 object Label15: TLabel 475 object Label15: TLabel
474 Left = 14 476 Left = 19
475 Height = 17 477 Height = 23
476 Top = 488 478 Top = 651
477 Width = 46 479 Width = 62
478 Caption = 'Dividers' 480 Caption = 'Dividers'
479 ParentColor = False 481 ParentColor = False
480 end 482 end
481 object Button6: TButton 483 object Button6: TButton
482 Left = 56 484 Left = 75
483 Height = 25 485 Height = 33
484 Top = 552 486 Top = 736
485 Width = 188 487 Width = 251
486 Caption = 'Reset palette to default' 488 Caption = 'Reset palette to default'
487 OnClick = Button6Click
488 TabOrder = 1 489 TabOrder = 1
490 OnClick = Button6Click
489 end 491 end
490 object Button7: TButton 492 object Button7: TButton
491 Left = 56 493 Left = 75
492 Height = 25 494 Height = 33
493 Top = 520 495 Top = 693
494 Width = 90 496 Width = 120
495 Caption = 'Load palette' 497 Caption = 'Load palette'
496 OnClick = Button7Click
497 TabOrder = 2 498 TabOrder = 2
499 OnClick = Button7Click
498 end 500 end
499 object Button8: TButton 501 object Button8: TButton
500 Left = 154 502 Left = 205
501 Height = 25 503 Height = 33
502 Top = 520 504 Top = 693
503 Width = 90 505 Width = 120
504 Caption = 'Save palette' 506 Caption = 'Save palette'
505 OnClick = Button8Click
506 TabOrder = 3 507 TabOrder = 3
508 OnClick = Button8Click
507 end 509 end
508 object Label16: TLabel 510 object Label16: TLabel
509 Left = 14 511 Left = 19
510 Height = 17 512 Height = 23
511 Top = 264 513 Top = 352
512 Width = 127 514 Width = 176
513 Caption = 'Jump column text color' 515 Caption = 'Jump column text color'
514 ParentColor = False 516 ParentColor = False
515 end 517 end
516 object JumpColumnTextColorButton: TColorButton 518 object JumpColumnTextColorButton: TColorButton
517 Left = 155 519 Left = 207
518 Height = 25 520 Height = 33
519 Top = 264 521 Top = 352
520 Width = 123 522 Width = 164
521 BorderWidth = 2 523 BorderWidth = 3
522 ButtonColorSize = 16 524 ButtonColorSize = 21
523 ButtonColor = 7471182 525 ButtonColor = 7471182
524 OnColorChanged = NoteTextColorButtonColorChanged 526 OnColorChanged = NoteTextColorButtonColorChanged
525 end 527 end
@@ -527,11 +529,11 @@ object frmOptions: TfrmOptions
527 end 529 end
528 end 530 end
529 object SaveDialog1: TSaveDialog 531 object SaveDialog1: TSaveDialog
530 Left = 376 532 Left = 501
531 end 533 end
532 object KeymapOpenDialog: TOpenDialog 534 object KeymapOpenDialog: TOpenDialog
533 InitialDir = './Keymaps' 535 InitialDir = './Keymaps'
534 Left = 328 536 Left = 437
535 end 537 end
536 object ColorDialog1: TColorDialog 538 object ColorDialog1: TColorDialog
537 Color = clBlack 539 Color = clBlack
@@ -557,12 +559,12 @@ object frmOptions: TfrmOptions
557 'ColorS=F0FBFF' 559 'ColorS=F0FBFF'
558 'ColorT=A4A0A0' 560 'ColorT=A4A0A0'
559 ) 561 )
560 Left = 432 562 Left = 576
561 end 563 end
562 object SaveDialog2: TSaveDialog 564 object SaveDialog2: TSaveDialog
563 Left = 480 565 Left = 640
564 end 566 end
565 object OpenDialog2: TOpenDialog 567 object OpenDialog2: TOpenDialog
566 Left = 520 568 Left = 693
567 end 569 end
568 end 570 end
Modifiedsrc/rendertowave.lfm +64−63
@@ -1,35 +1,36 @@
1 object frmRenderToWave: TfrmRenderToWave 1 object frmRenderToWave: TfrmRenderToWave
2 Left = 2188 2 Left = 638
3 Height = 209 3 Height = 279
4 Top = 290 4 Top = 453
5 Width = 451 5 Width = 601
6 BorderStyle = bsSingle 6 BorderStyle = bsSingle
7 Caption = 'Render song' 7 Caption = 'Render song'
8 ClientHeight = 209 8 ClientHeight = 279
9 ClientWidth = 451 9 ClientWidth = 601
10 DesignTimePPI = 128
10 OnShow = FormShow 11 OnShow = FormShow
11 Position = poDefault 12 Position = poDefault
12 LCLVersion = '2.2.3.0' 13 LCLVersion = '3.0.0.3'
13 object RenderButton: TButton 14 object RenderButton: TButton
14 Left = 14 15 Left = 19
15 Height = 25 16 Height = 33
16 Top = 165 17 Top = 220
17 Width = 264 18 Width = 352
18 Caption = 'Render' 19 Caption = 'Render'
19 Enabled = False 20 Enabled = False
20 OnClick = RenderButtonClick
21 ParentFont = False 21 ParentFont = False
22 TabOrder = 0 22 TabOrder = 0
23 OnClick = RenderButtonClick
23 end 24 end
24 object FileNameEdit1: TFileNameEdit 25 object FileNameEdit1: TFileNameEdit
25 Left = 80 26 Left = 107
26 Height = 23 27 Height = 33
27 Top = 8 28 Top = 11
28 Width = 230 29 Width = 307
29 Filter = 'Wave|*.wav|MP3|*.mp3|FLAC|*.flac' 30 Filter = 'Wave|*.wav|MP3|*.mp3|FLAC|*.flac'
30 FilterIndex = 0 31 FilterIndex = 0
31 HideDirectories = False 32 HideDirectories = False
32 ButtonWidth = 23 33 ButtonWidth = 31
33 NumGlyphs = 1 34 NumGlyphs = 1
34 MaxLength = 0 35 MaxLength = 0
35 ParentFont = False 36 ParentFont = False
@@ -37,30 +38,30 @@ object frmRenderToWave: TfrmRenderToWave
37 OnChange = FileNameEdit1Change 38 OnChange = FileNameEdit1Change
38 end 39 end
39 object Label1: TLabel 40 object Label1: TLabel
40 Left = 14 41 Left = 19
41 Height = 15 42 Height = 23
42 Top = 13 43 Top = 17
43 Width = 48 44 Width = 68
44 Caption = 'Filename' 45 Caption = 'Filename'
45 ParentColor = False 46 ParentColor = False
46 ParentFont = False 47 ParentFont = False
47 end 48 end
48 object CancelButton: TButton 49 object CancelButton: TButton
49 Left = 285 50 Left = 380
50 Height = 25 51 Height = 33
51 Top = 165 52 Top = 220
52 Width = 146 53 Width = 195
53 Caption = 'Cancel' 54 Caption = 'Cancel'
54 Enabled = False 55 Enabled = False
55 OnClick = CancelButtonClick
56 ParentFont = False 56 ParentFont = False
57 TabOrder = 2 57 TabOrder = 2
58 OnClick = CancelButtonClick
58 end 59 end
59 object PlayEntireSongRadioButton: TRadioButton 60 object PlayEntireSongRadioButton: TRadioButton
60 Left = 14 61 Left = 19
61 Height = 19 62 Height = 25
62 Top = 45 63 Top = 60
63 Width = 104 64 Width = 144
64 Caption = 'Play entire song' 65 Caption = 'Play entire song'
65 Checked = True 66 Checked = True
66 ParentFont = False 67 ParentFont = False
@@ -68,19 +69,19 @@ object frmRenderToWave: TfrmRenderToWave
68 TabStop = True 69 TabStop = True
69 end 70 end
70 object FromPositionRadioButton: TRadioButton 71 object FromPositionRadioButton: TRadioButton
71 Left = 14 72 Left = 19
72 Height = 19 73 Height = 25
73 Top = 85 74 Top = 113
74 Width = 94 75 Width = 128
75 Caption = 'From position' 76 Caption = 'From position'
76 ParentFont = False 77 ParentFont = False
77 TabOrder = 6 78 TabOrder = 6
78 end 79 end
79 object PlayEntireSongSpinEdit: TSpinEdit 80 object PlayEntireSongSpinEdit: TSpinEdit
80 Left = 134 81 Left = 179
81 Height = 23 82 Height = 33
82 Top = 41 83 Top = 55
83 Width = 98 84 Width = 131
84 MaxValue = 999 85 MaxValue = 999
85 MinValue = 1 86 MinValue = 1
86 ParentFont = False 87 ParentFont = False
@@ -88,47 +89,47 @@ object frmRenderToWave: TfrmRenderToWave
88 Value = 1 89 Value = 1
89 end 90 end
90 object Label2: TLabel 91 object Label2: TLabel
91 Left = 246 92 Left = 328
92 Height = 15 93 Height = 23
93 Top = 47 94 Top = 63
94 Width = 29 95 Width = 42
95 Caption = 'times' 96 Caption = 'times'
96 ParentColor = False 97 ParentColor = False
97 ParentFont = False 98 ParentFont = False
98 end 99 end
99 object FromPositionLowerSpinEdit: TSpinEdit 100 object FromPositionLowerSpinEdit: TSpinEdit
100 Left = 134 101 Left = 179
101 Height = 23 102 Height = 33
102 Top = 81 103 Top = 108
103 Width = 72 104 Width = 96
104 MaxValue = 9999999 105 MaxValue = 9999999
105 ParentFont = False 106 ParentFont = False
106 TabOrder = 4 107 TabOrder = 4
107 end 108 end
108 object FromPositionUpperSpinEdit: TSpinEdit 109 object FromPositionUpperSpinEdit: TSpinEdit
109 Left = 254 110 Left = 339
110 Height = 23 111 Height = 33
111 Top = 81 112 Top = 108
112 Width = 72 113 Width = 96
113 MaxValue = 99999999 114 MaxValue = 99999999
114 ParentFont = False 115 ParentFont = False
115 TabOrder = 5 116 TabOrder = 5
116 end 117 end
117 object Label3: TLabel 118 object Label3: TLabel
118 Left = 224 119 Left = 299
119 Height = 15 120 Height = 23
120 Top = 87 121 Top = 116
121 Width = 11 122 Width = 16
122 Caption = 'to' 123 Caption = 'to'
123 ParentColor = False 124 ParentColor = False
124 ParentFont = False 125 ParentFont = False
125 end 126 end
126 object ComboBox1: TComboBox 127 object ComboBox1: TComboBox
127 Left = 320 128 Left = 427
128 Height = 23 129 Height = 31
129 Top = 8 130 Top = 11
130 Width = 118 131 Width = 157
131 ItemHeight = 15 132 ItemHeight = 0
132 ItemIndex = 0 133 ItemIndex = 0
133 Items.Strings = ( 134 Items.Strings = (
134 'Wave' 135 'Wave'
@@ -140,10 +141,10 @@ object frmRenderToWave: TfrmRenderToWave
140 Text = 'Wave' 141 Text = 'Wave'
141 end 142 end
142 object Panel1: TPanel 143 object Panel1: TPanel
143 Left = 16 144 Left = 21
144 Height = 34 145 Height = 45
145 Top = 120 146 Top = 160
146 Width = 417 147 Width = 556
147 Caption = 'Ready' 148 Caption = 'Ready'
148 TabOrder = 9 149 TabOrder = 9
149 end 150 end
Modifiedsrc/tracker.lfm +573−571
@@ -1,12 +1,13 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 1826 2 Left = 327
3 Height = 819 3 Height = 950
4 Top = 188 4 Top = 134
5 Width = 1301 5 Width = 1512
6 AllowDropFiles = True 6 AllowDropFiles = True
7 Caption = 'hUGETracker' 7 Caption = 'hUGETracker'
8 ClientHeight = 798 8 ClientHeight = 950
9 ClientWidth = 1301 9 ClientWidth = 1512
10 DesignTimePPI = 128
10 KeyPreview = True 11 KeyPreview = True
11 Menu = MainMenu1 12 Menu = MainMenu1
12 OnCloseQuery = FormCloseQuery 13 OnCloseQuery = FormCloseQuery
@@ -17,12 +18,12 @@ object frmTracker: TfrmTracker
17 OnShow = FormShow 18 OnShow = FormShow
18 Position = poDefault 19 Position = poDefault
19 ShowHint = True 20 ShowHint = True
20 LCLVersion = '2.2.7.0' 21 LCLVersion = '3.0.0.3'
21 object TreeView1: TTreeView 22 object TreeView1: TTreeView
22 Left = 0 23 Left = 0
23 Height = 684 24 Height = 803
24 Top = 93 25 Top = 120
25 Width = 193 26 Width = 257
26 Align = alLeft 27 Align = alLeft
27 ParentFont = False 28 ParentFont = False
28 ReadOnly = True 29 ReadOnly = True
@@ -41,27 +42,27 @@ object frmTracker: TfrmTracker
41 } 42 }
42 end 43 end
43 object Splitter1: TSplitter 44 object Splitter1: TSplitter
44 Left = 193 45 Left = 257
45 Height = 684 46 Height = 803
46 Top = 93 47 Top = 120
47 Width = 5 48 Width = 7
48 end 49 end
49 object Panel1: TPanel 50 object Panel1: TPanel
50 Left = 198 51 Left = 264
51 Height = 684 52 Height = 803
52 Top = 93 53 Top = 120
53 Width = 1103 54 Width = 1248
54 Align = alClient 55 Align = alClient
55 BevelOuter = bvNone 56 BevelOuter = bvNone
56 ClientHeight = 684 57 ClientHeight = 803
57 ClientWidth = 1103 58 ClientWidth = 1248
58 ParentFont = False 59 ParentFont = False
59 TabOrder = 2 60 TabOrder = 2
60 object PageControl1: TPageControl 61 object PageControl1: TPageControl
61 Left = 0 62 Left = 0
62 Height = 684 63 Height = 803
63 Top = 0 64 Top = 0
64 Width = 1103 65 Width = 1248
65 ActivePage = InstrumentTabSheet 66 ActivePage = InstrumentTabSheet
66 Align = alClient 67 Align = alClient
67 ParentFont = False 68 ParentFont = False
@@ -69,74 +70,74 @@ object frmTracker: TfrmTracker
69 TabOrder = 0 70 TabOrder = 0
70 object GeneralTabSheet: TTabSheet 71 object GeneralTabSheet: TTabSheet
71 Caption = 'General' 72 Caption = 'General'
72 ClientHeight = 649 73 ClientHeight = 762
73 ClientWidth = 1097 74 ClientWidth = 1242
74 ParentFont = False 75 ParentFont = False
75 object SongInformationGroupbox: TGroupBox 76 object SongInformationGroupbox: TGroupBox
76 Left = 8 77 Left = 11
77 Height = 192 78 Height = 256
78 Top = 8 79 Top = 11
79 Width = 297 80 Width = 396
80 Caption = 'Song information' 81 Caption = 'Song information'
81 ClientHeight = 188 82 ClientHeight = 252
82 ClientWidth = 293 83 ClientWidth = 392
83 ParentFont = False 84 ParentFont = False
84 TabOrder = 0 85 TabOrder = 0
85 object Label15: TLabel 86 object Label15: TLabel
86 Left = 8 87 Left = 11
87 Height = 17 88 Height = 23
88 Top = 16 89 Top = 21
89 Width = 28 90 Width = 39
90 Caption = 'Song' 91 Caption = 'Song'
91 ParentColor = False 92 ParentColor = False
92 ParentFont = False 93 ParentFont = False
93 end 94 end
94 object Label16: TLabel 95 object Label16: TLabel
95 Left = 7 96 Left = 9
96 Height = 17 97 Height = 23
97 Top = 48 98 Top = 64
98 Width = 30 99 Width = 41
99 Caption = 'Artist' 100 Caption = 'Artist'
100 ParentColor = False 101 ParentColor = False
101 ParentFont = False 102 ParentFont = False
102 end 103 end
103 object SongEdit: TEdit 104 object SongEdit: TEdit
104 Left = 56 105 Left = 75
105 Height = 27 106 Height = 33
106 Hint = 'The name of your composition' 107 Hint = 'The name of your composition'
107 Top = 8 108 Top = 11
108 Width = 216 109 Width = 288
109 MaxLength = 255 110 MaxLength = 255
110 OnChange = SongEditChange
111 ParentFont = False 111 ParentFont = False
112 TabOrder = 0 112 TabOrder = 0
113 OnChange = SongEditChange
113 end 114 end
114 object ArtistEdit: TEdit 115 object ArtistEdit: TEdit
115 Left = 56 116 Left = 75
116 Height = 27 117 Height = 33
117 Hint = 'Your name or handle' 118 Hint = 'Your name or handle'
118 Top = 40 119 Top = 53
119 Width = 216 120 Width = 288
120 MaxLength = 255 121 MaxLength = 255
121 OnChange = ArtistEditChange
122 ParentFont = False 122 ParentFont = False
123 TabOrder = 1 123 TabOrder = 1
124 OnChange = ArtistEditChange
124 end 125 end
125 object Label21: TLabel 126 object Label21: TLabel
126 Left = 8 127 Left = 11
127 Height = 17 128 Height = 23
128 Top = 78 129 Top = 104
129 Width = 120 130 Width = 163
130 Caption = 'Tempo (ticks per row)' 131 Caption = 'Tempo (ticks per row)'
131 ParentColor = False 132 ParentColor = False
132 ParentFont = False 133 ParentFont = False
133 end 134 end
134 object TicksPerRowSpinEdit: TSpinEdit 135 object TicksPerRowSpinEdit: TSpinEdit
135 Left = 133 136 Left = 177
136 Height = 27 137 Height = 33
137 Hint = 'How many ticks should happen before the row changes. Higher means slower.' 138 Hint = 'How many ticks should happen before the row changes. Higher means slower.'
138 Top = 72 139 Top = 96
139 Width = 50 140 Width = 67
140 MaxValue = 20 141 MaxValue = 20
141 MinValue = 1 142 MinValue = 1
142 OnChange = TicksPerRowSpinEditChange 143 OnChange = TicksPerRowSpinEditChange
@@ -145,40 +146,40 @@ object frmTracker: TfrmTracker
145 Value = 7 146 Value = 7
146 end 147 end
147 object TimerEnabledCheckBox: TCheckBox 148 object TimerEnabledCheckBox: TCheckBox
148 Left = 7 149 Left = 9
149 Height = 21 150 Height = 25
150 Hint = 'Enable the GB hardware timer. This allows for more fine-grained tempo control.' 151 Hint = 'Enable the GB hardware timer. This allows for more fine-grained tempo control.'
151 Top = 144 152 Top = 192
152 Width = 171 153 Width = 224
153 Caption = 'Enable timer-based tempo' 154 Caption = 'Enable timer-based tempo'
154 OnChange = TimerEnabledCheckBoxChange
155 TabOrder = 3 155 TabOrder = 3
156 OnChange = TimerEnabledCheckBoxChange
156 end 157 end
157 object TimerTempoLabel: TLabel 158 object TimerTempoLabel: TLabel
158 Left = 8 159 Left = 11
159 Height = 17 160 Height = 23
160 Top = 112 161 Top = 149
161 Width = 120 162 Width = 163
162 Caption = 'Tempo (timer divider)' 163 Caption = 'Tempo (timer divider)'
163 Enabled = False 164 Enabled = False
164 ParentColor = False 165 ParentColor = False
165 end 166 end
166 object TimerDividerSpinEdit: TSpinEdit 167 object TimerDividerSpinEdit: TSpinEdit
167 Left = 133 168 Left = 177
168 Height = 27 169 Height = 33
169 Hint = 'The "modulo" value for the GB hardware timer. Higher means faster.' 170 Hint = 'The "modulo" value for the GB hardware timer. Higher means faster.'
170 Top = 108 171 Top = 144
171 Width = 50 172 Width = 67
172 Enabled = False 173 Enabled = False
173 MaxValue = 255 174 MaxValue = 255
174 OnChange = TimerDividerSpinEditChange 175 OnChange = TimerDividerSpinEditChange
175 TabOrder = 4 176 TabOrder = 4
176 end 177 end
177 object TempoBPMLabel: TLabel 178 object TempoBPMLabel: TLabel
178 Left = 192 179 Left = 256
179 Height = 17 180 Height = 23
180 Top = 96 181 Top = 128
181 Width = 94 182 Width = 127
182 Caption = 'TempoBPMLabel' 183 Caption = 'TempoBPMLabel'
183 ParentColor = False 184 ParentColor = False
184 end 185 end
@@ -186,59 +187,59 @@ object frmTracker: TfrmTracker
186 end 187 end
187 object PatternTabSheet: TTabSheet 188 object PatternTabSheet: TTabSheet
188 Caption = 'Patterns' 189 Caption = 'Patterns'
189 ClientHeight = 649 190 ClientHeight = 762
190 ClientWidth = 1097 191 ClientWidth = 1242
191 ParentFont = False 192 ParentFont = False
192 object Panel3: TPanel 193 object Panel3: TPanel
193 Left = 229 194 Left = 306
194 Height = 649 195 Height = 762
195 Top = 0 196 Top = 0
196 Width = 868 197 Width = 936
197 Align = alClient 198 Align = alClient
198 ClientHeight = 649 199 ClientHeight = 762
199 ClientWidth = 868 200 ClientWidth = 936
200 ParentFont = False 201 ParentFont = False
201 TabOrder = 0 202 TabOrder = 0
202 object HeaderControl1: THeaderControl 203 object HeaderControl1: THeaderControl
203 Left = 1 204 Left = 1
204 Height = 30 205 Height = 40
205 Hint = 'Left click to mute, right click to solo' 206 Hint = 'Left click to mute, right click to solo'
206 Top = 1 207 Top = 1
207 Width = 866 208 Width = 934
208 DragReorder = False 209 DragReorder = False
209 Images = ImageList2 210 Images = ImageList2
210 Sections = < 211 Sections = <
211 item 212 item
212 Alignment = taLeftJustify 213 Alignment = taLeftJustify
213 Width = 32 214 Width = 43
214 Visible = True 215 Visible = True
215 end 216 end
216 item 217 item
217 Alignment = taCenter 218 Alignment = taCenter
218 ImageIndex = 1 219 ImageIndex = 1
219 Text = 'Duty 1' 220 Text = 'Duty 1'
220 Width = 133 221 Width = 177
221 Visible = True 222 Visible = True
222 end 223 end
223 item 224 item
224 Alignment = taCenter 225 Alignment = taCenter
225 ImageIndex = 1 226 ImageIndex = 1
226 Text = 'Duty 2' 227 Text = 'Duty 2'
227 Width = 133 228 Width = 177
228 Visible = True 229 Visible = True
229 end 230 end
230 item 231 item
231 Alignment = taCenter 232 Alignment = taCenter
232 ImageIndex = 1 233 ImageIndex = 1
233 Text = 'Wave' 234 Text = 'Wave'
234 Width = 133 235 Width = 177
235 Visible = True 236 Visible = True
236 end 237 end
237 item 238 item
238 Alignment = taCenter 239 Alignment = taCenter
239 ImageIndex = 1 240 ImageIndex = 1
240 Text = 'Noise' 241 Text = 'Noise'
241 Width = 133 242 Width = 177
242 Visible = True 243 Visible = True
243 end> 244 end>
244 OnSectionClick = HeaderControl1SectionClick 245 OnSectionClick = HeaderControl1SectionClick
@@ -249,34 +250,34 @@ object frmTracker: TfrmTracker
249 end 250 end
250 object ScrollBox1: TScrollBox 251 object ScrollBox1: TScrollBox
251 Left = 1 252 Left = 1
252 Height = 617 253 Height = 720
253 Top = 31 254 Top = 41
254 Width = 866 255 Width = 934
255 HorzScrollBar.Increment = 3 256 HorzScrollBar.Increment = 4
256 HorzScrollBar.Page = 32 257 HorzScrollBar.Page = 43
257 HorzScrollBar.Smooth = True 258 HorzScrollBar.Smooth = True
258 HorzScrollBar.Tracking = True 259 HorzScrollBar.Tracking = True
259 VertScrollBar.Increment = 5 260 VertScrollBar.Increment = 6
260 VertScrollBar.Page = 50 261 VertScrollBar.Page = 67
261 VertScrollBar.Smooth = True 262 VertScrollBar.Smooth = True
262 VertScrollBar.Tracking = True 263 VertScrollBar.Tracking = True
263 Align = alClient 264 Align = alClient
264 BorderStyle = bsNone 265 BorderStyle = bsNone
265 ClientHeight = 617 266 ClientHeight = 720
266 ClientWidth = 866 267 ClientWidth = 934
267 ParentFont = False 268 ParentFont = False
268 TabOrder = 1 269 TabOrder = 1
269 OnMouseWheelDown = ScrollBox1MouseWheelDown 270 OnMouseWheelDown = ScrollBox1MouseWheelDown
270 OnMouseWheelUp = ScrollBox1MouseWheelUp 271 OnMouseWheelUp = ScrollBox1MouseWheelUp
271 object RowNumberStringGrid: TStringGrid 272 object RowNumberStringGrid: TStringGrid
272 Left = 0 273 Left = 0
273 Height = 617 274 Height = 720
274 Top = 0 275 Top = 0
275 Width = 32 276 Width = 43
276 Align = alLeft 277 Align = alLeft
277 BorderStyle = bsNone 278 BorderStyle = bsNone
278 ColCount = 1 279 ColCount = 1
279 DefaultColWidth = 32 280 DefaultColWidth = 43
280 Enabled = False 281 Enabled = False
281 ParentFont = False 282 ParentFont = False
282 RowCount = 64 283 RowCount = 64
@@ -287,43 +288,43 @@ object frmTracker: TfrmTracker
287 end 288 end
288 object OrderEditStringGrid: TStringGrid 289 object OrderEditStringGrid: TStringGrid
289 Left = 0 290 Left = 0
290 Height = 649 291 Height = 762
291 Top = 0 292 Top = 0
292 Width = 224 293 Width = 299
293 Align = alLeft 294 Align = alLeft
294 AutoEdit = False 295 AutoEdit = False
295 AutoFillColumns = True 296 AutoFillColumns = True
296 Columns = < 297 Columns = <
297 item 298 item
298 Alignment = taCenter 299 Alignment = taCenter
299 MinSize = 33 300 MinSize = 44
300 MaxSize = 33 301 MaxSize = 44
301 Title.Caption = 'Dty1' 302 Title.Caption = 'Dty1'
302 Width = 38 303 Width = 44
303 end 304 end
304 item 305 item
305 Alignment = taCenter 306 Alignment = taCenter
306 MinSize = 33 307 MinSize = 44
307 MaxSize = 33 308 MaxSize = 44
308 Title.Caption = 'Dty2' 309 Title.Caption = 'Dty2'
309 Width = 38 310 Width = 44
310 end 311 end
311 item 312 item
312 Alignment = taCenter 313 Alignment = taCenter
313 MinSize = 33 314 MinSize = 44
314 MaxSize = 33 315 MaxSize = 44
315 Title.Caption = 'Wav' 316 Title.Caption = 'Wav'
316 Width = 38 317 Width = 44
317 end 318 end
318 item 319 item
319 Alignment = taCenter 320 Alignment = taCenter
320 MinSize = 33 321 MinSize = 44
321 MaxSize = 33 322 MaxSize = 44
322 Title.Caption = 'Nse' 323 Title.Caption = 'Nse'
323 Width = 39 324 Width = 44
324 end> 325 end>
325 DefaultColWidth = 17 326 DefaultColWidth = 23
326 DefaultRowHeight = 21 327 DefaultRowHeight = 28
327 ExtendedSelect = False 328 ExtendedSelect = False
328 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goRangeSelect, goRowMoving, goEditing, goTabs, goSmoothScroll, goFixedRowNumbering, goRowHighlight] 329 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goRangeSelect, goRowMoving, goEditing, goTabs, goSmoothScroll, goFixedRowNumbering, goRowHighlight]
329 ParentFont = False 330 ParentFont = False
@@ -343,30 +344,30 @@ object frmTracker: TfrmTracker
343 OnMouseDown = OrderEditStringGridMouseDown 344 OnMouseDown = OrderEditStringGridMouseDown
344 OnValidateEntry = OrderEditStringGridValidateEntry 345 OnValidateEntry = OrderEditStringGridValidateEntry
345 ColWidths = ( 346 ColWidths = (
346 64 347 85
347 38 348 44
348 38 349 44
349 38 350 44
350 39 351 44
351 ) 352 )
352 end 353 end
353 object Splitter2: TSplitter 354 object Splitter2: TSplitter
354 Left = 224 355 Left = 299
355 Height = 649 356 Height = 762
356 Top = 0 357 Top = 0
357 Width = 5 358 Width = 7
358 end 359 end
359 end 360 end
360 object InstrumentTabSheet: TTabSheet 361 object InstrumentTabSheet: TTabSheet
361 Caption = 'Instruments' 362 Caption = 'Instruments'
362 ClientHeight = 649 363 ClientHeight = 762
363 ClientWidth = 1097 364 ClientWidth = 1242
364 ParentFont = False 365 ParentFont = False
365 object FlowPanel1: TFlowPanel 366 object FlowPanel1: TFlowPanel
366 Left = 0 367 Left = 0
367 Height = 649 368 Height = 762
368 Top = 0 369 Top = 0
369 Width = 937 370 Width = 1029
370 Align = alClient 371 Align = alClient
371 AutoSize = True 372 AutoSize = True
372 BevelOuter = bvNone 373 BevelOuter = bvNone
@@ -401,26 +402,26 @@ object frmTracker: TfrmTracker
401 ParentFont = False 402 ParentFont = False
402 TabOrder = 0 403 TabOrder = 0
403 object InstrumentGroupBox: TGroupBox 404 object InstrumentGroupBox: TGroupBox
404 Left = 7 405 Left = 9
405 Height = 273 406 Height = 364
406 Top = 7 407 Top = 9
407 Width = 280 408 Width = 373
408 Anchors = [] 409 Anchors = []
409 BorderSpacing.Left = 7 410 BorderSpacing.Left = 9
410 BorderSpacing.Top = 7 411 BorderSpacing.Top = 9
411 BorderSpacing.Right = 7 412 BorderSpacing.Right = 9
412 BorderSpacing.Bottom = 7 413 BorderSpacing.Bottom = 9
413 Caption = 'Instrument' 414 Caption = 'Instrument'
414 ClientHeight = 254 415 ClientHeight = 339
415 ClientWidth = 276 416 ClientWidth = 369
416 ParentFont = False 417 ParentFont = False
417 TabOrder = 0 418 TabOrder = 0
418 object InstrumentNumberSpinner: TSpinEdit 419 object InstrumentNumberSpinner: TSpinEdit
419 Left = 80 420 Left = 107
420 Height = 27 421 Height = 33
421 Hint = 'What instrument to edit' 422 Hint = 'What instrument to edit'
422 Top = 38 423 Top = 51
423 Width = 187 424 Width = 249
424 MaxValue = 15 425 MaxValue = 15
425 MinValue = 1 426 MinValue = 1
426 OnChange = InstrumentNumberSpinnerChange 427 OnChange = InstrumentNumberSpinnerChange
@@ -429,50 +430,50 @@ object frmTracker: TfrmTracker
429 Value = 1 430 Value = 1
430 end 431 end
431 object Label1: TLabel 432 object Label1: TLabel
432 Left = 8 433 Left = 11
433 Height = 17 434 Height = 23
434 Top = 46 435 Top = 61
435 Width = 62 436 Width = 86
436 Caption = 'Instrument' 437 Caption = 'Instrument'
437 ParentColor = False 438 ParentColor = False
438 ParentFont = False 439 ParentFont = False
439 end 440 end
440 object Label2: TLabel 441 object Label2: TLabel
441 Left = 8 442 Left = 11
442 Height = 17 443 Height = 23
443 Top = 78 444 Top = 104
444 Width = 34 445 Width = 45
445 Caption = 'Name' 446 Caption = 'Name'
446 ParentColor = False 447 ParentColor = False
447 ParentFont = False 448 ParentFont = False
448 end 449 end
449 object InstrumentNameEdit: TEdit 450 object InstrumentNameEdit: TEdit
450 Left = 80 451 Left = 107
451 Height = 27 452 Height = 33
452 Hint = 'The name of the instrument' 453 Hint = 'The name of the instrument'
453 Top = 70 454 Top = 93
454 Width = 187 455 Width = 249
455 MaxLength = 255 456 MaxLength = 255
456 OnChange = InstrumentNameEditChange
457 ParentFont = False 457 ParentFont = False
458 TabOrder = 1 458 TabOrder = 1
459 OnChange = InstrumentNameEditChange
459 end 460 end
460 object Label3: TLabel 461 object Label3: TLabel
461 Left = 8 462 Left = 11
462 Height = 17 463 Height = 23
463 Top = 16 464 Top = 21
464 Width = 50 465 Width = 67
465 Caption = 'Channel' 466 Caption = 'Channel'
466 Font.Style = [fsBold] 467 Font.Style = [fsBold]
467 ParentColor = False 468 ParentColor = False
468 ParentFont = False 469 ParentFont = False
469 end 470 end
470 object InstrumentTypeCombobox: TComboBox 471 object InstrumentTypeCombobox: TComboBox
471 Left = 80 472 Left = 107
472 Height = 25 473 Height = 31
473 Hint = 'What type of channel this instrument will be played on' 474 Hint = 'What type of channel this instrument will be played on'
474 Top = 8 475 Top = 11
475 Width = 185 476 Width = 247
476 ItemHeight = 0 477 ItemHeight = 0
477 ItemIndex = 0 478 ItemIndex = 0
478 Items.Strings = ( 479 Items.Strings = (
@@ -480,62 +481,62 @@ object frmTracker: TfrmTracker
480 'Wave' 481 'Wave'
481 'Noise' 482 'Noise'
482 ) 483 )
483 OnChange = InstrumentTypeComboboxChange
484 ParentFont = False 484 ParentFont = False
485 Style = csDropDownList 485 Style = csDropDownList
486 TabOrder = 2 486 TabOrder = 2
487 Text = 'Square' 487 Text = 'Square'
488 OnChange = InstrumentTypeComboboxChange
488 end 489 end
489 object LengthEnabledCheckbox: TCheckBox 490 object LengthEnabledCheckbox: TCheckBox
490 Left = 12 491 Left = 16
491 Height = 21 492 Height = 25
492 Hint = 'Cut the sound after a certain length of time' 493 Hint = 'Cut the sound after a certain length of time'
493 Top = 118 494 Top = 157
494 Width = 61 495 Width = 76
495 Caption = 'Length' 496 Caption = 'Length'
496 OnChange = LengthEnabledCheckboxChange
497 ParentFont = False 497 ParentFont = False
498 TabOrder = 3 498 TabOrder = 3
499 OnChange = LengthEnabledCheckboxChange
499 end 500 end
500 object InstrumentImportButton: TButton 501 object InstrumentImportButton: TButton
501 Left = 12 502 Left = 16
502 Height = 25 503 Height = 33
503 Hint = 'Import an instrument' 504 Hint = 'Import an instrument'
504 Top = 216 505 Top = 288
505 Width = 116 506 Width = 155
506 Caption = 'Import' 507 Caption = 'Import'
507 OnClick = InstrumentImportButtonClick
508 ParentFont = False 508 ParentFont = False
509 TabOrder = 4 509 TabOrder = 4
510 OnClick = InstrumentImportButtonClick
510 end 511 end
511 object InstrumentExportButton: TButton 512 object InstrumentExportButton: TButton
512 Left = 149 513 Left = 199
513 Height = 25 514 Height = 33
514 Hint = 'Export an instrument' 515 Hint = 'Export an instrument'
515 Top = 216 516 Top = 288
516 Width = 116 517 Width = 155
517 Caption = 'Export' 518 Caption = 'Export'
518 OnClick = InstrumentExportButtonClick
519 ParentFont = False 519 ParentFont = False
520 TabOrder = 5 520 TabOrder = 5
521 OnClick = InstrumentExportButtonClick
521 end 522 end
522 object TestOctave5Button: TButton 523 object TestOctave5Button: TButton
523 Tag = 5 524 Tag = 5
524 Left = 142 525 Left = 189
525 Height = 25 526 Height = 33
526 Hint = 'Test out the instrument with a C-5 note' 527 Hint = 'Test out the instrument with a C-5 note'
527 Top = 146 528 Top = 195
528 Width = 27 529 Width = 36
529 Caption = '5' 530 Caption = '5'
530 OnClick = TestOctaveButtonClick
531 ParentFont = False 531 ParentFont = False
532 TabOrder = 6 532 TabOrder = 6
533 OnClick = TestOctaveButtonClick
533 end 534 end
534 object LengthTrackbar: TTrackBar 535 object LengthTrackbar: TTrackBar
535 Left = 76 536 Left = 101
536 Height = 43 537 Height = 59
537 Top = 112 538 Top = 149
538 Width = 189 539 Width = 252
539 Max = 63 540 Max = 63
540 OnChange = LengthSpinnerChange 541 OnChange = LengthSpinnerChange
541 Position = 0 542 Position = 0
@@ -544,170 +545,170 @@ object frmTracker: TfrmTracker
544 TabOrder = 7 545 TabOrder = 7
545 end 546 end
546 object Label14: TLabel 547 object Label14: TLabel
547 Left = 12 548 Left = 16
548 Height = 17 549 Height = 23
549 Top = 152 550 Top = 203
550 Width = 66 551 Width = 89
551 Caption = 'Test octave:' 552 Caption = 'Test octave:'
552 ParentColor = False 553 ParentColor = False
553 ParentFont = False 554 ParentFont = False
554 end 555 end
555 object TestOctave5Button1: TButton 556 object TestOctave5Button1: TButton
556 Tag = 4 557 Tag = 4
557 Left = 110 558 Left = 147
558 Height = 25 559 Height = 33
559 Hint = 'Test out the instrument with a C-4 note' 560 Hint = 'Test out the instrument with a C-4 note'
560 Top = 146 561 Top = 195
561 Width = 27 562 Width = 36
562 Caption = '4' 563 Caption = '4'
563 OnClick = TestOctaveButtonClick
564 ParentFont = False 564 ParentFont = False
565 TabOrder = 8 565 TabOrder = 8
566 OnClick = TestOctaveButtonClick
566 end 567 end
567 object TestOctave5Button2: TButton 568 object TestOctave5Button2: TButton
568 Tag = 3 569 Tag = 3
569 Left = 78 570 Left = 104
570 Height = 25 571 Height = 33
571 Hint = 'Test out the instrument with a C-3 note' 572 Hint = 'Test out the instrument with a C-3 note'
572 Top = 146 573 Top = 195
573 Width = 27 574 Width = 36
574 Caption = '3' 575 Caption = '3'
575 OnClick = TestOctaveButtonClick
576 ParentFont = False 576 ParentFont = False
577 TabOrder = 9 577 TabOrder = 9
578 OnClick = TestOctaveButtonClick
578 end 579 end
579 object TestOctave5Button3: TButton 580 object TestOctave5Button3: TButton
580 Tag = 6 581 Tag = 6
581 Left = 174 582 Left = 232
582 Height = 25 583 Height = 33
583 Hint = 'Test out the instrument with a C-6 note' 584 Hint = 'Test out the instrument with a C-6 note'
584 Top = 146 585 Top = 195
585 Width = 27 586 Width = 36
586 Caption = '6' 587 Caption = '6'
587 OnClick = TestOctaveButtonClick
588 ParentFont = False 588 ParentFont = False
589 TabOrder = 10 589 TabOrder = 10
590 OnClick = TestOctaveButtonClick
590 end 591 end
591 object TestOctave5Button4: TButton 592 object TestOctave5Button4: TButton
592 Tag = 7 593 Tag = 7
593 Left = 206 594 Left = 275
594 Height = 25 595 Height = 33
595 Hint = 'Test out the instrument with a C-7 note' 596 Hint = 'Test out the instrument with a C-7 note'
596 Top = 146 597 Top = 195
597 Width = 27 598 Width = 36
598 Caption = '7' 599 Caption = '7'
599 OnClick = TestOctaveButtonClick
600 ParentFont = False 600 ParentFont = False
601 TabOrder = 11 601 TabOrder = 11
602 OnClick = TestOctaveButtonClick
602 end 603 end
603 object TestOctave5Button5: TButton 604 object TestOctave5Button5: TButton
604 Tag = 8 605 Tag = 8
605 Left = 238 606 Left = 317
606 Height = 25 607 Height = 33
607 Hint = 'Test out the instrument with a C-8 note' 608 Hint = 'Test out the instrument with a C-8 note'
608 Top = 146 609 Top = 195
609 Width = 27 610 Width = 36
610 Caption = '8' 611 Caption = '8'
611 OnClick = TestOctaveButtonClick
612 ParentFont = False 612 ParentFont = False
613 TabOrder = 12 613 TabOrder = 12
614 OnClick = TestOctaveButtonClick
614 end 615 end
615 object EnableSubpatternCheckbox: TCheckBox 616 object EnableSubpatternCheckbox: TCheckBox
616 Left = 12 617 Left = 16
617 Height = 21 618 Height = 25
618 Top = 184 619 Top = 245
619 Width = 125 620 Width = 163
620 Caption = 'Enable subpattern' 621 Caption = 'Enable subpattern'
621 OnChange = EnableSubpatternCheckboxChange
622 TabOrder = 13 622 TabOrder = 13
623 OnChange = EnableSubpatternCheckboxChange
623 end 624 end
624 end 625 end
625 object EnvelopeGroupBox: TGroupBox 626 object EnvelopeGroupBox: TGroupBox
626 Left = 301 627 Left = 9
627 Height = 136 628 Height = 181
628 Top = 7 629 Top = 391
629 Width = 582 630 Width = 776
630 Anchors = [] 631 Anchors = []
631 BorderSpacing.Left = 7 632 BorderSpacing.Left = 9
632 BorderSpacing.Top = 7 633 BorderSpacing.Top = 9
633 BorderSpacing.Right = 7 634 BorderSpacing.Right = 9
634 BorderSpacing.Bottom = 7 635 BorderSpacing.Bottom = 9
635 Caption = 'Envelope' 636 Caption = 'Envelope'
636 ClientHeight = 117 637 ClientHeight = 156
637 ClientWidth = 578 638 ClientWidth = 772
638 ParentFont = False 639 ParentFont = False
639 TabOrder = 1 640 TabOrder = 1
640 object Label4: TLabel 641 object Label4: TLabel
641 Left = 8 642 Left = 11
642 Height = 17 643 Height = 23
643 Top = 16 644 Top = 21
644 Width = 49 645 Width = 67
645 Caption = 'Start vol.' 646 Caption = 'Start vol.'
646 ParentColor = False 647 ParentColor = False
647 ParentFont = False 648 ParentFont = False
648 end 649 end
649 object Label5: TLabel 650 object Label5: TLabel
650 Left = 8 651 Left = 11
651 Height = 17 652 Height = 23
652 Top = 54 653 Top = 72
653 Width = 51 654 Width = 69
654 Caption = 'Direction' 655 Caption = 'Direction'
655 ParentColor = False 656 ParentColor = False
656 ParentFont = False 657 ParentFont = False
657 end 658 end
658 object DirectionComboBox: TComboBox 659 object DirectionComboBox: TComboBox
659 Left = 82 660 Left = 109
660 Height = 25 661 Height = 31
661 Hint = 'Whether to fade the sound in or out' 662 Hint = 'Whether to fade the sound in or out'
662 Top = 46 663 Top = 61
663 Width = 198 664 Width = 264
664 ItemHeight = 0 665 ItemHeight = 0
665 ItemIndex = 1 666 ItemIndex = 1
666 Items.Strings = ( 667 Items.Strings = (
667 'Up' 668 'Up'
668 'Down' 669 'Down'
669 ) 670 )
670 OnChange = DirectionComboBoxChange
671 ParentFont = False 671 ParentFont = False
672 Style = csDropDownList 672 Style = csDropDownList
673 TabOrder = 0 673 TabOrder = 0
674 Text = 'Down' 674 Text = 'Down'
675 OnChange = DirectionComboBoxChange
675 end 676 end
676 object Label6: TLabel 677 object Label6: TLabel
677 Left = 8 678 Left = 11
678 Height = 17 679 Height = 23
679 Top = 90 680 Top = 120
680 Width = 43 681 Width = 58
681 Caption = 'Change' 682 Caption = 'Change'
682 ParentColor = False 683 ParentColor = False
683 ParentFont = False 684 ParentFont = False
684 end 685 end
685 object Panel5: TPanel 686 object Panel5: TPanel
686 Left = 300 687 Left = 400
687 Height = 104 688 Height = 139
688 Top = 0 689 Top = 0
689 Width = 270 690 Width = 360
690 BevelOuter = bvLowered 691 BevelOuter = bvLowered
691 ClientHeight = 104 692 ClientHeight = 139
692 ClientWidth = 270 693 ClientWidth = 360
693 ParentFont = False 694 ParentFont = False
694 TabOrder = 1 695 TabOrder = 1
695 object EnvelopePaintbox: TPaintBox 696 object EnvelopePaintbox: TPaintBox
696 Left = 1 697 Left = 1
697 Height = 102 698 Height = 137
698 Hint = 'Preview of the volume envelope' 699 Hint = 'Preview of the volume envelope'
699 Top = 1 700 Top = 1
700 Width = 268 701 Width = 358
701 Align = alClient 702 Align = alClient
702 ParentFont = False 703 ParentFont = False
703 OnPaint = EnvelopePaintboxPaint 704 OnPaint = EnvelopePaintboxPaint
704 end 705 end
705 end 706 end
706 object StartVolTrackbar: TTrackBar 707 object StartVolTrackbar: TTrackBar
707 Left = 82 708 Left = 109
708 Height = 43 709 Height = 59
709 Top = 8 710 Top = 11
710 Width = 196 711 Width = 261
711 Max = 15 712 Max = 15
712 OnChange = StartVolSpinnerChange 713 OnChange = StartVolSpinnerChange
713 Position = 0 714 Position = 0
@@ -715,10 +716,10 @@ object frmTracker: TfrmTracker
715 TabOrder = 2 716 TabOrder = 2
716 end 717 end
717 object EnvChangeTrackbar: TTrackBar 718 object EnvChangeTrackbar: TTrackBar
718 Left = 82 719 Left = 109
719 Height = 43 720 Height = 59
720 Top = 82 721 Top = 109
721 Width = 196 722 Width = 261
722 Max = 7 723 Max = 7
723 OnChange = EnvChangeSpinnerChange 724 OnChange = EnvChangeSpinnerChange
724 Position = 0 725 Position = 0
@@ -727,35 +728,35 @@ object frmTracker: TfrmTracker
727 end 728 end
728 end 729 end
729 object SquareGroupBox: TGroupBox 730 object SquareGroupBox: TGroupBox
730 Left = 7 731 Left = 9
731 Height = 169 732 Height = 225
732 Top = 294 733 Top = 590
733 Width = 319 734 Width = 425
734 Anchors = [] 735 Anchors = []
735 BorderSpacing.Left = 7 736 BorderSpacing.Left = 9
736 BorderSpacing.Top = 7 737 BorderSpacing.Top = 9
737 BorderSpacing.Right = 7 738 BorderSpacing.Right = 9
738 BorderSpacing.Bottom = 7 739 BorderSpacing.Bottom = 9
739 Caption = 'Square' 740 Caption = 'Square'
740 ClientHeight = 150 741 ClientHeight = 200
741 ClientWidth = 315 742 ClientWidth = 421
742 ParentFont = False 743 ParentFont = False
743 TabOrder = 2 744 TabOrder = 2
744 object Label7: TLabel 745 object Label7: TLabel
745 Left = 8 746 Left = 11
746 Height = 17 747 Height = 23
747 Top = 16 748 Top = 21
748 Width = 65 749 Width = 88
749 Caption = 'Sweep time' 750 Caption = 'Sweep time'
750 ParentColor = False 751 ParentColor = False
751 ParentFont = False 752 ParentFont = False
752 end 753 end
753 object SweepTimeCombobox: TComboBox 754 object SweepTimeCombobox: TComboBox
754 Left = 104 755 Left = 139
755 Height = 25 756 Height = 31
756 Hint = 'How long to sweep' 757 Hint = 'How long to sweep'
757 Top = 8 758 Top = 11
758 Width = 200 759 Width = 267
759 ItemHeight = 0 760 ItemHeight = 0
760 ItemIndex = 0 761 ItemIndex = 0
761 Items.Strings = ( 762 Items.Strings = (
@@ -768,67 +769,67 @@ object frmTracker: TfrmTracker
768 '46.9 ms (6/128Hz)' 769 '46.9 ms (6/128Hz)'
769 '54.7 ms (7/128Hz)' 770 '54.7 ms (7/128Hz)'
770 ) 771 )
771 OnChange = SweepTimeComboboxChange
772 ParentFont = False 772 ParentFont = False
773 ParentShowHint = False 773 ParentShowHint = False
774 ShowHint = True 774 ShowHint = True
775 Style = csDropDownList 775 Style = csDropDownList
776 TabOrder = 0 776 TabOrder = 0
777 Text = 'Off - no frequency change' 777 Text = 'Off - no frequency change'
778 OnChange = SweepTimeComboboxChange
778 end 779 end
779 object SweepDirectionCombobox: TComboBox 780 object SweepDirectionCombobox: TComboBox
780 Left = 104 781 Left = 139
781 Height = 25 782 Height = 31
782 Hint = 'The direction of the sweep' 783 Hint = 'The direction of the sweep'
783 Top = 40 784 Top = 53
784 Width = 200 785 Width = 267
785 ItemHeight = 0 786 ItemHeight = 0
786 ItemIndex = 1 787 ItemIndex = 1
787 Items.Strings = ( 788 Items.Strings = (
788 'Up' 789 'Up'
789 'Down' 790 'Down'
790 ) 791 )
791 OnChange = SweepDirectionComboboxChange
792 ParentFont = False 792 ParentFont = False
793 ParentShowHint = False 793 ParentShowHint = False
794 ShowHint = True 794 ShowHint = True
795 Style = csDropDownList 795 Style = csDropDownList
796 TabOrder = 1 796 TabOrder = 1
797 Text = 'Down' 797 Text = 'Down'
798 OnChange = SweepDirectionComboboxChange
798 end 799 end
799 object Label8: TLabel 800 object Label8: TLabel
800 Left = 8 801 Left = 11
801 Height = 17 802 Height = 23
802 Top = 48 803 Top = 64
803 Width = 89 804 Width = 121
804 Caption = 'Sweep direction' 805 Caption = 'Sweep direction'
805 ParentColor = False 806 ParentColor = False
806 ParentFont = False 807 ParentFont = False
807 end 808 end
808 object Label9: TLabel 809 object Label9: TLabel
809 Left = 8 810 Left = 11
810 Height = 17 811 Height = 23
811 Top = 88 812 Top = 117
812 Width = 62 813 Width = 83
813 Caption = 'Sweep size' 814 Caption = 'Sweep size'
814 ParentColor = False 815 ParentColor = False
815 ParentFont = False 816 ParentFont = False
816 end 817 end
817 object Label10: TLabel 818 object Label10: TLabel
818 Left = 8 819 Left = 11
819 Height = 17 820 Height = 23
820 Top = 120 821 Top = 160
821 Width = 26 822 Width = 36
822 Caption = 'Duty' 823 Caption = 'Duty'
823 ParentColor = False 824 ParentColor = False
824 ParentFont = False 825 ParentFont = False
825 end 826 end
826 object DutyCombobox: TComboBox 827 object DutyCombobox: TComboBox
827 Left = 104 828 Left = 139
828 Height = 25 829 Height = 31
829 Hint = 'Which duty cycle to use (changes timbre of wave)' 830 Hint = 'Which duty cycle to use (changes timbre of wave)'
830 Top = 112 831 Top = 149
831 Width = 200 832 Width = 267
832 ItemHeight = 0 833 ItemHeight = 0
833 ItemIndex = 2 834 ItemIndex = 2
834 Items.Strings = ( 835 Items.Strings = (
@@ -837,19 +838,19 @@ object frmTracker: TfrmTracker
837 '50% (square)' 838 '50% (square)'
838 '75%' 839 '75%'
839 ) 840 )
840 OnChange = DutyComboboxChange
841 ParentFont = False 841 ParentFont = False
842 ParentShowHint = False 842 ParentShowHint = False
843 ShowHint = True 843 ShowHint = True
844 Style = csDropDownList 844 Style = csDropDownList
845 TabOrder = 2 845 TabOrder = 2
846 Text = '50% (square)' 846 Text = '50% (square)'
847 OnChange = DutyComboboxChange
847 end 848 end
848 object SweepSizeTrackbar: TTrackBar 849 object SweepSizeTrackbar: TTrackBar
849 Left = 105 850 Left = 140
850 Height = 43 851 Height = 59
851 Top = 80 852 Top = 107
852 Width = 196 853 Width = 261
853 Max = 7 854 Max = 7
854 OnChange = SweepSizeSpinnerChange 855 OnChange = SweepSizeSpinnerChange
855 Position = 0 856 Position = 0
@@ -858,44 +859,44 @@ object frmTracker: TfrmTracker
858 end 859 end
859 end 860 end
860 object WaveGroupBox: TGroupBox 861 object WaveGroupBox: TGroupBox
861 Left = 340 862 Left = 452
862 Height = 169 863 Height = 225
863 Top = 294 864 Top = 590
864 Width = 297 865 Width = 396
865 Anchors = [] 866 Anchors = []
866 BorderSpacing.Left = 7 867 BorderSpacing.Left = 9
867 BorderSpacing.Top = 7 868 BorderSpacing.Top = 9
868 BorderSpacing.Right = 7 869 BorderSpacing.Right = 9
869 BorderSpacing.Bottom = 7 870 BorderSpacing.Bottom = 9
870 Caption = 'Wave' 871 Caption = 'Wave'
871 ClientHeight = 150 872 ClientHeight = 200
872 ClientWidth = 293 873 ClientWidth = 392
873 ParentFont = False 874 ParentFont = False
874 TabOrder = 3 875 TabOrder = 3
875 object Label11: TLabel 876 object Label11: TLabel
876 Left = 8 877 Left = 11
877 Height = 17 878 Height = 23
878 Top = 16 879 Top = 21
879 Width = 42 880 Width = 57
880 Caption = 'Volume' 881 Caption = 'Volume'
881 ParentColor = False 882 ParentColor = False
882 ParentFont = False 883 ParentFont = False
883 end 884 end
884 object Label12: TLabel 885 object Label12: TLabel
885 Left = 8 886 Left = 11
886 Height = 17 887 Height = 23
887 Top = 48 888 Top = 64
888 Width = 58 889 Width = 79
889 Caption = 'Waveform' 890 Caption = 'Waveform'
890 ParentColor = False 891 ParentColor = False
891 ParentFont = False 892 ParentFont = False
892 end 893 end
893 object WaveformCombobox: TComboBox 894 object WaveformCombobox: TComboBox
894 Left = 104 895 Left = 139
895 Height = 25 896 Height = 31
896 Hint = 'Which waveform is associated with this instrument' 897 Hint = 'Which waveform is associated with this instrument'
897 Top = 40 898 Top = 53
898 Width = 176 899 Width = 235
899 ItemHeight = 0 900 ItemHeight = 0
900 ItemIndex = 0 901 ItemIndex = 0
901 Items.Strings = ( 902 Items.Strings = (
@@ -916,28 +917,28 @@ object frmTracker: TfrmTracker
916 'Wave #14' 917 'Wave #14'
917 'Wave #15' 918 'Wave #15'
918 ) 919 )
919 OnChange = WaveformComboboxChange
920 ParentFont = False 920 ParentFont = False
921 Style = csDropDownList 921 Style = csDropDownList
922 TabOrder = 0 922 TabOrder = 0
923 Text = 'Wave #0' 923 Text = 'Wave #0'
924 OnChange = WaveformComboboxChange
924 end 925 end
925 object Panel4: TPanel 926 object Panel4: TPanel
926 Left = 8 927 Left = 11
927 Height = 59 928 Height = 79
928 Top = 80 929 Top = 107
929 Width = 272 930 Width = 363
930 BevelOuter = bvLowered 931 BevelOuter = bvLowered
931 ClientHeight = 59 932 ClientHeight = 79
932 ClientWidth = 272 933 ClientWidth = 363
933 ParentFont = False 934 ParentFont = False
934 TabOrder = 1 935 TabOrder = 1
935 object WavePaintbox: TPaintBox 936 object WavePaintbox: TPaintBox
936 Left = 1 937 Left = 1
937 Height = 57 938 Height = 77
938 Hint = 'Preview of the waveform associated with this instrument' 939 Hint = 'Preview of the waveform associated with this instrument'
939 Top = 1 940 Top = 1
940 Width = 270 941 Width = 361
941 Align = alClient 942 Align = alClient
942 Color = clBlack 943 Color = clBlack
943 ParentColor = False 944 ParentColor = False
@@ -946,11 +947,11 @@ object frmTracker: TfrmTracker
946 end 947 end
947 end 948 end
948 object WaveVolumeCombobox: TComboBox 949 object WaveVolumeCombobox: TComboBox
949 Left = 104 950 Left = 139
950 Height = 25 951 Height = 31
951 Hint = 'The initial volume of the wave' 952 Hint = 'The initial volume of the wave'
952 Top = 8 953 Top = 11
953 Width = 176 954 Width = 235
954 ItemHeight = 0 955 ItemHeight = 0
955 ItemIndex = 1 956 ItemIndex = 1
956 Items.Strings = ( 957 Items.Strings = (
@@ -959,83 +960,83 @@ object frmTracker: TfrmTracker
959 '50% Volume' 960 '50% Volume'
960 '25% Volume' 961 '25% Volume'
961 ) 962 )
962 OnChange = WaveVolumeComboboxChange
963 ParentFont = False 963 ParentFont = False
964 Style = csDropDownList 964 Style = csDropDownList
965 TabOrder = 2 965 TabOrder = 2
966 Text = '100% Volume' 966 Text = '100% Volume'
967 OnChange = WaveVolumeComboboxChange
967 end 968 end
968 end 969 end
969 object NoiseGroupBox: TGroupBox 970 object NoiseGroupBox: TGroupBox
970 Left = 651 971 Left = 9
971 Height = 59 972 Height = 79
972 Top = 294 973 Top = 833
973 Width = 237 974 Width = 316
974 Anchors = [] 975 Anchors = []
975 BorderSpacing.Left = 7 976 BorderSpacing.Left = 9
976 BorderSpacing.Top = 7 977 BorderSpacing.Top = 9
977 BorderSpacing.Right = 7 978 BorderSpacing.Right = 9
978 BorderSpacing.Bottom = 7 979 BorderSpacing.Bottom = 9
979 Caption = 'Noise' 980 Caption = 'Noise'
980 ClientHeight = 40 981 ClientHeight = 54
981 ClientWidth = 233 982 ClientWidth = 312
982 ParentFont = False 983 ParentFont = False
983 TabOrder = 4 984 TabOrder = 4
984 object SevenBitCounterCheckbox: TCheckBox 985 object SevenBitCounterCheckbox: TCheckBox
985 Left = 8 986 Left = 11
986 Height = 21 987 Height = 25
987 Hint = 'Select LFSR width. When checked, output will sound like a tone rather than noise' 988 Hint = 'Select LFSR width. When checked, output will sound like a tone rather than noise'
988 Top = 8 989 Top = 11
989 Width = 224 990 Width = 300
990 Alignment = taLeftJustify 991 Alignment = taLeftJustify
991 Caption = '7 bit counter (more tone-like output)' 992 Caption = '7 bit counter (more tone-like output)'
992 OnChange = SevenBitCounterCheckboxChange
993 ParentFont = False 993 ParentFont = False
994 TabOrder = 0 994 TabOrder = 0
995 OnChange = SevenBitCounterCheckboxChange
995 end 996 end
996 end 997 end
997 end 998 end
998 object SubpatternGroupBox: TGroupBox 999 object SubpatternGroupBox: TGroupBox
999 Left = 937 1000 Left = 1029
1000 Height = 642 1001 Height = 753
1001 Top = 7 1002 Top = 9
1002 Width = 160 1003 Width = 213
1003 Align = alRight 1004 Align = alRight
1004 Anchors = [] 1005 Anchors = []
1005 BorderSpacing.Top = 7 1006 BorderSpacing.Top = 9
1006 Caption = 'Subpattern' 1007 Caption = 'Subpattern'
1007 ClientHeight = 623 1008 ClientHeight = 728
1008 ClientWidth = 156 1009 ClientWidth = 209
1009 TabOrder = 1 1010 TabOrder = 1
1010 object ScrollBox2: TScrollBox 1011 object ScrollBox2: TScrollBox
1011 Left = 0 1012 Left = 0
1012 Height = 623 1013 Height = 728
1013 Top = 0 1014 Top = 0
1014 Width = 156 1015 Width = 209
1015 HorzScrollBar.Increment = 3 1016 HorzScrollBar.Increment = 4
1016 HorzScrollBar.Page = 32 1017 HorzScrollBar.Page = 43
1017 HorzScrollBar.Smooth = True 1018 HorzScrollBar.Smooth = True
1018 HorzScrollBar.Tracking = True 1019 HorzScrollBar.Tracking = True
1019 VertScrollBar.Increment = 5 1020 VertScrollBar.Increment = 6
1020 VertScrollBar.Page = 50 1021 VertScrollBar.Page = 67
1021 VertScrollBar.Smooth = True 1022 VertScrollBar.Smooth = True
1022 VertScrollBar.Tracking = True 1023 VertScrollBar.Tracking = True
1023 Align = alClient 1024 Align = alClient
1024 BorderStyle = bsNone 1025 BorderStyle = bsNone
1025 ClientHeight = 623 1026 ClientHeight = 728
1026 ClientWidth = 156 1027 ClientWidth = 209
1027 TabOrder = 0 1028 TabOrder = 0
1028 OnMouseWheelDown = ScrollBox1MouseWheelDown 1029 OnMouseWheelDown = ScrollBox1MouseWheelDown
1029 OnMouseWheelUp = ScrollBox1MouseWheelUp 1030 OnMouseWheelUp = ScrollBox1MouseWheelUp
1030 object RowNumberStringGrid1: TStringGrid 1031 object RowNumberStringGrid1: TStringGrid
1031 Left = 124 1032 Left = 166
1032 Height = 623 1033 Height = 728
1033 Top = 0 1034 Top = 0
1034 Width = 32 1035 Width = 43
1035 Align = alRight 1036 Align = alRight
1036 BorderStyle = bsNone 1037 BorderStyle = bsNone
1037 ColCount = 1 1038 ColCount = 1
1038 DefaultColWidth = 32 1039 DefaultColWidth = 43
1039 Enabled = False 1040 Enabled = False
1040 ParentFont = False 1041 ParentFont = False
1041 RowCount = 32 1042 RowCount = 32
@@ -1047,19 +1048,19 @@ object frmTracker: TfrmTracker
1047 end 1048 end
1048 object WavesTabSheet: TTabSheet 1049 object WavesTabSheet: TTabSheet
1049 Caption = 'Waves' 1050 Caption = 'Waves'
1050 ClientHeight = 649 1051 ClientHeight = 762
1051 ClientWidth = 1097 1052 ClientWidth = 1242
1052 ParentFont = False 1053 ParentFont = False
1053 object WaveEditPaintBox: TPaintBox 1054 object WaveEditPaintBox: TPaintBox
1054 AnchorSideTop.Control = WaveEditGroupBox 1055 AnchorSideTop.Control = WaveEditGroupBox
1055 AnchorSideTop.Side = asrBottom 1056 AnchorSideTop.Side = asrBottom
1056 Left = 0 1057 Left = 0
1057 Height = 489 1058 Height = 549
1058 Top = 160 1059 Top = 213
1059 Width = 1097 1060 Width = 1242
1060 Align = alBottom 1061 Align = alBottom
1061 Anchors = [akTop, akLeft, akRight, akBottom] 1062 Anchors = [akTop, akLeft, akRight, akBottom]
1062 BorderSpacing.Top = 13 1063 BorderSpacing.Top = 17
1063 ParentFont = False 1064 ParentFont = False
1064 PopupMenu = WaveEditPopup 1065 PopupMenu = WaveEditPopup
1065 OnMouseDown = WaveEditPaintBoxMouseDown 1066 OnMouseDown = WaveEditPaintBoxMouseDown
@@ -1068,81 +1069,81 @@ object frmTracker: TfrmTracker
1068 OnPaint = WaveEditPaintBoxPaint 1069 OnPaint = WaveEditPaintBoxPaint
1069 end 1070 end
1070 object WaveEditGroupBox: TGroupBox 1071 object WaveEditGroupBox: TGroupBox
1071 Left = 8 1072 Left = 11
1072 Height = 139 1073 Height = 185
1073 Top = 8 1074 Top = 11
1074 Width = 568 1075 Width = 757
1075 Caption = 'Wave Editor' 1076 Caption = 'Wave Editor'
1076 ClientHeight = 135 1077 ClientHeight = 181
1077 ClientWidth = 564 1078 ClientWidth = 753
1078 ParentFont = False 1079 ParentFont = False
1079 TabOrder = 0 1080 TabOrder = 0
1080 object Label20: TLabel 1081 object Label20: TLabel
1081 Left = 16 1082 Left = 21
1082 Height = 17 1083 Height = 23
1083 Top = 16 1084 Top = 21
1084 Width = 31 1085 Width = 41
1085 Caption = 'Wave' 1086 Caption = 'Wave'
1086 ParentColor = False 1087 ParentColor = False
1087 ParentFont = False 1088 ParentFont = False
1088 end 1089 end
1089 object WaveEditNumberSpinner: TSpinEdit 1090 object WaveEditNumberSpinner: TSpinEdit
1090 Left = 64 1091 Left = 85
1091 Height = 27 1092 Height = 33
1092 Top = 8 1093 Top = 11
1093 Width = 80 1094 Width = 107
1094 MaxValue = 15 1095 MaxValue = 15
1095 OnChange = WaveEditNumberSpinnerChange 1096 OnChange = WaveEditNumberSpinnerChange
1096 ParentFont = False 1097 ParentFont = False
1097 TabOrder = 0 1098 TabOrder = 0
1098 end 1099 end
1099 object ImportWaveButton: TButton 1100 object ImportWaveButton: TButton
1100 Left = 16 1101 Left = 21
1101 Height = 25 1102 Height = 33
1102 Hint = 'Import a wave' 1103 Hint = 'Import a wave'
1103 Top = 48 1104 Top = 64
1104 Width = 147 1105 Width = 196
1105 Caption = 'Import' 1106 Caption = 'Import'
1106 OnClick = ImportWaveButtonClick
1107 ParentFont = False 1107 ParentFont = False
1108 TabOrder = 1 1108 TabOrder = 1
1109 OnClick = ImportWaveButtonClick
1109 end 1110 end
1110 object ExportWaveButton: TButton 1111 object ExportWaveButton: TButton
1111 Left = 16 1112 Left = 21
1112 Height = 25 1113 Height = 33
1113 Hint = 'Export a wave' 1114 Hint = 'Export a wave'
1114 Top = 80 1115 Top = 107
1115 Width = 147 1116 Width = 196
1116 Caption = 'Export' 1117 Caption = 'Export'
1117 OnClick = ExportWaveButtonClick
1118 ParentFont = False 1118 ParentFont = False
1119 TabOrder = 2 1119 TabOrder = 2
1120 OnClick = ExportWaveButtonClick
1120 end 1121 end
1121 object HexWaveEdit: TEdit 1122 object HexWaveEdit: TEdit
1122 Left = 288 1123 Left = 384
1123 Height = 27 1124 Height = 33
1124 Top = 8 1125 Top = 11
1125 Width = 264 1126 Width = 352
1126 MaxLength = 32 1127 MaxLength = 32
1127 OnChange = HexWaveEditEditingDone
1128 OnEditingDone = HexWaveEditEditingDone
1129 ParentFont = False 1128 ParentFont = False
1130 TabOrder = 3 1129 TabOrder = 3
1130 OnChange = HexWaveEditEditingDone
1131 OnEditingDone = HexWaveEditEditingDone
1131 end 1132 end
1132 object Label13: TLabel 1133 object Label13: TLabel
1133 Left = 176 1134 Left = 235
1134 Height = 17 1135 Height = 23
1135 Top = 16 1136 Top = 21
1136 Width = 108 1137 Width = 145
1137 Caption = 'Hex representation' 1138 Caption = 'Hex representation'
1138 ParentColor = False 1139 ParentColor = False
1139 ParentFont = False 1140 ParentFont = False
1140 end 1141 end
1141 object PlayWaveWhileDrawingCheckbox: TCheckBox 1142 object PlayWaveWhileDrawingCheckbox: TCheckBox
1142 Left = 176 1143 Left = 235
1143 Height = 21 1144 Height = 25
1144 Top = 40 1145 Top = 53
1145 Width = 158 1146 Width = 207
1146 Caption = 'Play wave while drawing' 1147 Caption = 'Play wave while drawing'
1147 ParentFont = False 1148 ParentFont = False
1148 TabOrder = 4 1149 TabOrder = 4
@@ -1151,30 +1152,30 @@ object frmTracker: TfrmTracker
1151 end 1152 end
1152 object CommentsTabSheet: TTabSheet 1153 object CommentsTabSheet: TTabSheet
1153 Caption = 'Comments' 1154 Caption = 'Comments'
1154 ClientHeight = 649 1155 ClientHeight = 762
1155 ClientWidth = 1097 1156 ClientWidth = 1242
1156 ParentFont = False 1157 ParentFont = False
1157 object CommentMemo: TMemo 1158 object CommentMemo: TMemo
1158 AnchorSideTop.Control = Label17 1159 AnchorSideTop.Control = Label17
1159 AnchorSideTop.Side = asrBottom 1160 AnchorSideTop.Side = asrBottom
1160 Left = 0 1161 Left = 0
1161 Height = 611 1162 Height = 711
1162 Hint = 'The comments section for your song. Greetings/links/etc' 1163 Hint = 'The comments section for your song. Greetings/links/etc'
1163 Top = 38 1164 Top = 51
1164 Width = 1097 1165 Width = 1242
1165 Align = alBottom 1166 Align = alBottom
1166 Anchors = [akTop, akLeft, akRight, akBottom] 1167 Anchors = [akTop, akLeft, akRight, akBottom]
1167 BorderSpacing.Top = 13 1168 BorderSpacing.Top = 17
1168 MaxLength = 255 1169 MaxLength = 255
1169 OnChange = CommentMemoChange
1170 ParentFont = False 1170 ParentFont = False
1171 TabOrder = 0 1171 TabOrder = 0
1172 OnChange = CommentMemoChange
1172 end 1173 end
1173 object Label17: TLabel 1174 object Label17: TLabel
1174 Left = 8 1175 Left = 11
1175 Height = 17 1176 Height = 23
1176 Top = 8 1177 Top = 11
1177 Width = 351 1178 Width = 481
1178 Caption = 'This is an area to write comments for anyone editing your tune.' 1179 Caption = 'This is an area to write comments for anyone editing your tune.'
1179 ParentColor = False 1180 ParentColor = False
1180 ParentFont = False 1181 ParentFont = False
@@ -1182,27 +1183,27 @@ object frmTracker: TfrmTracker
1182 end 1183 end
1183 object RoutinesTabSheet: TTabSheet 1184 object RoutinesTabSheet: TTabSheet
1184 Caption = 'Routines' 1185 Caption = 'Routines'
1185 ClientHeight = 649 1186 ClientHeight = 762
1186 ClientWidth = 1097 1187 ClientWidth = 1242
1187 ParentFont = False 1188 ParentFont = False
1188 inline RoutineSynedit: TSynEdit 1189 inline RoutineSynedit: TSynEdit
1189 AnchorSideTop.Control = Label19 1190 AnchorSideTop.Control = Label19
1190 AnchorSideTop.Side = asrBottom 1191 AnchorSideTop.Side = asrBottom
1191 Left = 0 1192 Left = 0
1192 Height = 528 1193 Height = 600
1193 Top = 121 1194 Top = 162
1194 Width = 1097 1195 Width = 1242
1195 Align = alBottom 1196 Align = alBottom
1196 BorderSpacing.Top = 13 1197 BorderSpacing.Top = 17
1197 Anchors = [akTop, akLeft, akRight, akBottom] 1198 Anchors = [akTop, akLeft, akRight, akBottom]
1198 Font.Height = -13 1199 Font.Height = -17
1199 Font.Name = 'Courier New' 1200 Font.Name = 'Courier New'
1200 Font.Pitch = fpFixed 1201 Font.Pitch = fpFixed
1201 Font.Quality = fqNonAntialiased 1202 Font.Quality = fqNonAntialiased
1202 ParentColor = False 1203 ParentColor = False
1203 ParentFont = False 1204 ParentFont = False
1204 TabOrder = 0 1205 TabOrder = 0
1205 Gutter.Width = 57 1206 Gutter.Width = 74
1206 Gutter.MouseActions = <> 1207 Gutter.MouseActions = <>
1207 RightGutter.Width = 0 1208 RightGutter.Width = 0
1208 RightGutter.MouseActions = <> 1209 RightGutter.MouseActions = <>
@@ -1656,11 +1657,11 @@ object frmTracker: TfrmTracker
1656 OnChange = RoutineSyneditChange 1657 OnChange = RoutineSyneditChange
1657 inline SynLeftGutterPartList1: TSynGutterPartList 1658 inline SynLeftGutterPartList1: TSynGutterPartList
1658 object SynGutterMarks1: TSynGutterMarks 1659 object SynGutterMarks1: TSynGutterMarks
1659 Width = 24 1660 Width = 32
1660 MouseActions = <> 1661 MouseActions = <>
1661 end 1662 end
1662 object SynGutterLineNumber1: TSynGutterLineNumber 1663 object SynGutterLineNumber1: TSynGutterLineNumber
1663 Width = 17 1664 Width = 21
1664 MouseActions = <> 1665 MouseActions = <>
1665 MarkupInfo.Background = clBtnFace 1666 MarkupInfo.Background = clBtnFace
1666 MarkupInfo.Foreground = clNone 1667 MarkupInfo.Foreground = clNone
@@ -1670,18 +1671,19 @@ object frmTracker: TfrmTracker
1670 LeadingZeros = False 1671 LeadingZeros = False
1671 end 1672 end
1672 object SynGutterChanges1: TSynGutterChanges 1673 object SynGutterChanges1: TSynGutterChanges
1673 Width = 4 1674 Width = 5
1674 MouseActions = <> 1675 MouseActions = <>
1675 ModifiedColor = 59900 1676 ModifiedColor = 59900
1676 SavedColor = clGreen 1677 SavedColor = clGreen
1677 end 1678 end
1678 object SynGutterSeparator1: TSynGutterSeparator 1679 object SynGutterSeparator1: TSynGutterSeparator
1679 Width = 2 1680 Width = 3
1680 MouseActions = <> 1681 MouseActions = <>
1681 MarkupInfo.Background = clWhite 1682 MarkupInfo.Background = clWhite
1682 MarkupInfo.Foreground = clGray 1683 MarkupInfo.Foreground = clGray
1683 end 1684 end
1684 object SynGutterCodeFolding1: TSynGutterCodeFolding 1685 object SynGutterCodeFolding1: TSynGutterCodeFolding
1686 Width = 13
1685 MouseActions = <> 1687 MouseActions = <>
1686 MarkupInfo.Background = clNone 1688 MarkupInfo.Background = clNone
1687 MarkupInfo.Foreground = clGray 1689 MarkupInfo.Foreground = clGray
@@ -1691,19 +1693,19 @@ object frmTracker: TfrmTracker
1691 end 1693 end
1692 end 1694 end
1693 object Label18: TLabel 1695 object Label18: TLabel
1694 Left = 8 1696 Left = 11
1695 Height = 17 1697 Height = 23
1696 Top = 16 1698 Top = 21
1697 Width = 42 1699 Width = 59
1698 Caption = 'Routine' 1700 Caption = 'Routine'
1699 ParentColor = False 1701 ParentColor = False
1700 ParentFont = False 1702 ParentFont = False
1701 end 1703 end
1702 object RoutineNumberSpinner: TSpinEdit 1704 object RoutineNumberSpinner: TSpinEdit
1703 Left = 64 1705 Left = 85
1704 Height = 27 1706 Height = 33
1705 Top = 8 1707 Top = 11
1706 Width = 176 1708 Width = 235
1707 MaxValue = 15 1709 MaxValue = 15
1708 OnChange = RoutineNumberSpinnerChange 1710 OnChange = RoutineNumberSpinnerChange
1709 ParentFont = False 1711 ParentFont = False
@@ -1711,10 +1713,10 @@ object frmTracker: TfrmTracker
1711 Value = 1 1713 Value = 1
1712 end 1714 end
1713 object Label19: TLabel 1715 object Label19: TLabel
1714 Left = 8 1716 Left = 11
1715 Height = 68 1717 Height = 92
1716 Top = 40 1718 Top = 53
1717 Width = 531 1719 Width = 725
1718 Caption = 'Routines are an advanced feature of hUGETracker, and you likely won''t need them at all'#13#10'if you are only interested in composing music. If you want to create a custom effect, or interface'#13#10'with game code that you''re writing a soundtrack for, then routines will come in handy.'#13#10#13#10'Refer to the user manual for more information!' 1720 Caption = 'Routines are an advanced feature of hUGETracker, and you likely won''t need them at all'#13#10'if you are only interested in composing music. If you want to create a custom effect, or interface'#13#10'with game code that you''re writing a soundtrack for, then routines will come in handy.'#13#10#13#10'Refer to the user manual for more information!'
1719 ParentColor = False 1721 ParentColor = False
1720 ParentFont = False 1722 ParentFont = False
@@ -1724,21 +1726,21 @@ object frmTracker: TfrmTracker
1724 end 1726 end
1725 object ScopesPanel: TPanel 1727 object ScopesPanel: TPanel
1726 Left = 0 1728 Left = 0
1727 Height = 64 1729 Height = 85
1728 Top = 29 1730 Top = 35
1729 Width = 1301 1731 Width = 1512
1730 Align = alTop 1732 Align = alTop
1731 BevelOuter = bvNone 1733 BevelOuter = bvNone
1732 ClientHeight = 64 1734 ClientHeight = 85
1733 ClientWidth = 1301 1735 ClientWidth = 1512
1734 ParentFont = False 1736 ParentFont = False
1735 TabOrder = 3 1737 TabOrder = 3
1736 object LEDMeter1: TLEDMeter 1738 object LEDMeter1: TLEDMeter
1737 AnchorSideRight.Control = Duty1Visualizer 1739 AnchorSideRight.Control = Duty1Visualizer
1738 Left = 0 1740 Left = 0
1739 Height = 32 1741 Height = 43
1740 Top = 32 1742 Top = 43
1741 Width = 513 1743 Width = 460
1742 Anchors = [akTop, akLeft, akRight] 1744 Anchors = [akTop, akLeft, akRight]
1743 BevelStyle = bvLowered 1745 BevelStyle = bvLowered
1744 Colors.Border = 2168839 1746 Colors.Border = 2168839
@@ -1759,9 +1761,9 @@ object frmTracker: TfrmTracker
1759 object LEDMeter2: TLEDMeter 1761 object LEDMeter2: TLEDMeter
1760 AnchorSideRight.Control = Duty1Visualizer 1762 AnchorSideRight.Control = Duty1Visualizer
1761 Left = 0 1763 Left = 0
1762 Height = 32 1764 Height = 43
1763 Top = 0 1765 Top = 0
1764 Width = 513 1766 Width = 460
1765 Anchors = [akTop, akLeft, akRight] 1767 Anchors = [akTop, akLeft, akRight]
1766 BevelStyle = bvLowered 1768 BevelStyle = bvLowered
1767 Colors.Border = 2168839 1769 Colors.Border = 2168839
@@ -1780,40 +1782,40 @@ object frmTracker: TfrmTracker
1780 Section3Value = 48 1782 Section3Value = 48
1781 end 1783 end
1782 object Duty1Visualizer: TPaintBox 1784 object Duty1Visualizer: TPaintBox
1783 Left = 513 1785 Left = 460
1784 Height = 64 1786 Height = 85
1785 Top = 0 1787 Top = 0
1786 Width = 197 1788 Width = 263
1787 Align = alRight 1789 Align = alRight
1788 ParentFont = False 1790 ParentFont = False
1789 OnClick = Duty1VisualizerClick 1791 OnClick = Duty1VisualizerClick
1790 OnPaint = Duty1VisualizerPaint 1792 OnPaint = Duty1VisualizerPaint
1791 end 1793 end
1792 object Duty2Visualizer: TPaintBox 1794 object Duty2Visualizer: TPaintBox
1793 Left = 710 1795 Left = 723
1794 Height = 64 1796 Height = 85
1795 Top = 0 1797 Top = 0
1796 Width = 197 1798 Width = 263
1797 Align = alRight 1799 Align = alRight
1798 ParentFont = False 1800 ParentFont = False
1799 OnClick = Duty1VisualizerClick 1801 OnClick = Duty1VisualizerClick
1800 OnPaint = Duty2VisualizerPaint 1802 OnPaint = Duty2VisualizerPaint
1801 end 1803 end
1802 object WaveVisualizer: TPaintBox 1804 object WaveVisualizer: TPaintBox
1803 Left = 907 1805 Left = 986
1804 Height = 64 1806 Height = 85
1805 Top = 0 1807 Top = 0
1806 Width = 197 1808 Width = 263
1807 Align = alRight 1809 Align = alRight
1808 ParentFont = False 1810 ParentFont = False
1809 OnClick = Duty1VisualizerClick 1811 OnClick = Duty1VisualizerClick
1810 OnPaint = WaveVisualizerPaint 1812 OnPaint = WaveVisualizerPaint
1811 end 1813 end
1812 object NoiseVisualizer: TPaintBox 1814 object NoiseVisualizer: TPaintBox
1813 Left = 1104 1815 Left = 1249
1814 Height = 64 1816 Height = 85
1815 Top = 0 1817 Top = 0
1816 Width = 197 1818 Width = 263
1817 Align = alRight 1819 Align = alRight
1818 ParentFont = False 1820 ParentFont = False
1819 OnClick = Duty1VisualizerClick 1821 OnClick = Duty1VisualizerClick
@@ -1822,19 +1824,19 @@ object frmTracker: TfrmTracker
1822 end 1824 end
1823 object StatusBar1: TStatusBar 1825 object StatusBar1: TStatusBar
1824 Left = 0 1826 Left = 0
1825 Height = 21 1827 Height = 27
1826 Top = 777 1828 Top = 923
1827 Width = 1301 1829 Width = 1512
1828 AutoHint = True 1830 AutoHint = True
1829 Panels = < 1831 Panels = <
1830 item 1832 item
1831 Width = 467 1833 Width = 623
1832 end 1834 end
1833 item 1835 item
1834 Width = 200 1836 Width = 267
1835 end 1837 end
1836 item 1838 item
1837 Width = 200 1839 Width = 267
1838 end> 1840 end>
1839 ParentFont = False 1841 ParentFont = False
1840 ParentShowHint = False 1842 ParentShowHint = False
@@ -1843,9 +1845,9 @@ object frmTracker: TfrmTracker
1843 end 1845 end
1844 object ToolBar1: TToolBar 1846 object ToolBar1: TToolBar
1845 Left = 0 1847 Left = 0
1846 Height = 29 1848 Height = 35
1847 Top = 0 1849 Top = 0
1848 Width = 1301 1850 Width = 1512
1849 AutoSize = True 1851 AutoSize = True
1850 Caption = 'ToolBar1' 1852 Caption = 'ToolBar1'
1851 EdgeBorders = [ebBottom] 1853 EdgeBorders = [ebBottom]
@@ -1862,7 +1864,7 @@ object frmTracker: TfrmTracker
1862 ParentShowHint = False 1864 ParentShowHint = False
1863 end 1865 end
1864 object PanicToolButton: TToolButton 1866 object PanicToolButton: TToolButton
1865 Left = 528 1867 Left = 641
1866 Hint = 'Stops all sound output' 1868 Hint = 'Stops all sound output'
1867 Top = 0 1869 Top = 0
1868 AutoSize = True 1870 AutoSize = True
@@ -1873,17 +1875,17 @@ object frmTracker: TfrmTracker
1873 ShowHint = True 1875 ShowHint = True
1874 end 1876 end
1875 object ToolButton2: TToolButton 1877 object ToolButton2: TToolButton
1876 Left = 120 1878 Left = 143
1877 Top = 0 1879 Top = 0
1878 Action = PlayCursorAction 1880 Action = PlayCursorAction
1879 end 1881 end
1880 object ToolButton4: TToolButton 1882 object ToolButton4: TToolButton
1881 Left = 149 1883 Left = 175
1882 Top = 0 1884 Top = 0
1883 Action = StopAction 1885 Action = StopAction
1884 end 1886 end
1885 object ExportGBButton: TToolButton 1887 object ExportGBButton: TToolButton
1886 Left = 246 1888 Left = 281
1887 Hint = 'Export the song as a standalone ROM' 1889 Hint = 'Export the song as a standalone ROM'
1888 Top = 0 1890 Top = 0
1889 AutoSize = True 1891 AutoSize = True
@@ -1892,49 +1894,49 @@ object frmTracker: TfrmTracker
1892 OnClick = ExportGBButtonClick 1894 OnClick = ExportGBButtonClick
1893 end 1895 end
1894 object ToolButton8: TToolButton 1896 object ToolButton8: TToolButton
1895 Left = 86 1897 Left = 106
1896 Height = 22 1898 Height = 29
1897 Top = 0 1899 Top = 0
1898 Caption = 'ToolButton8' 1900 Caption = 'ToolButton8'
1899 Style = tbsDivider 1901 Style = tbsDivider
1900 end 1902 end
1901 object ToolButton6: TToolButton 1903 object ToolButton6: TToolButton
1902 Left = 207 1904 Left = 239
1903 Height = 22 1905 Height = 29
1904 Top = 0 1906 Top = 0
1905 Caption = 'ToolButton6' 1907 Caption = 'ToolButton6'
1906 Style = tbsDivider 1908 Style = tbsDivider
1907 end 1909 end
1908 object ToolButton7: TToolButton 1910 object ToolButton7: TToolButton
1909 Left = 1072 1911 Left = 1358
1910 Height = 22 1912 Height = 29
1911 Top = 0 1913 Top = 0
1912 Caption = 'ToolButton7' 1914 Caption = 'ToolButton7'
1913 Style = tbsSeparator 1915 Style = tbsSeparator
1914 end 1916 end
1915 object OctaveSpinEdit: TSpinEdit 1917 object OctaveSpinEdit: TSpinEdit
1916 Left = 638 1918 Left = 779
1917 Height = 27 1919 Height = 33
1918 Hint = 'The octave offset for entering new notes' 1920 Hint = 'The octave offset for entering new notes'
1919 Top = 0 1921 Top = 0
1920 Width = 65 1922 Width = 87
1921 MaxValue = 5 1923 MaxValue = 5
1922 OnChange = OctaveSpinEditChange 1924 OnChange = OctaveSpinEditChange
1923 ParentFont = False 1925 ParentFont = False
1924 TabOrder = 0 1926 TabOrder = 0
1925 end 1927 end
1926 object ToolButton9: TToolButton 1928 object ToolButton9: TToolButton
1927 Left = 587 1929 Left = 714
1928 Height = 22 1930 Height = 29
1929 Top = 0 1931 Top = 0
1930 Caption = 'ToolButton9' 1932 Caption = 'ToolButton9'
1931 Style = tbsSeparator 1933 Style = tbsSeparator
1932 end 1934 end
1933 object Label22: TLabel 1935 object Label22: TLabel
1934 Left = 595 1936 Left = 722
1935 Height = 22 1937 Height = 29
1936 Top = 0 1938 Top = 0
1937 Width = 43 1939 Width = 57
1938 AutoSize = False 1940 AutoSize = False
1939 Caption = 'Octave ' 1941 Caption = 'Octave '
1940 Layout = tlCenter 1942 Layout = tlCenter
@@ -1942,10 +1944,10 @@ object frmTracker: TfrmTracker
1942 ParentFont = False 1944 ParentFont = False
1943 end 1945 end
1944 object Label23: TLabel 1946 object Label23: TLabel
1945 Left = 703 1947 Left = 866
1946 Height = 22 1948 Height = 29
1947 Top = 0 1949 Top = 0
1948 Width = 70 1950 Width = 93
1949 AutoSize = False 1951 AutoSize = False
1950 Caption = ' Instrument ' 1952 Caption = ' Instrument '
1951 Layout = tlCenter 1953 Layout = tlCenter
@@ -1953,28 +1955,28 @@ object frmTracker: TfrmTracker
1953 ParentFont = False 1955 ParentFont = False
1954 end 1956 end
1955 object InstrumentComboBox: TComboBox 1957 object InstrumentComboBox: TComboBox
1956 Left = 773 1958 Left = 959
1957 Height = 25 1959 Height = 31
1958 Hint = 'The selected instrument for new notes' 1960 Hint = 'The selected instrument for new notes'
1959 Top = 0 1961 Top = 0
1960 Width = 214 1962 Width = 285
1961 DropDownCount = 999 1963 DropDownCount = 999
1962 ItemHeight = 0 1964 ItemHeight = 0
1963 ItemIndex = 0 1965 ItemIndex = 0
1964 Items.Strings = ( 1966 Items.Strings = (
1965 '(no instrument)' 1967 '(no instrument)'
1966 ) 1968 )
1967 OnChange = InstrumentComboBoxChange
1968 ParentFont = False 1969 ParentFont = False
1969 Style = csDropDownList 1970 Style = csDropDownList
1970 TabOrder = 1 1971 TabOrder = 1
1971 Text = '(no instrument)' 1972 Text = '(no instrument)'
1973 OnChange = InstrumentComboBoxChange
1972 end 1974 end
1973 object Label24: TLabel 1975 object Label24: TLabel
1974 Left = 987 1976 Left = 1244
1975 Height = 22 1977 Height = 29
1976 Top = 0 1978 Top = 0
1977 Width = 35 1979 Width = 47
1978 AutoSize = False 1980 AutoSize = False
1979 Caption = ' Step ' 1981 Caption = ' Step '
1980 Layout = tlCenter 1982 Layout = tlCenter
@@ -1982,23 +1984,23 @@ object frmTracker: TfrmTracker
1982 ParentFont = False 1984 ParentFont = False
1983 end 1985 end
1984 object StepSpinEdit: TSpinEdit 1986 object StepSpinEdit: TSpinEdit
1985 Left = 1022 1987 Left = 1291
1986 Height = 27 1988 Height = 33
1987 Hint = 'How many rows to step down after entering a new note' 1989 Hint = 'How many rows to step down after entering a new note'
1988 Top = 0 1990 Top = 0
1989 Width = 50 1991 Width = 67
1990 MaxValue = 63 1992 MaxValue = 63
1991 OnChange = StepSpinEditChange 1993 OnChange = StepSpinEditChange
1992 ParentFont = False 1994 ParentFont = False
1993 TabOrder = 2 1995 TabOrder = 2
1994 end 1996 end
1995 object ToolButton3: TToolButton 1997 object ToolButton3: TToolButton
1996 Left = 91 1998 Left = 111
1997 Top = 0 1999 Top = 0
1998 Action = PlayStartAction 2000 Action = PlayStartAction
1999 end 2001 end
2000 object ExportGBSButton: TToolButton 2002 object ExportGBSButton: TToolButton
2001 Left = 331 2003 Left = 389
2002 Hint = 'Export the song as a GBS soundtrack' 2004 Hint = 'Export the song as a GBS soundtrack'
2003 Top = 0 2005 Top = 0
2004 Caption = 'Export GBS' 2006 Caption = 'Export GBS'
@@ -2006,14 +2008,14 @@ object frmTracker: TfrmTracker
2006 OnClick = ExportGBSButtonClick 2008 OnClick = ExportGBSButtonClick
2007 end 2009 end
2008 object ToolButton5: TToolButton 2010 object ToolButton5: TToolButton
2009 Left = 523 2011 Left = 636
2010 Height = 22 2012 Height = 29
2011 Top = 0 2013 Top = 0
2012 Caption = 'ToolButton5' 2014 Caption = 'ToolButton5'
2013 Style = tbsDivider 2015 Style = tbsDivider
2014 end 2016 end
2015 object ToolButton10: TToolButton 2017 object ToolButton10: TToolButton
2016 Left = 423 2018 Left = 506
2017 Hint = 'Export the song as WAV or MP3' 2019 Hint = 'Export the song as WAV or MP3'
2018 Top = 0 2020 Top = 0
2019 Caption = 'Render Song' 2021 Caption = 'Render Song'
@@ -2021,29 +2023,29 @@ object frmTracker: TfrmTracker
2021 OnClick = ToolButton10Click 2023 OnClick = ToolButton10Click
2022 end 2024 end
2023 object ToolButton11: TToolButton 2025 object ToolButton11: TToolButton
2024 Left = 241 2026 Left = 276
2025 Height = 22 2027 Height = 29
2026 Top = 0 2028 Top = 0
2027 Caption = 'ToolButton11' 2029 Caption = 'ToolButton11'
2028 Style = tbsDivider 2030 Style = tbsDivider
2029 end 2031 end
2030 object LoopSongToolButton: TToolButton 2032 object LoopSongToolButton: TToolButton
2031 Left = 212 2033 Left = 244
2032 Top = 0 2034 Top = 0
2033 ImageIndex = 87 2035 ImageIndex = 87
2034 OnClick = LoopSongToolButtonClick 2036 OnClick = LoopSongToolButtonClick
2035 Style = tbsCheck 2037 Style = tbsCheck
2036 end 2038 end
2037 object ToolButton12: TToolButton 2039 object ToolButton12: TToolButton
2038 Left = 178 2040 Left = 207
2039 Top = 0 2041 Top = 0
2040 Action = SingleStepAction 2042 Action = SingleStepAction
2041 end 2043 end
2042 end 2044 end
2043 object MainMenu1: TMainMenu 2045 object MainMenu1: TMainMenu
2044 Images = ImageList1 2046 Images = ImageList1
2045 Left = 40 2047 Left = 53
2046 Top = 32 2048 Top = 43
2047 object MenuItem1: TMenuItem 2049 object MenuItem1: TMenuItem
2048 Caption = 'File' 2050 Caption = 'File'
2049 object MenuItem33: TMenuItem 2051 object MenuItem33: TMenuItem
@@ -2209,8 +2211,8 @@ object frmTracker: TfrmTracker
2209 end 2211 end
2210 object MenuBarActionList: TActionList 2212 object MenuBarActionList: TActionList
2211 Images = ImageList1 2213 Images = ImageList1
2212 Left = 104 2214 Left = 139
2213 Top = 72 2215 Top = 96
2214 object FileOpen1: TFileOpen 2216 object FileOpen1: TFileOpen
2215 Category = 'File' 2217 Category = 'File'
2216 Caption = '&Open ...' 2218 Caption = '&Open ...'
@@ -2320,8 +2322,8 @@ object frmTracker: TfrmTracker
2320 end 2322 end
2321 end 2323 end
2322 object ImageList1: TImageList 2324 object ImageList1: TImageList
2323 Left = 152 2325 Left = 203
2324 Top = 32 2326 Top = 43
2325 Bitmap = { 2327 Bitmap = {
2326 4C7A5D0000001000000010000000D32900000000000078DAED5D077C1545FE9F 2328 4C7A5D0000001000000010000000D32900000000000078DAED5D077C1545FE9F
2327 24584EB18288E5FE7AE7E9A9880D3C5114A222A0A7A2282A1A54505038A48888 2329 24584EB18288E5FE7AE7E9A9880D3C5114A222A0A7A2282A1A54505038A48888
@@ -2663,17 +2665,17 @@ object frmTracker: TfrmTracker
2663 end 2665 end
2664 object OpenDialog1: TOpenDialog 2666 object OpenDialog1: TOpenDialog
2665 Filter = 'hUGETracker Instruments|*.ugi' 2667 Filter = 'hUGETracker Instruments|*.ugi'
2666 Left = 80 2668 Left = 107
2667 Top = 56 2669 Top = 75
2668 end 2670 end
2669 object InstrumentSaveDialog: TSaveDialog 2671 object InstrumentSaveDialog: TSaveDialog
2670 Filter = 'hUGETracker Instruments|*.ugi' 2672 Filter = 'hUGETracker Instruments|*.ugi'
2671 Left = 80 2673 Left = 107
2672 Top = 56 2674 Top = 75
2673 end 2675 end
2674 object OrderEditPopup: TPopupMenu 2676 object OrderEditPopup: TPopupMenu
2675 Left = 128 2677 Left = 171
2676 Top = 40 2678 Top = 53
2677 object MenuItem17: TMenuItem 2679 object MenuItem17: TMenuItem
2678 Caption = 'Insert new row' 2680 Caption = 'Insert new row'
2679 Hint = 'Insert a new row filled with brand new patterns' 2681 Hint = 'Insert a new row filled with brand new patterns'
@@ -2704,8 +2706,8 @@ object frmTracker: TfrmTracker
2704 object ImageList2: TImageList 2706 object ImageList2: TImageList
2705 Height = 32 2707 Height = 32
2706 Width = 32 2708 Width = 32
2707 Left = 48 2709 Left = 64
2708 Top = 86 2710 Top = 115
2709 Bitmap = { 2711 Bitmap = {
2710 4C7A020000002000000020000000400200000000000078DAED98818EC3200886 2712 4C7A020000002000000020000000400200000000000078DAED98818EC3200886
2711 7DF4BED9F666DE6CA54504048BBDE572246659B7F503A4C8BF94662CE77EAD34 2713 7DF4BED9F666DE6CA54504048BBDE572246659B7F503A4C8BF94662CE77EAD34
@@ -2732,33 +2734,33 @@ object frmTracker: TfrmTracker
2732 Enabled = False 2734 Enabled = False
2733 Interval = 200 2735 Interval = 200
2734 OnTimer = OscilloscopeUpdateTimerTimer 2736 OnTimer = OscilloscopeUpdateTimerTimer
2735 Left = 88 2737 Left = 117
2736 Top = 48 2738 Top = 64
2737 end 2739 end
2738 object GBSSaveDialog: TSaveDialog 2740 object GBSSaveDialog: TSaveDialog
2739 Filter = 'Gameboy Soundtrack|*.gbs' 2741 Filter = 'Gameboy Soundtrack|*.gbs'
2740 Left = 288 2742 Left = 384
2741 Top = 24 2743 Top = 32
2742 end 2744 end
2743 object WaveSaveDialog: TSaveDialog 2745 object WaveSaveDialog: TSaveDialog
2744 Filter = 'hUGETracker Waves|*.ugw' 2746 Filter = 'hUGETracker Waves|*.ugw'
2745 Left = 368 2747 Left = 491
2746 Top = 24 2748 Top = 32
2747 end 2749 end
2748 object GBSaveDialog: TSaveDialog 2750 object GBSaveDialog: TSaveDialog
2749 Filter = 'Gameboy ROM|*.gb' 2751 Filter = 'Gameboy ROM|*.gb'
2750 Left = 328 2752 Left = 437
2751 Top = 24 2753 Top = 32
2752 end 2754 end
2753 object NoteHaltTimer: TTimer 2755 object NoteHaltTimer: TTimer
2754 Enabled = False 2756 Enabled = False
2755 OnTimer = NoteHaltTimerTimer 2757 OnTimer = NoteHaltTimerTimer
2756 Left = 80 2758 Left = 107
2757 Top = 86 2759 Top = 115
2758 end 2760 end
2759 object TrackerGridPopup: TPopupMenu 2761 object TrackerGridPopup: TPopupMenu
2760 Left = 96 2762 Left = 128
2761 Top = 24 2763 Top = 32
2762 object TrackerPopupEditEffect: TMenuItem 2764 object TrackerPopupEditEffect: TMenuItem
2763 Caption = 'Edit effect ...' 2765 Caption = 'Edit effect ...'
2764 OnClick = TrackerPopupEditEffectClick 2766 OnClick = TrackerPopupEditEffectClick
@@ -2915,8 +2917,8 @@ object frmTracker: TfrmTracker
2915 object WavSaveDialog: TSaveDialog 2917 object WavSaveDialog: TSaveDialog
2916 DefaultExt = '.wav' 2918 DefaultExt = '.wav'
2917 Filter = 'Wave files|*.wav' 2919 Filter = 'Wave files|*.wav'
2918 Left = 408 2920 Left = 544
2919 Top = 24 2921 Top = 32
2920 end 2922 end
2921 object SynAnySyn1: TSynAnySyn 2923 object SynAnySyn1: TSynAnySyn
2922 Enabled = False 2924 Enabled = False
@@ -3040,18 +3042,18 @@ object frmTracker: TfrmTracker
3040 Entity = False 3042 Entity = False
3041 DollarVariables = False 3043 DollarVariables = False
3042 ActiveDot = False 3044 ActiveDot = False
3043 Left = 8 3045 Left = 11
3044 Top = 86 3046 Top = 115
3045 end 3047 end
3046 object MODOpenDialog: TOpenDialog 3048 object MODOpenDialog: TOpenDialog
3047 DefaultExt = '.mod' 3049 DefaultExt = '.mod'
3048 Filter = 'GBT Player MOD files|*.mod' 3050 Filter = 'GBT Player MOD files|*.mod'
3049 Left = 472 3051 Left = 629
3050 Top = 24 3052 Top = 32
3051 end 3053 end
3052 object WaveEditPopup: TPopupMenu 3054 object WaveEditPopup: TPopupMenu
3053 Left = 8 3055 Left = 11
3054 Top = 32 3056 Top = 43
3055 object MenuItem37: TMenuItem 3057 object MenuItem37: TMenuItem
3056 Caption = 'Copy' 3058 Caption = 'Copy'
3057 OnClick = MenuItem37Click 3059 OnClick = MenuItem37Click
@@ -3063,8 +3065,8 @@ object frmTracker: TfrmTracker
3063 end 3065 end
3064 object ShortcutsActionList: TActionList 3066 object ShortcutsActionList: TActionList
3065 Images = ImageList1 3067 Images = ImageList1
3066 Left = 208 3068 Left = 277
3067 Top = 32 3069 Top = 43
3068 object PlayStartAction: TAction 3070 object PlayStartAction: TAction
3069 DisableIfNoHandler = False 3071 DisableIfNoHandler = False
3070 Hint = 'Play song from start' 3072 Hint = 'Play song from start'
@@ -3194,23 +3196,23 @@ object frmTracker: TfrmTracker
3194 end 3196 end
3195 object GBDKCSaveDialog: TSaveDialog 3197 object GBDKCSaveDialog: TSaveDialog
3196 Filter = 'GBDK C File|*.c' 3198 Filter = 'GBDK C File|*.c'
3197 Left = 248 3199 Left = 331
3198 Top = 24 3200 Top = 32
3199 end 3201 end
3200 object RGBDSAsmSaveDialog: TSaveDialog 3202 object RGBDSAsmSaveDialog: TSaveDialog
3201 Filter = 'RGBDS Assembly|*.asm' 3203 Filter = 'RGBDS Assembly|*.asm'
3202 Left = 272 3204 Left = 363
3203 Top = 48 3205 Top = 64
3204 end 3206 end
3205 object VGMSaveDialog: TSaveDialog 3207 object VGMSaveDialog: TSaveDialog
3206 Filter = 'VGM Rip|*.vgm' 3208 Filter = 'VGM Rip|*.vgm'
3207 Left = 356 3209 Left = 475
3208 Top = 52 3210 Top = 69
3209 end 3211 end
3210 object TBMOpenDialog: TOpenDialog 3212 object TBMOpenDialog: TOpenDialog
3211 DefaultExt = '.tbm' 3213 DefaultExt = '.tbm'
3212 Filter = 'TrackerBoy TBM files|*.tbm' 3214 Filter = 'TrackerBoy TBM files|*.tbm'
3213 Left = 472 3215 Left = 629
3214 Top = 64 3216 Top = 85
3215 end 3217 end
3216 end 3218 end