Commit 8d73982

Nick committed on
Move instrument box back into place?
commit 8d73982333f8fe9e500367e95d840c003b93ec90 parent 2c1c95a
2 changed files +450−451
ModifiedhUGETracker.lpi +1−1
@@ -228,7 +228,7 @@
228 <IsPartOfProject Value="True"/> 228 <IsPartOfProject Value="True"/>
229 </Unit0> 229 </Unit0>
230 <Unit1> 230 <Unit1>
231 <Filename Value="Cpu\machine.pas"/> 231 <Filename Value="CPU\machine.pas"/>
232 <IsPartOfProject Value="True"/> 232 <IsPartOfProject Value="True"/>
233 </Unit1> 233 </Unit1>
234 <Unit2> 234 <Unit2>
Modifiedtracker.lfm +449−450
@@ -1,13 +1,12 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 814 2 Left = 814
3 Height = 1144 3 Height = 654
4 Top = 197 4 Top = 197
5 Width = 2156 5 Width = 1232
6 AllowDropFiles = True 6 AllowDropFiles = True
7 Caption = 'hUGETracker' 7 Caption = 'hUGETracker'
8 ClientHeight = 1110 8 ClientHeight = 634
9 ClientWidth = 2156 9 ClientWidth = 1232
10 DesignTimePPI = 168
11 KeyPreview = True 10 KeyPreview = True
12 Menu = MainMenu1 11 Menu = MainMenu1
13 OnCloseQuery = FormCloseQuery 12 OnCloseQuery = FormCloseQuery
@@ -21,9 +20,9 @@ object frmTracker: TfrmTracker
21 LCLVersion = '2.0.12.0' 20 LCLVersion = '2.0.12.0'
22 object TreeView1: TTreeView 21 object TreeView1: TTreeView
23 Left = 0 22 Left = 0
24 Height = 914 23 Height = 522
25 Top = 153 24 Top = 89
26 Width = 338 25 Width = 193
27 Align = alLeft 26 Align = alLeft
28 ParentFont = False 27 ParentFont = False
29 ReadOnly = True 28 ReadOnly = True
@@ -41,27 +40,27 @@ object frmTracker: TfrmTracker
41 } 40 }
42 end 41 end
43 object Splitter1: TSplitter 42 object Splitter1: TSplitter
44 Left = 338 43 Left = 193
45 Height = 914 44 Height = 522
46 Top = 153 45 Top = 89
47 Width = 9 46 Width = 5
48 end 47 end
49 object Panel1: TPanel 48 object Panel1: TPanel
50 Left = 347 49 Left = 198
51 Height = 914 50 Height = 522
52 Top = 153 51 Top = 89
53 Width = 1809 52 Width = 1034
54 Align = alClient 53 Align = alClient
55 BevelOuter = bvNone 54 BevelOuter = bvNone
56 ClientHeight = 914 55 ClientHeight = 522
57 ClientWidth = 1809 56 ClientWidth = 1034
58 ParentFont = False 57 ParentFont = False
59 TabOrder = 2 58 TabOrder = 2
60 object PageControl1: TPageControl 59 object PageControl1: TPageControl
61 Left = 0 60 Left = 0
62 Height = 914 61 Height = 522
63 Top = 0 62 Top = 0
64 Width = 1809 63 Width = 1034
65 ActivePage = InstrumentTabSheet 64 ActivePage = InstrumentTabSheet
66 Align = alClient 65 Align = alClient
67 ParentFont = False 66 ParentFont = False
@@ -73,70 +72,70 @@ object frmTracker: TfrmTracker
73 ClientWidth = 1801 72 ClientWidth = 1801
74 ParentFont = False 73 ParentFont = False
75 object SongInformationGroupbox: TGroupBox 74 object SongInformationGroupbox: TGroupBox
76 Left = 14 75 Left = 8
77 Height = 238 76 Height = 136
78 Top = 14 77 Top = 8
79 Width = 534 78 Width = 305
80 Caption = 'Song information' 79 Caption = 'Song information'
81 ClientHeight = 203 80 ClientHeight = 116
82 ClientWidth = 530 81 ClientWidth = 301
83 ParentFont = False 82 ParentFont = False
84 TabOrder = 0 83 TabOrder = 0
85 object Label15: TLabel 84 object Label15: TLabel
86 Left = 14 85 Left = 8
87 Height = 30 86 Height = 30
88 Top = 28 87 Top = 16
89 Width = 47 88 Width = 47
90 Caption = 'Song' 89 Caption = 'Song'
91 ParentColor = False 90 ParentColor = False
92 ParentFont = False 91 ParentFont = False
93 end 92 end
94 object Label16: TLabel 93 object Label16: TLabel
95 Left = 12 94 Left = 7
96 Height = 30 95 Height = 30
97 Top = 84 96 Top = 48
98 Width = 49 97 Width = 49
99 Caption = 'Artist' 98 Caption = 'Artist'
100 ParentColor = False 99 ParentColor = False
101 ParentFont = False 100 ParentFont = False
102 end 101 end
103 object SongEdit: TEdit 102 object SongEdit: TEdit
104 Left = 98 103 Left = 56
105 Height = 38 104 Height = 38
106 Hint = 'The name of your composition' 105 Hint = 'The name of your composition'
107 Top = 14 106 Top = 8
108 Width = 378 107 Width = 216
109 MaxLength = 255 108 MaxLength = 255
110 OnChange = SongEditChange 109 OnChange = SongEditChange
111 ParentFont = False 110 ParentFont = False
112 TabOrder = 0 111 TabOrder = 0
113 end 112 end
114 object ArtistEdit: TEdit 113 object ArtistEdit: TEdit
115 Left = 98 114 Left = 56
116 Height = 38 115 Height = 38
117 Hint = 'Your name or handle' 116 Hint = 'Your name or handle'
118 Top = 70 117 Top = 40
119 Width = 378 118 Width = 216
120 MaxLength = 255 119 MaxLength = 255
121 OnChange = ArtistEditChange 120 OnChange = ArtistEditChange
122 ParentFont = False 121 ParentFont = False
123 TabOrder = 1 122 TabOrder = 1
124 end 123 end
125 object Label21: TLabel 124 object Label21: TLabel
126 Left = 14 125 Left = 8
127 Height = 30 126 Height = 30
128 Top = 136 127 Top = 78
129 Width = 197 128 Width = 197
130 Caption = 'Tempo (ticks per row)' 129 Caption = 'Tempo (ticks per row)'
131 ParentColor = False 130 ParentColor = False
132 ParentFont = False 131 ParentFont = False
133 end 132 end
134 object TicksPerRowSpinEdit: TSpinEdit 133 object TicksPerRowSpinEdit: TSpinEdit
135 Left = 233 134 Left = 133
136 Height = 38 135 Height = 38
137 Hint = 'How many ticks should happen before the row changes. Higher means slower' 136 Hint = 'How many ticks should happen before the row changes. Higher means slower'
138 Top = 128 137 Top = 73
139 Width = 88 138 Width = 50
140 MaxValue = 20 139 MaxValue = 20
141 MinValue = 1 140 MinValue = 1
142 OnChange = TicksPerRowSpinEditChange 141 OnChange = TicksPerRowSpinEditChange
@@ -163,7 +162,7 @@ object frmTracker: TfrmTracker
163 TabOrder = 0 162 TabOrder = 0
164 object HeaderControl1: THeaderControl 163 object HeaderControl1: THeaderControl
165 Left = 1 164 Left = 1
166 Height = 52 165 Height = 30
167 Hint = 'Left click to mute, right click to solo' 166 Hint = 'Left click to mute, right click to solo'
168 Top = 1 167 Top = 1
169 Width = 1407 168 Width = 1407
@@ -172,35 +171,35 @@ object frmTracker: TfrmTracker
172 Sections = < 171 Sections = <
173 item 172 item
174 Alignment = taLeftJustify 173 Alignment = taLeftJustify
175 Width = 56 174 Width = 32
176 Visible = True 175 Visible = True
177 end 176 end
178 item 177 item
179 Alignment = taCenter 178 Alignment = taCenter
180 ImageIndex = 1 179 ImageIndex = 1
181 Text = 'Duty 1' 180 Text = 'Duty 1'
182 Width = 233 181 Width = 133
183 Visible = True 182 Visible = True
184 end 183 end
185 item 184 item
186 Alignment = taCenter 185 Alignment = taCenter
187 ImageIndex = 1 186 ImageIndex = 1
188 Text = 'Duty 2' 187 Text = 'Duty 2'
189 Width = 233 188 Width = 133
190 Visible = True 189 Visible = True
191 end 190 end
192 item 191 item
193 Alignment = taCenter 192 Alignment = taCenter
194 ImageIndex = 1 193 ImageIndex = 1
195 Text = 'Wave' 194 Text = 'Wave'
196 Width = 233 195 Width = 133
197 Visible = True 196 Visible = True
198 end 197 end
199 item 198 item
200 Alignment = taCenter 199 Alignment = taCenter
201 ImageIndex = 1 200 ImageIndex = 1
202 Text = 'Noise' 201 Text = 'Noise'
203 Width = 233 202 Width = 133
204 Visible = True 203 Visible = True
205 end> 204 end>
206 OnSectionClick = HeaderControl1SectionClick 205 OnSectionClick = HeaderControl1SectionClick
@@ -233,11 +232,11 @@ object frmTracker: TfrmTracker
233 Left = 0 232 Left = 0
234 Height = 817 233 Height = 817
235 Top = 0 234 Top = 0
236 Width = 56 235 Width = 32
237 Align = alLeft 236 Align = alLeft
238 BorderStyle = bsNone 237 BorderStyle = bsNone
239 ColCount = 1 238 ColCount = 1
240 DefaultColWidth = 56 239 DefaultColWidth = 32
241 Enabled = False 240 Enabled = False
242 ParentFont = False 241 ParentFont = False
243 RowCount = 64 242 RowCount = 64
@@ -250,41 +249,41 @@ object frmTracker: TfrmTracker
250 Left = 0 249 Left = 0
251 Height = 871 250 Height = 871
252 Top = 0 251 Top = 0
253 Width = 392 252 Width = 224
254 Align = alLeft 253 Align = alLeft
255 AutoEdit = False 254 AutoEdit = False
256 AutoFillColumns = True 255 AutoFillColumns = True
257 Columns = < 256 Columns = <
258 item 257 item
259 Alignment = taCenter 258 Alignment = taCenter
260 MinSize = 58 259 MinSize = 33
261 MaxSize = 58 260 MaxSize = 33
262 Title.Caption = 'Dty1' 261 Title.Caption = 'Dty1'
263 Width = 61 262 Width = 34
264 end 263 end
265 item 264 item
266 Alignment = taCenter 265 Alignment = taCenter
267 MinSize = 58 266 MinSize = 33
268 MaxSize = 58 267 MaxSize = 33
269 Title.Caption = 'Dty2' 268 Title.Caption = 'Dty2'
270 Width = 61 269 Width = 34
271 end 270 end
272 item 271 item
273 Alignment = taCenter 272 Alignment = taCenter
274 MinSize = 58 273 MinSize = 33
275 MaxSize = 58 274 MaxSize = 33
276 Title.Caption = 'Wav' 275 Title.Caption = 'Wav'
277 Width = 61 276 Width = 34
278 end 277 end
279 item 278 item
280 Alignment = taCenter 279 Alignment = taCenter
281 MinSize = 58 280 MinSize = 33
282 MaxSize = 58 281 MaxSize = 33
283 Title.Caption = 'Nse' 282 Title.Caption = 'Nse'
284 Width = 63 283 Width = 37
285 end> 284 end>
286 DefaultColWidth = 30 285 DefaultColWidth = 17
287 DefaultRowHeight = 37 286 DefaultRowHeight = 21
288 ExtendedSelect = False 287 ExtendedSelect = False
289 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goRangeSelect, goRowMoving, goEditing, goTabs, goSmoothScroll, goFixedRowNumbering, goRowHighlight] 288 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goRangeSelect, goRowMoving, goEditing, goTabs, goSmoothScroll, goFixedRowNumbering, goRowHighlight]
290 ParentFont = False 289 ParentFont = False
@@ -303,18 +302,18 @@ object frmTracker: TfrmTracker
303 OnKeyDown = OrderEditStringGridKeyDown 302 OnKeyDown = OrderEditStringGridKeyDown
304 OnValidateEntry = OrderEditStringGridValidateEntry 303 OnValidateEntry = OrderEditStringGridValidateEntry
305 ColWidths = ( 304 ColWidths = (
306 112 305 64
307 61 306 34
308 61 307 34
309 61 308 34
310 63 309 37
311 ) 310 )
312 end 311 end
313 end 312 end
314 object InstrumentTabSheet: TTabSheet 313 object InstrumentTabSheet: TTabSheet
315 Caption = 'Instruments' 314 Caption = 'Instruments'
316 ClientHeight = 871 315 ClientHeight = 494
317 ClientWidth = 1801 316 ClientWidth = 1026
318 ParentFont = False 317 ParentFont = False
319 object PaintBox1: TPaintBox 318 object PaintBox1: TPaintBox
320 AnchorSideTop.Control = FlowPanel1 319 AnchorSideTop.Control = FlowPanel1
@@ -323,8 +322,8 @@ object frmTracker: TfrmTracker
323 Left = 0 322 Left = 0
324 Height = 0 323 Height = 0
325 Hint = 'Preview of how the resulting waveform will look with envelope applied' 324 Hint = 'Preview of how the resulting waveform will look with envelope applied'
326 Top = 871 325 Top = 494
327 Width = 1801 326 Width = 1026
328 Align = alClient 327 Align = alClient
329 Color = clBlack 328 Color = clBlack
330 ParentColor = False 329 ParentColor = False
@@ -334,9 +333,9 @@ object frmTracker: TfrmTracker
334 end 333 end
335 object FlowPanel1: TFlowPanel 334 object FlowPanel1: TFlowPanel
336 Left = 0 335 Left = 0
337 Height = 1180 336 Height = 675
338 Top = 0 337 Top = 0
339 Width = 1801 338 Width = 1026
340 Align = alTop 339 Align = alTop
341 AutoSize = True 340 AutoSize = True
342 BevelOuter = bvNone 341 BevelOuter = bvNone
@@ -371,26 +370,26 @@ object frmTracker: TfrmTracker
371 ParentFont = False 370 ParentFont = False
372 TabOrder = 0 371 TabOrder = 0
373 object InstrumentGroupBox: TGroupBox 372 object InstrumentGroupBox: TGroupBox
374 Left = 12 373 Left = 7
375 Height = 422 374 Height = 241
376 Top = 12 375 Top = 7
377 Width = 490 376 Width = 280
378 Anchors = [] 377 Anchors = []
379 BorderSpacing.Left = 12 378 BorderSpacing.Left = 7
380 BorderSpacing.Top = 12 379 BorderSpacing.Top = 7
381 BorderSpacing.Right = 12 380 BorderSpacing.Right = 7
382 BorderSpacing.Bottom = 12 381 BorderSpacing.Bottom = 7
383 Caption = 'Instrument' 382 Caption = 'Instrument'
384 ClientHeight = 387 383 ClientHeight = 221
385 ClientWidth = 486 384 ClientWidth = 276
386 ParentFont = False 385 ParentFont = False
387 TabOrder = 0 386 TabOrder = 0
388 object InstrumentNumberSpinner: TSpinEdit 387 object InstrumentNumberSpinner: TSpinEdit
389 Left = 140 388 Left = 80
390 Height = 38 389 Height = 23
391 Hint = 'What instrument to edit' 390 Hint = 'What instrument to edit'
392 Top = 66 391 Top = 38
393 Width = 327 392 Width = 187
394 MaxValue = 15 393 MaxValue = 15
395 MinValue = 1 394 MinValue = 1
396 OnChange = InstrumentNumberSpinnerChange 395 OnChange = InstrumentNumberSpinnerChange
@@ -399,51 +398,51 @@ object frmTracker: TfrmTracker
399 Value = 1 398 Value = 1
400 end 399 end
401 object Label1: TLabel 400 object Label1: TLabel
402 Left = 14 401 Left = 8
403 Height = 30 402 Height = 15
404 Top = 80 403 Top = 46
405 Width = 101 404 Width = 58
406 Caption = 'Instrument' 405 Caption = 'Instrument'
407 ParentColor = False 406 ParentColor = False
408 ParentFont = False 407 ParentFont = False
409 end 408 end
410 object Label2: TLabel 409 object Label2: TLabel
411 Left = 14 410 Left = 8
412 Height = 30 411 Height = 15
413 Top = 136 412 Top = 78
414 Width = 56 413 Width = 32
415 Caption = 'Name' 414 Caption = 'Name'
416 ParentColor = False 415 ParentColor = False
417 ParentFont = False 416 ParentFont = False
418 end 417 end
419 object InstrumentNameEdit: TEdit 418 object InstrumentNameEdit: TEdit
420 Left = 140 419 Left = 80
421 Height = 38 420 Height = 23
422 Hint = 'The name of the instrument' 421 Hint = 'The name of the instrument'
423 Top = 122 422 Top = 70
424 Width = 327 423 Width = 187
425 MaxLength = 255 424 MaxLength = 255
426 OnChange = InstrumentNameEditChange 425 OnChange = InstrumentNameEditChange
427 ParentFont = False 426 ParentFont = False
428 TabOrder = 1 427 TabOrder = 1
429 end 428 end
430 object Label3: TLabel 429 object Label3: TLabel
431 Left = 14 430 Left = 8
432 Height = 30 431 Height = 15
433 Top = 28 432 Top = 16
434 Width = 80 433 Width = 44
435 Caption = 'Channel' 434 Caption = 'Channel'
436 Font.Style = [fsBold] 435 Font.Style = [fsBold]
437 ParentColor = False 436 ParentColor = False
438 ParentFont = False 437 ParentFont = False
439 end 438 end
440 object InstrumentTypeCombobox: TComboBox 439 object InstrumentTypeCombobox: TComboBox
441 Left = 384 440 Left = 76
442 Height = 38 441 Height = 23
443 Hint = 'What type of channel this instrument will be played on' 442 Hint = 'What type of channel this instrument will be played on'
444 Top = 14 443 Top = 8
445 Width = 331 444 Width = 189
446 ItemHeight = 30 445 ItemHeight = 15
447 ItemIndex = 0 446 ItemIndex = 0
448 Items.Strings = ( 447 Items.Strings = (
449 'Square' 448 'Square'
@@ -457,31 +456,31 @@ object frmTracker: TfrmTracker
457 Text = 'Square' 456 Text = 'Square'
458 end 457 end
459 object LengthEnabledCheckbox: TCheckBox 458 object LengthEnabledCheckbox: TCheckBox
460 Left = 21 459 Left = 12
461 Height = 34 460 Height = 19
462 Hint = 'Cut the sound after a certain length of time' 461 Hint = 'Cut the sound after a certain length of time'
463 Top = 206 462 Top = 118
464 Width = 98 463 Width = 57
465 Caption = 'Length' 464 Caption = 'Length'
466 OnChange = LengthEnabledCheckboxChange 465 OnChange = LengthEnabledCheckboxChange
467 ParentFont = False 466 ParentFont = False
468 TabOrder = 3 467 TabOrder = 3
469 end 468 end
470 object InstrumentImportButton: TButton 469 object InstrumentImportButton: TButton
471 Left = 21 470 Left = 12
472 Height = 44 471 Height = 25
473 Top = 322 472 Top = 184
474 Width = 203 473 Width = 116
475 Caption = 'Import' 474 Caption = 'Import'
476 OnClick = InstrumentImportButtonClick 475 OnClick = InstrumentImportButtonClick
477 ParentFont = False 476 ParentFont = False
478 TabOrder = 4 477 TabOrder = 4
479 end 478 end
480 object InstrumentExportButton: TButton 479 object InstrumentExportButton: TButton
481 Left = 261 480 Left = 149
482 Height = 44 481 Height = 25
483 Top = 322 482 Top = 184
484 Width = 203 483 Width = 116
485 Caption = 'Export' 484 Caption = 'Export'
486 OnClick = InstrumentExportButtonClick 485 OnClick = InstrumentExportButtonClick
487 ParentFont = False 486 ParentFont = False
@@ -489,21 +488,21 @@ object frmTracker: TfrmTracker
489 end 488 end
490 object TestOctave5Button: TButton 489 object TestOctave5Button: TButton
491 Tag = 5 490 Tag = 5
492 Left = 248 491 Left = 142
493 Height = 44 492 Height = 25
494 Hint = 'Test out the instrument with a C-5 note' 493 Hint = 'Test out the instrument with a C-5 note'
495 Top = 256 494 Top = 146
496 Width = 48 495 Width = 27
497 Caption = '5' 496 Caption = '5'
498 OnClick = TestOctaveButtonClick 497 OnClick = TestOctaveButtonClick
499 ParentFont = False 498 ParentFont = False
500 TabOrder = 6 499 TabOrder = 6
501 end 500 end
502 object LengthTrackbar: TTrackBar 501 object LengthTrackbar: TTrackBar
503 Left = 133 502 Left = 76
504 Height = 44 503 Height = 25
505 Top = 196 504 Top = 112
506 Width = 331 505 Width = 189
507 Max = 63 506 Max = 63
508 OnChange = LengthSpinnerChange 507 OnChange = LengthSpinnerChange
509 Position = 0 508 Position = 0
@@ -512,20 +511,21 @@ object frmTracker: TfrmTracker
512 TabOrder = 7 511 TabOrder = 7
513 end 512 end
514 object Label14: TLabel 513 object Label14: TLabel
515 Left = 21 514 Left = 12
516 Height = 30 515 Height = 15
517 Top = 266 516 Top = 152
518 Width = 108 517 Width = 61
519 Caption = 'Test octave:' 518 Caption = 'Test octave:'
520 ParentColor = False 519 ParentColor = False
520 ParentFont = False
521 end 521 end
522 object TestOctave5Button1: TButton 522 object TestOctave5Button1: TButton
523 Tag = 4 523 Tag = 4
524 Left = 192 524 Left = 110
525 Height = 44 525 Height = 25
526 Hint = 'Test out the instrument with a C-5 note' 526 Hint = 'Test out the instrument with a C-5 note'
527 Top = 256 527 Top = 146
528 Width = 48 528 Width = 27
529 Caption = '4' 529 Caption = '4'
530 OnClick = TestOctaveButtonClick 530 OnClick = TestOctaveButtonClick
531 ParentFont = False 531 ParentFont = False
@@ -533,11 +533,11 @@ object frmTracker: TfrmTracker
533 end 533 end
534 object TestOctave5Button2: TButton 534 object TestOctave5Button2: TButton
535 Tag = 3 535 Tag = 3
536 Left = 136 536 Left = 78
537 Height = 44 537 Height = 25
538 Hint = 'Test out the instrument with a C-5 note' 538 Hint = 'Test out the instrument with a C-5 note'
539 Top = 256 539 Top = 146
540 Width = 48 540 Width = 27
541 Caption = '3' 541 Caption = '3'
542 OnClick = TestOctaveButtonClick 542 OnClick = TestOctaveButtonClick
543 ParentFont = False 543 ParentFont = False
@@ -545,11 +545,11 @@ object frmTracker: TfrmTracker
545 end 545 end
546 object TestOctave5Button3: TButton 546 object TestOctave5Button3: TButton
547 Tag = 6 547 Tag = 6
548 Left = 304 548 Left = 174
549 Height = 44 549 Height = 25
550 Hint = 'Test out the instrument with a C-5 note' 550 Hint = 'Test out the instrument with a C-5 note'
551 Top = 256 551 Top = 146
552 Width = 48 552 Width = 27
553 Caption = '6' 553 Caption = '6'
554 OnClick = TestOctaveButtonClick 554 OnClick = TestOctaveButtonClick
555 ParentFont = False 555 ParentFont = False
@@ -557,11 +557,11 @@ object frmTracker: TfrmTracker
557 end 557 end
558 object TestOctave5Button4: TButton 558 object TestOctave5Button4: TButton
559 Tag = 7 559 Tag = 7
560 Left = 360 560 Left = 206
561 Height = 44 561 Height = 25
562 Hint = 'Test out the instrument with a C-5 note' 562 Hint = 'Test out the instrument with a C-5 note'
563 Top = 256 563 Top = 146
564 Width = 48 564 Width = 27
565 Caption = '7' 565 Caption = '7'
566 OnClick = TestOctaveButtonClick 566 OnClick = TestOctaveButtonClick
567 ParentFont = False 567 ParentFont = False
@@ -569,11 +569,11 @@ object frmTracker: TfrmTracker
569 end 569 end
570 object TestOctave5Button5: TButton 570 object TestOctave5Button5: TButton
571 Tag = 8 571 Tag = 8
572 Left = 416 572 Left = 238
573 Height = 44 573 Height = 25
574 Hint = 'Test out the instrument with a C-5 note' 574 Hint = 'Test out the instrument with a C-5 note'
575 Top = 256 575 Top = 146
576 Width = 48 576 Width = 27
577 Caption = '8' 577 Caption = '8'
578 OnClick = TestOctaveButtonClick 578 OnClick = TestOctaveButtonClick
579 ParentFont = False 579 ParentFont = False
@@ -581,45 +581,45 @@ object frmTracker: TfrmTracker
581 end 581 end
582 end 582 end
583 object EnvelopeGroupBox: TGroupBox 583 object EnvelopeGroupBox: TGroupBox
584 Left = 526 584 Left = 301
585 Height = 238 585 Height = 136
586 Top = 12 586 Top = 7
587 Width = 1018 587 Width = 582
588 Anchors = [] 588 Anchors = []
589 BorderSpacing.Left = 12 589 BorderSpacing.Left = 7
590 BorderSpacing.Top = 12 590 BorderSpacing.Top = 7
591 BorderSpacing.Right = 12 591 BorderSpacing.Right = 7
592 BorderSpacing.Bottom = 12 592 BorderSpacing.Bottom = 7
593 Caption = 'Envelope' 593 Caption = 'Envelope'
594 ClientHeight = 203 594 ClientHeight = 116
595 ClientWidth = 1014 595 ClientWidth = 578
596 ParentFont = False 596 ParentFont = False
597 TabOrder = 1 597 TabOrder = 1
598 object Label4: TLabel 598 object Label4: TLabel
599 Left = 14 599 Left = 8
600 Height = 30 600 Height = 15
601 Top = 16 601 Top = 9
602 Width = 80 602 Width = 46
603 Caption = 'Start vol.' 603 Caption = 'Start vol.'
604 ParentColor = False 604 ParentColor = False
605 ParentFont = False 605 ParentFont = False
606 end 606 end
607 object Label5: TLabel 607 object Label5: TLabel
608 Left = 14 608 Left = 8
609 Height = 30 609 Height = 15
610 Top = 84 610 Top = 48
611 Width = 84 611 Width = 48
612 Caption = 'Direction' 612 Caption = 'Direction'
613 ParentColor = False 613 ParentColor = False
614 ParentFont = False 614 ParentFont = False
615 end 615 end
616 object DirectionComboBox: TComboBox 616 object DirectionComboBox: TComboBox
617 Left = 144 617 Left = 82
618 Height = 38 618 Height = 23
619 Hint = 'Whether to fade the sound in or out' 619 Hint = 'Whether to fade the sound in or out'
620 Top = 80 620 Top = 46
621 Width = 346 621 Width = 198
622 ItemHeight = 30 622 ItemHeight = 15
623 ItemIndex = 1 623 ItemIndex = 1
624 Items.Strings = ( 624 Items.Strings = (
625 'Up' 625 'Up'
@@ -632,40 +632,40 @@ object frmTracker: TfrmTracker
632 Text = 'Down' 632 Text = 'Down'
633 end 633 end
634 object Label6: TLabel 634 object Label6: TLabel
635 Left = 14 635 Left = 8
636 Height = 30 636 Height = 15
637 Top = 150 637 Top = 86
638 Width = 71 638 Width = 41
639 Caption = 'Change' 639 Caption = 'Change'
640 ParentColor = False 640 ParentColor = False
641 ParentFont = False 641 ParentFont = False
642 end 642 end
643 object Panel5: TPanel 643 object Panel5: TPanel
644 Left = 525 644 Left = 300
645 Height = 182 645 Height = 104
646 Top = 0 646 Top = 0
647 Width = 472 647 Width = 270
648 BevelOuter = bvLowered 648 BevelOuter = bvLowered
649 ClientHeight = 182 649 ClientHeight = 104
650 ClientWidth = 472 650 ClientWidth = 270
651 ParentFont = False 651 ParentFont = False
652 TabOrder = 1 652 TabOrder = 1
653 object EnvelopePaintbox: TPaintBox 653 object EnvelopePaintbox: TPaintBox
654 Left = 1 654 Left = 1
655 Height = 180 655 Height = 102
656 Hint = 'Preview of the volume envelope' 656 Hint = 'Preview of the volume envelope'
657 Top = 1 657 Top = 1
658 Width = 470 658 Width = 268
659 Align = alClient 659 Align = alClient
660 ParentFont = False 660 ParentFont = False
661 OnPaint = EnvelopePaintboxPaint 661 OnPaint = EnvelopePaintboxPaint
662 end 662 end
663 end 663 end
664 object StartVolTrackbar: TTrackBar 664 object StartVolTrackbar: TTrackBar
665 Left = 144 665 Left = 82
666 Height = 44 666 Height = 25
667 Top = 14 667 Top = 8
668 Width = 343 668 Width = 196
669 Max = 15 669 Max = 15
670 OnChange = StartVolSpinnerChange 670 OnChange = StartVolSpinnerChange
671 Position = 0 671 Position = 0
@@ -673,10 +673,10 @@ object frmTracker: TfrmTracker
673 TabOrder = 2 673 TabOrder = 2
674 end 674 end
675 object EnvChangeTrackbar: TTrackBar 675 object EnvChangeTrackbar: TTrackBar
676 Left = 144 676 Left = 82
677 Height = 44 677 Height = 25
678 Top = 144 678 Top = 82
679 Width = 343 679 Width = 196
680 Max = 7 680 Max = 7
681 OnChange = EnvChangeSpinnerChange 681 OnChange = EnvChangeSpinnerChange
682 Position = 0 682 Position = 0
@@ -685,36 +685,36 @@ object frmTracker: TfrmTracker
685 end 685 end
686 end 686 end
687 object SquareGroupBox: TGroupBox 687 object SquareGroupBox: TGroupBox
688 Left = 12 688 Left = 7
689 Height = 296 689 Height = 169
690 Top = 458 690 Top = 262
691 Width = 558 691 Width = 319
692 Anchors = [] 692 Anchors = []
693 BorderSpacing.Left = 12 693 BorderSpacing.Left = 7
694 BorderSpacing.Top = 12 694 BorderSpacing.Top = 7
695 BorderSpacing.Right = 12 695 BorderSpacing.Right = 7
696 BorderSpacing.Bottom = 12 696 BorderSpacing.Bottom = 7
697 Caption = 'Square' 697 Caption = 'Square'
698 ClientHeight = 261 698 ClientHeight = 149
699 ClientWidth = 554 699 ClientWidth = 315
700 ParentFont = False 700 ParentFont = False
701 TabOrder = 2 701 TabOrder = 2
702 object Label7: TLabel 702 object Label7: TLabel
703 Left = 14 703 Left = 8
704 Height = 30 704 Height = 15
705 Top = 28 705 Top = 16
706 Width = 107 706 Width = 61
707 Caption = 'Sweep time' 707 Caption = 'Sweep time'
708 ParentColor = False 708 ParentColor = False
709 ParentFont = False 709 ParentFont = False
710 end 710 end
711 object SweepTimeCombobox: TComboBox 711 object SweepTimeCombobox: TComboBox
712 Left = 182 712 Left = 104
713 Height = 38 713 Height = 23
714 Hint = 'How long to sweep' 714 Hint = 'How long to sweep'
715 Top = 14 715 Top = 8
716 Width = 350 716 Width = 200
717 ItemHeight = 30 717 ItemHeight = 15
718 ItemIndex = 0 718 ItemIndex = 0
719 Items.Strings = ( 719 Items.Strings = (
720 'Off - no frequency change' 720 'Off - no frequency change'
@@ -735,12 +735,12 @@ object frmTracker: TfrmTracker
735 Text = 'Off - no frequency change' 735 Text = 'Off - no frequency change'
736 end 736 end
737 object SweepDirectionCombobox: TComboBox 737 object SweepDirectionCombobox: TComboBox
738 Left = 182 738 Left = 104
739 Height = 38 739 Height = 23
740 Hint = 'The direction of the sweep' 740 Hint = 'The direction of the sweep'
741 Top = 70 741 Top = 40
742 Width = 350 742 Width = 200
743 ItemHeight = 30 743 ItemHeight = 15
744 ItemIndex = 1 744 ItemIndex = 1
745 Items.Strings = ( 745 Items.Strings = (
746 'Up' 746 'Up'
@@ -755,39 +755,39 @@ object frmTracker: TfrmTracker
755 Text = 'Down' 755 Text = 'Down'
756 end 756 end
757 object Label8: TLabel 757 object Label8: TLabel
758 Left = 14 758 Left = 8
759 Height = 30 759 Height = 15
760 Top = 84 760 Top = 48
761 Width = 147 761 Width = 84
762 Caption = 'Sweep direction' 762 Caption = 'Sweep direction'
763 ParentColor = False 763 ParentColor = False
764 ParentFont = False 764 ParentFont = False
765 end 765 end
766 object Label9: TLabel 766 object Label9: TLabel
767 Left = 14 767 Left = 8
768 Height = 30 768 Height = 15
769 Top = 147 769 Top = 84
770 Width = 101 770 Width = 56
771 Caption = 'Sweep size' 771 Caption = 'Sweep size'
772 ParentColor = False 772 ParentColor = False
773 ParentFont = False 773 ParentFont = False
774 end 774 end
775 object Label10: TLabel 775 object Label10: TLabel
776 Left = 14 776 Left = 8
777 Height = 30 777 Height = 15
778 Top = 210 778 Top = 120
779 Width = 44 779 Width = 25
780 Caption = 'Duty' 780 Caption = 'Duty'
781 ParentColor = False 781 ParentColor = False
782 ParentFont = False 782 ParentFont = False
783 end 783 end
784 object DutyCombobox: TComboBox 784 object DutyCombobox: TComboBox
785 Left = 182 785 Left = 104
786 Height = 38 786 Height = 23
787 Hint = 'Which duty cycle to use (changes timbre of wave)' 787 Hint = 'Which duty cycle to use (changes timbre of wave)'
788 Top = 196 788 Top = 112
789 Width = 350 789 Width = 200
790 ItemHeight = 30 790 ItemHeight = 15
791 ItemIndex = 2 791 ItemIndex = 2
792 Items.Strings = ( 792 Items.Strings = (
793 '12.5%' 793 '12.5%'
@@ -804,10 +804,10 @@ object frmTracker: TfrmTracker
804 Text = '50% (square)' 804 Text = '50% (square)'
805 end 805 end
806 object SweepSizeTrackbar: TTrackBar 806 object SweepSizeTrackbar: TTrackBar
807 Left = 184 807 Left = 105
808 Height = 44 808 Height = 25
809 Top = 140 809 Top = 80
810 Width = 343 810 Width = 196
811 Max = 7 811 Max = 7
812 OnChange = SweepSizeSpinnerChange 812 OnChange = SweepSizeSpinnerChange
813 Position = 0 813 Position = 0
@@ -816,45 +816,45 @@ object frmTracker: TfrmTracker
816 end 816 end
817 end 817 end
818 object WaveGroupBox: TGroupBox 818 object WaveGroupBox: TGroupBox
819 Left = 594 819 Left = 340
820 Height = 296 820 Height = 169
821 Top = 458 821 Top = 262
822 Width = 520 822 Width = 297
823 Anchors = [] 823 Anchors = []
824 BorderSpacing.Left = 12 824 BorderSpacing.Left = 7
825 BorderSpacing.Top = 12 825 BorderSpacing.Top = 7
826 BorderSpacing.Right = 12 826 BorderSpacing.Right = 7
827 BorderSpacing.Bottom = 12 827 BorderSpacing.Bottom = 7
828 Caption = 'Wave' 828 Caption = 'Wave'
829 ClientHeight = 261 829 ClientHeight = 149
830 ClientWidth = 516 830 ClientWidth = 293
831 ParentFont = False 831 ParentFont = False
832 TabOrder = 3 832 TabOrder = 3
833 object Label11: TLabel 833 object Label11: TLabel
834 Left = 14 834 Left = 8
835 Height = 30 835 Height = 15
836 Top = 28 836 Top = 16
837 Width = 70 837 Width = 40
838 Caption = 'Volume' 838 Caption = 'Volume'
839 ParentColor = False 839 ParentColor = False
840 ParentFont = False 840 ParentFont = False
841 end 841 end
842 object Label12: TLabel 842 object Label12: TLabel
843 Left = 14 843 Left = 8
844 Height = 30 844 Height = 15
845 Top = 84 845 Top = 48
846 Width = 95 846 Width = 55
847 Caption = 'Waveform' 847 Caption = 'Waveform'
848 ParentColor = False 848 ParentColor = False
849 ParentFont = False 849 ParentFont = False
850 end 850 end
851 object WaveformCombobox: TComboBox 851 object WaveformCombobox: TComboBox
852 Left = 182 852 Left = 104
853 Height = 38 853 Height = 23
854 Hint = 'Which waveform is associated with this instrument' 854 Hint = 'Which waveform is associated with this instrument'
855 Top = 70 855 Top = 40
856 Width = 308 856 Width = 176
857 ItemHeight = 30 857 ItemHeight = 15
858 ItemIndex = 0 858 ItemIndex = 0
859 Items.Strings = ( 859 Items.Strings = (
860 'Wave #0' 860 'Wave #0'
@@ -881,21 +881,21 @@ object frmTracker: TfrmTracker
881 Text = 'Wave #0' 881 Text = 'Wave #0'
882 end 882 end
883 object Panel4: TPanel 883 object Panel4: TPanel
884 Left = 14 884 Left = 8
885 Height = 103 885 Height = 59
886 Top = 140 886 Top = 80
887 Width = 476 887 Width = 272
888 BevelOuter = bvLowered 888 BevelOuter = bvLowered
889 ClientHeight = 103 889 ClientHeight = 59
890 ClientWidth = 476 890 ClientWidth = 272
891 ParentFont = False 891 ParentFont = False
892 TabOrder = 1 892 TabOrder = 1
893 object WavePaintbox: TPaintBox 893 object WavePaintbox: TPaintBox
894 Left = 1 894 Left = 1
895 Height = 101 895 Height = 57
896 Hint = 'Preview of the waveform associated with this instrument' 896 Hint = 'Preview of the waveform associated with this instrument'
897 Top = 1 897 Top = 1
898 Width = 474 898 Width = 270
899 Align = alClient 899 Align = alClient
900 Color = clBlack 900 Color = clBlack
901 ParentColor = False 901 ParentColor = False
@@ -904,12 +904,12 @@ object frmTracker: TfrmTracker
904 end 904 end
905 end 905 end
906 object WaveVolumeCombobox: TComboBox 906 object WaveVolumeCombobox: TComboBox
907 Left = 182 907 Left = 104
908 Height = 38 908 Height = 23
909 Hint = 'The initial volume of the wave' 909 Hint = 'The initial volume of the wave'
910 Top = 14 910 Top = 8
911 Width = 308 911 Width = 176
912 ItemHeight = 30 912 ItemHeight = 15
913 ItemIndex = 1 913 ItemIndex = 1
914 Items.Strings = ( 914 Items.Strings = (
915 'Mute (No sound)' 915 'Mute (No sound)'
@@ -925,26 +925,26 @@ object frmTracker: TfrmTracker
925 end 925 end
926 end 926 end
927 object NoiseGroupBox: TGroupBox 927 object NoiseGroupBox: TGroupBox
928 Left = 12 928 Left = 7
929 Height = 390 929 Height = 223
930 Top = 778 930 Top = 445
931 Width = 695 931 Width = 397
932 Anchors = [] 932 Anchors = []
933 BorderSpacing.Left = 12 933 BorderSpacing.Left = 7
934 BorderSpacing.Top = 12 934 BorderSpacing.Top = 7
935 BorderSpacing.Right = 12 935 BorderSpacing.Right = 7
936 BorderSpacing.Bottom = 12 936 BorderSpacing.Bottom = 7
937 Caption = 'Noise' 937 Caption = 'Noise'
938 ClientHeight = 355 938 ClientHeight = 203
939 ClientWidth = 691 939 ClientWidth = 393
940 ParentFont = False 940 ParentFont = False
941 TabOrder = 4 941 TabOrder = 4
942 object SevenBitCounterCheckbox: TCheckBox 942 object SevenBitCounterCheckbox: TCheckBox
943 Left = 14 943 Left = 8
944 Height = 34 944 Height = 19
945 Hint = 'Select LFSR width. When checked, output will sound like a tone rather than noise' 945 Hint = 'Select LFSR width. When checked, output will sound like a tone rather than noise'
946 Top = 14 946 Top = 8
947 Width = 373 947 Width = 215
948 Alignment = taLeftJustify 948 Alignment = taLeftJustify
949 Caption = '7 bit counter (more tone-like output)' 949 Caption = '7 bit counter (more tone-like output)'
950 OnChange = SevenBitCounterCheckboxChange 950 OnChange = SevenBitCounterCheckboxChange
@@ -952,20 +952,20 @@ object frmTracker: TfrmTracker
952 TabOrder = 0 952 TabOrder = 0
953 end 953 end
954 object Panel6: TPanel 954 object Panel6: TPanel
955 Left = 14 955 Left = 8
956 Height = 266 956 Height = 152
957 Top = 70 957 Top = 40
958 Width = 658 958 Width = 376
959 BevelOuter = bvLowered 959 BevelOuter = bvLowered
960 ClientHeight = 266 960 ClientHeight = 152
961 ClientWidth = 658 961 ClientWidth = 376
962 ParentFont = False 962 ParentFont = False
963 TabOrder = 1 963 TabOrder = 1
964 object NoiseMacroPaintbox: TPaintBox 964 object NoiseMacroPaintbox: TPaintBox
965 Left = 1 965 Left = 1
966 Height = 264 966 Height = 150
967 Top = 1 967 Top = 1
968 Width = 656 968 Width = 374
969 Align = alClient 969 Align = alClient
970 ParentFont = False 970 ParentFont = False
971 OnMouseDown = NoiseMacroPaintboxMouseDown 971 OnMouseDown = NoiseMacroPaintboxMouseDown
@@ -991,7 +991,7 @@ object frmTracker: TfrmTracker
991 Width = 1026 991 Width = 1026
992 Align = alBottom 992 Align = alBottom
993 Anchors = [akTop, akLeft, akRight, akBottom] 993 Anchors = [akTop, akLeft, akRight, akBottom]
994 BorderSpacing.Top = 23 994 BorderSpacing.Top = 13
995 ParentFont = False 995 ParentFont = False
996 PopupMenu = WaveEditPopup 996 PopupMenu = WaveEditPopup
997 OnMouseDown = WaveEditPaintBoxMouseDown 997 OnMouseDown = WaveEditPaintBoxMouseDown
@@ -1000,61 +1000,61 @@ object frmTracker: TfrmTracker
1000 OnPaint = WaveEditPaintBoxPaint 1000 OnPaint = WaveEditPaintBoxPaint
1001 end 1001 end
1002 object WaveEditGroupBox: TGroupBox 1002 object WaveEditGroupBox: TGroupBox
1003 Left = 14 1003 Left = 8
1004 Height = 243 1004 Height = 139
1005 Top = 14 1005 Top = 8
1006 Width = 994 1006 Width = 568
1007 Caption = 'Wave Editor' 1007 Caption = 'Wave Editor'
1008 ClientHeight = 208 1008 ClientHeight = 119
1009 ClientWidth = 990 1009 ClientWidth = 564
1010 ParentFont = False 1010 ParentFont = False
1011 TabOrder = 0 1011 TabOrder = 0
1012 object Label20: TLabel 1012 object Label20: TLabel
1013 Left = 28 1013 Left = 16
1014 Height = 15 1014 Height = 15
1015 Top = 28 1015 Top = 16
1016 Width = 29 1016 Width = 29
1017 Caption = 'Wave' 1017 Caption = 'Wave'
1018 ParentColor = False 1018 ParentColor = False
1019 ParentFont = False 1019 ParentFont = False
1020 end 1020 end
1021 object WaveEditNumberSpinner: TSpinEdit 1021 object WaveEditNumberSpinner: TSpinEdit
1022 Left = 112 1022 Left = 64
1023 Height = 23 1023 Height = 23
1024 Top = 14 1024 Top = 8
1025 Width = 140 1025 Width = 80
1026 MaxValue = 15 1026 MaxValue = 15
1027 OnChange = WaveEditNumberSpinnerChange 1027 OnChange = WaveEditNumberSpinnerChange
1028 ParentFont = False 1028 ParentFont = False
1029 TabOrder = 0 1029 TabOrder = 0
1030 end 1030 end
1031 object ImportWaveButton: TButton 1031 object ImportWaveButton: TButton
1032 Left = 28 1032 Left = 16
1033 Height = 44 1033 Height = 25
1034 Hint = 'Import a wave' 1034 Hint = 'Import a wave'
1035 Top = 84 1035 Top = 48
1036 Width = 257 1036 Width = 147
1037 Caption = 'Import' 1037 Caption = 'Import'
1038 OnClick = ImportWaveButtonClick 1038 OnClick = ImportWaveButtonClick
1039 ParentFont = False 1039 ParentFont = False
1040 TabOrder = 1 1040 TabOrder = 1
1041 end 1041 end
1042 object ExportWaveButton: TButton 1042 object ExportWaveButton: TButton
1043 Left = 28 1043 Left = 16
1044 Height = 44 1044 Height = 25
1045 Hint = 'Export a wave' 1045 Hint = 'Export a wave'
1046 Top = 140 1046 Top = 80
1047 Width = 257 1047 Width = 147
1048 Caption = 'Export' 1048 Caption = 'Export'
1049 OnClick = ExportWaveButtonClick 1049 OnClick = ExportWaveButtonClick
1050 ParentFont = False 1050 ParentFont = False
1051 TabOrder = 2 1051 TabOrder = 2
1052 end 1052 end
1053 object HexWaveEdit: TEdit 1053 object HexWaveEdit: TEdit
1054 Left = 504 1054 Left = 288
1055 Height = 23 1055 Height = 23
1056 Top = 14 1056 Top = 8
1057 Width = 462 1057 Width = 264
1058 MaxLength = 32 1058 MaxLength = 32
1059 OnChange = HexWaveEditEditingDone 1059 OnChange = HexWaveEditEditingDone
1060 OnEditingDone = HexWaveEditEditingDone 1060 OnEditingDone = HexWaveEditEditingDone
@@ -1062,18 +1062,18 @@ object frmTracker: TfrmTracker
1062 TabOrder = 3 1062 TabOrder = 3
1063 end 1063 end
1064 object Label13: TLabel 1064 object Label13: TLabel
1065 Left = 308 1065 Left = 176
1066 Height = 15 1066 Height = 15
1067 Top = 28 1067 Top = 16
1068 Width = 100 1068 Width = 100
1069 Caption = 'Hex representation' 1069 Caption = 'Hex representation'
1070 ParentColor = False 1070 ParentColor = False
1071 ParentFont = False 1071 ParentFont = False
1072 end 1072 end
1073 object PlayWaveWhileDrawingCheckbox: TCheckBox 1073 object PlayWaveWhileDrawingCheckbox: TCheckBox
1074 Left = 308 1074 Left = 176
1075 Height = 19 1075 Height = 19
1076 Top = 70 1076 Top = 40
1077 Width = 149 1077 Width = 149
1078 Caption = 'Play wave while drawing' 1078 Caption = 'Play wave while drawing'
1079 ParentFont = False 1079 ParentFont = False
@@ -1096,16 +1096,16 @@ object frmTracker: TfrmTracker
1096 Width = 1026 1096 Width = 1026
1097 Align = alBottom 1097 Align = alBottom
1098 Anchors = [akTop, akLeft, akRight, akBottom] 1098 Anchors = [akTop, akLeft, akRight, akBottom]
1099 BorderSpacing.Top = 23 1099 BorderSpacing.Top = 13
1100 MaxLength = 255 1100 MaxLength = 255
1101 OnChange = CommentMemoChange 1101 OnChange = CommentMemoChange
1102 ParentFont = False 1102 ParentFont = False
1103 TabOrder = 0 1103 TabOrder = 0
1104 end 1104 end
1105 object Label17: TLabel 1105 object Label17: TLabel
1106 Left = 14 1106 Left = 8
1107 Height = 15 1107 Height = 15
1108 Top = 14 1108 Top = 8
1109 Width = 333 1109 Width = 333
1110 Caption = 'This is an area to write comments for anyone editing your tune.' 1110 Caption = 'This is an area to write comments for anyone editing your tune.'
1111 ParentColor = False 1111 ParentColor = False
@@ -1125,16 +1125,16 @@ object frmTracker: TfrmTracker
1125 Top = 128 1125 Top = 128
1126 Width = 1026 1126 Width = 1026
1127 Align = alBottom 1127 Align = alBottom
1128 BorderSpacing.Top = 23 1128 BorderSpacing.Top = 13
1129 Anchors = [akTop, akLeft, akRight, akBottom] 1129 Anchors = [akTop, akLeft, akRight, akBottom]
1130 Font.Height = -23 1130 Font.Height = -13
1131 Font.Name = 'Courier New' 1131 Font.Name = 'Courier New'
1132 Font.Pitch = fpFixed 1132 Font.Pitch = fpFixed
1133 Font.Quality = fqNonAntialiased 1133 Font.Quality = fqNonAntialiased
1134 ParentColor = False 1134 ParentColor = False
1135 ParentFont = False 1135 ParentFont = False
1136 TabOrder = 0 1136 TabOrder = 0
1137 Gutter.Width = 100 1137 Gutter.Width = 57
1138 Gutter.MouseActions = <> 1138 Gutter.MouseActions = <>
1139 RightGutter.Width = 0 1139 RightGutter.Width = 0
1140 RightGutter.MouseActions = <> 1140 RightGutter.MouseActions = <>
@@ -1588,11 +1588,11 @@ object frmTracker: TfrmTracker
1588 OnChange = RoutineSyneditChange 1588 OnChange = RoutineSyneditChange
1589 inline SynLeftGutterPartList1: TSynGutterPartList 1589 inline SynLeftGutterPartList1: TSynGutterPartList
1590 object SynGutterMarks1: TSynGutterMarks 1590 object SynGutterMarks1: TSynGutterMarks
1591 Width = 42 1591 Width = 24
1592 MouseActions = <> 1592 MouseActions = <>
1593 end 1593 end
1594 object SynGutterLineNumber1: TSynGutterLineNumber 1594 object SynGutterLineNumber1: TSynGutterLineNumber
1595 Width = 29 1595 Width = 17
1596 MouseActions = <> 1596 MouseActions = <>
1597 MarkupInfo.Background = clBtnFace 1597 MarkupInfo.Background = clBtnFace
1598 MarkupInfo.Foreground = clNone 1598 MarkupInfo.Foreground = clNone
@@ -1602,19 +1602,18 @@ object frmTracker: TfrmTracker
1602 LeadingZeros = False 1602 LeadingZeros = False
1603 end 1603 end
1604 object SynGutterChanges1: TSynGutterChanges 1604 object SynGutterChanges1: TSynGutterChanges
1605 Width = 7 1605 Width = 4
1606 MouseActions = <> 1606 MouseActions = <>
1607 ModifiedColor = 59900 1607 ModifiedColor = 59900
1608 SavedColor = clGreen 1608 SavedColor = clGreen
1609 end 1609 end
1610 object SynGutterSeparator1: TSynGutterSeparator 1610 object SynGutterSeparator1: TSynGutterSeparator
1611 Width = 4 1611 Width = 2
1612 MouseActions = <> 1612 MouseActions = <>
1613 MarkupInfo.Background = clWhite 1613 MarkupInfo.Background = clWhite
1614 MarkupInfo.Foreground = clGray 1614 MarkupInfo.Foreground = clGray
1615 end 1615 end
1616 object SynGutterCodeFolding1: TSynGutterCodeFolding 1616 object SynGutterCodeFolding1: TSynGutterCodeFolding
1617 Width = 18
1618 MouseActions = <> 1617 MouseActions = <>
1619 MarkupInfo.Background = clNone 1618 MarkupInfo.Background = clNone
1620 MarkupInfo.Foreground = clGray 1619 MarkupInfo.Foreground = clGray
@@ -1624,19 +1623,19 @@ object frmTracker: TfrmTracker
1624 end 1623 end
1625 end 1624 end
1626 object Label18: TLabel 1625 object Label18: TLabel
1627 Left = 14 1626 Left = 8
1628 Height = 15 1627 Height = 15
1629 Top = 28 1628 Top = 16
1630 Width = 41 1629 Width = 41
1631 Caption = 'Routine' 1630 Caption = 'Routine'
1632 ParentColor = False 1631 ParentColor = False
1633 ParentFont = False 1632 ParentFont = False
1634 end 1633 end
1635 object RoutineNumberSpinner: TSpinEdit 1634 object RoutineNumberSpinner: TSpinEdit
1636 Left = 112 1635 Left = 64
1637 Height = 23 1636 Height = 23
1638 Top = 14 1637 Top = 8
1639 Width = 308 1638 Width = 176
1640 MaxValue = 15 1639 MaxValue = 15
1641 OnChange = RoutineNumberSpinnerChange 1640 OnChange = RoutineNumberSpinnerChange
1642 ParentFont = False 1641 ParentFont = False
@@ -1644,9 +1643,9 @@ object frmTracker: TfrmTracker
1644 Value = 1 1643 Value = 1
1645 end 1644 end
1646 object Label19: TLabel 1645 object Label19: TLabel
1647 Left = 14 1646 Left = 8
1648 Height = 75 1647 Height = 75
1649 Top = 70 1648 Top = 40
1650 Width = 506 1649 Width = 506
1651 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!' 1650 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!'
1652 ParentColor = False 1651 ParentColor = False
@@ -1657,21 +1656,21 @@ object frmTracker: TfrmTracker
1657 end 1656 end
1658 object Panel2: TPanel 1657 object Panel2: TPanel
1659 Left = 0 1658 Left = 0
1660 Height = 112 1659 Height = 64
1661 Top = 41 1660 Top = 25
1662 Width = 2156 1661 Width = 1232
1663 Align = alTop 1662 Align = alTop
1664 BevelOuter = bvNone 1663 BevelOuter = bvNone
1665 ClientHeight = 112 1664 ClientHeight = 64
1666 ClientWidth = 2156 1665 ClientWidth = 1232
1667 ParentFont = False 1666 ParentFont = False
1668 TabOrder = 3 1667 TabOrder = 3
1669 object LEDMeter1: TLEDMeter 1668 object LEDMeter1: TLEDMeter
1670 AnchorSideRight.Control = Duty1Visualizer 1669 AnchorSideRight.Control = Duty1Visualizer
1671 Left = 0 1670 Left = 0
1672 Height = 56 1671 Height = 32
1673 Top = 56 1672 Top = 32
1674 Width = 776 1673 Width = 444
1675 Anchors = [akTop, akLeft, akRight] 1674 Anchors = [akTop, akLeft, akRight]
1676 BevelStyle = bvLowered 1675 BevelStyle = bvLowered
1677 Colors.Border = 2168839 1676 Colors.Border = 2168839
@@ -1692,9 +1691,9 @@ object frmTracker: TfrmTracker
1692 object LEDMeter2: TLEDMeter 1691 object LEDMeter2: TLEDMeter
1693 AnchorSideRight.Control = Duty1Visualizer 1692 AnchorSideRight.Control = Duty1Visualizer
1694 Left = 0 1693 Left = 0
1695 Height = 56 1694 Height = 32
1696 Top = 0 1695 Top = 0
1697 Width = 776 1696 Width = 444
1698 Anchors = [akTop, akLeft, akRight] 1697 Anchors = [akTop, akLeft, akRight]
1699 BevelStyle = bvLowered 1698 BevelStyle = bvLowered
1700 Colors.Border = 2168839 1699 Colors.Border = 2168839
@@ -1713,40 +1712,40 @@ object frmTracker: TfrmTracker
1713 Section3Value = 48 1712 Section3Value = 48
1714 end 1713 end
1715 object Duty1Visualizer: TPaintBox 1714 object Duty1Visualizer: TPaintBox
1716 Left = 776 1715 Left = 444
1717 Height = 112 1716 Height = 64
1718 Top = 0 1717 Top = 0
1719 Width = 345 1718 Width = 197
1720 Align = alRight 1719 Align = alRight
1721 ParentFont = False 1720 ParentFont = False
1722 OnClick = Duty1VisualizerClick 1721 OnClick = Duty1VisualizerClick
1723 OnPaint = Duty1VisualizerPaint 1722 OnPaint = Duty1VisualizerPaint
1724 end 1723 end
1725 object Duty2Visualizer: TPaintBox 1724 object Duty2Visualizer: TPaintBox
1726 Left = 1121 1725 Left = 641
1727 Height = 112 1726 Height = 64
1728 Top = 0 1727 Top = 0
1729 Width = 345 1728 Width = 197
1730 Align = alRight 1729 Align = alRight
1731 ParentFont = False 1730 ParentFont = False
1732 OnClick = Duty1VisualizerClick 1731 OnClick = Duty1VisualizerClick
1733 OnPaint = Duty2VisualizerPaint 1732 OnPaint = Duty2VisualizerPaint
1734 end 1733 end
1735 object WaveVisualizer: TPaintBox 1734 object WaveVisualizer: TPaintBox
1736 Left = 1466 1735 Left = 838
1737 Height = 112 1736 Height = 64
1738 Top = 0 1737 Top = 0
1739 Width = 345 1738 Width = 197
1740 Align = alRight 1739 Align = alRight
1741 ParentFont = False 1740 ParentFont = False
1742 OnClick = Duty1VisualizerClick 1741 OnClick = Duty1VisualizerClick
1743 OnPaint = WaveVisualizerPaint 1742 OnPaint = WaveVisualizerPaint
1744 end 1743 end
1745 object NoiseVisualizer: TPaintBox 1744 object NoiseVisualizer: TPaintBox
1746 Left = 1811 1745 Left = 1035
1747 Height = 112 1746 Height = 64
1748 Top = 0 1747 Top = 0
1749 Width = 345 1748 Width = 197
1750 Align = alRight 1749 Align = alRight
1751 ParentFont = False 1750 ParentFont = False
1752 OnClick = Duty1VisualizerClick 1751 OnClick = Duty1VisualizerClick
@@ -1755,19 +1754,19 @@ object frmTracker: TfrmTracker
1755 end 1754 end
1756 object StatusBar1: TStatusBar 1755 object StatusBar1: TStatusBar
1757 Left = 0 1756 Left = 0
1758 Height = 43 1757 Height = 23
1759 Top = 1067 1758 Top = 611
1760 Width = 2156 1759 Width = 1232
1761 AutoHint = True 1760 AutoHint = True
1762 Panels = < 1761 Panels = <
1763 item 1762 item
1764 Width = 817 1763 Width = 467
1765 end 1764 end
1766 item 1765 item
1767 Width = 350 1766 Width = 200
1768 end 1767 end
1769 item 1768 item
1770 Width = 350 1769 Width = 200
1771 end> 1770 end>
1772 ParentFont = False 1771 ParentFont = False
1773 ParentShowHint = False 1772 ParentShowHint = False
@@ -1776,9 +1775,9 @@ object frmTracker: TfrmTracker
1776 end 1775 end
1777 object ToolBar1: TToolBar 1776 object ToolBar1: TToolBar
1778 Left = 0 1777 Left = 0
1779 Height = 41 1778 Height = 25
1780 Top = 0 1779 Top = 0
1781 Width = 2156 1780 Width = 1232
1782 AutoSize = True 1781 AutoSize = True
1783 Caption = 'ToolBar1' 1782 Caption = 'ToolBar1'
1784 EdgeBorders = [ebBottom] 1783 EdgeBorders = [ebBottom]
@@ -1795,7 +1794,7 @@ object frmTracker: TfrmTracker
1795 ParentShowHint = False 1794 ParentShowHint = False
1796 end 1795 end
1797 object PanicToolButton: TToolButton 1796 object PanicToolButton: TToolButton
1798 Left = 851 1797 Left = 551
1799 Hint = 'Stops all sound output' 1798 Hint = 'Stops all sound output'
1800 Top = 0 1799 Top = 0
1801 AutoSize = True 1800 AutoSize = True
@@ -1806,17 +1805,17 @@ object frmTracker: TfrmTracker
1806 ShowHint = True 1805 ShowHint = True
1807 end 1806 end
1808 object ToolButton2: TToolButton 1807 object ToolButton2: TToolButton
1809 Left = 221 1808 Left = 145
1810 Top = 0 1809 Top = 0
1811 Action = PlayCursorAction 1810 Action = PlayCursorAction
1812 end 1811 end
1813 object ToolButton4: TToolButton 1812 object ToolButton4: TToolButton
1814 Left = 331 1813 Left = 219
1815 Top = 0 1814 Top = 0
1816 Action = StopAction 1815 Action = StopAction
1817 end 1816 end
1818 object ExportGBButton: TToolButton 1817 object ExportGBButton: TToolButton
1819 Left = 442 1818 Left = 287
1820 Hint = 'Export the song as a standalone ROM' 1819 Hint = 'Export the song as a standalone ROM'
1821 Top = 0 1820 Top = 0
1822 AutoSize = True 1821 AutoSize = True
@@ -1825,49 +1824,49 @@ object frmTracker: TfrmTracker
1825 OnClick = ExportGBButtonClick 1824 OnClick = ExportGBButtonClick
1826 end 1825 end
1827 object ToolButton8: TToolButton 1826 object ToolButton8: TToolButton
1828 Left = 120 1827 Left = 79
1829 Height = 39 1828 Height = 22
1830 Top = 0 1829 Top = 0
1831 Caption = 'ToolButton8' 1830 Caption = 'ToolButton8'
1832 Style = tbsDivider 1831 Style = tbsDivider
1833 end 1832 end
1834 object ToolButton6: TToolButton 1833 object ToolButton6: TToolButton
1835 Left = 433 1834 Left = 284
1836 Height = 39 1835 Height = 22
1837 Top = 0 1836 Top = 0
1838 Caption = 'ToolButton6' 1837 Caption = 'ToolButton6'
1839 Style = tbsDivider 1838 Style = tbsDivider
1840 end 1839 end
1841 object ToolButton7: TToolButton 1840 object ToolButton7: TToolButton
1842 Left = 1775 1841 Left = 1088
1843 Height = 39 1842 Height = 22
1844 Top = 0 1843 Top = 0
1845 Caption = 'ToolButton7' 1844 Caption = 'ToolButton7'
1846 Style = tbsSeparator 1845 Style = tbsSeparator
1847 end 1846 end
1848 object OctaveSpinEdit: TSpinEdit 1847 object OctaveSpinEdit: TSpinEdit
1849 Left = 1016 1848 Left = 654
1850 Height = 38 1849 Height = 23
1851 Hint = 'The octave offset for entering new notes' 1850 Hint = 'The octave offset for entering new notes'
1852 Top = 0 1851 Top = 0
1853 Width = 114 1852 Width = 65
1854 MaxValue = 5 1853 MaxValue = 5
1855 OnChange = OctaveSpinEditChange 1854 OnChange = OctaveSpinEditChange
1856 ParentFont = False 1855 ParentFont = False
1857 TabOrder = 0 1856 TabOrder = 0
1858 end 1857 end
1859 object ToolButton9: TToolButton 1858 object ToolButton9: TToolButton
1860 Left = 927 1859 Left = 606
1861 Height = 39 1860 Height = 22
1862 Top = 0 1861 Top = 0
1863 Caption = 'ToolButton9' 1862 Caption = 'ToolButton9'
1864 Style = tbsSeparator 1863 Style = tbsSeparator
1865 end 1864 end
1866 object Label22: TLabel 1865 object Label22: TLabel
1867 Left = 941 1866 Left = 611
1868 Height = 39 1867 Height = 22
1869 Top = 0 1868 Top = 0
1870 Width = 75 1869 Width = 43
1871 AutoSize = False 1870 AutoSize = False
1872 Caption = 'Octave ' 1871 Caption = 'Octave '
1873 Layout = tlCenter 1872 Layout = tlCenter
@@ -1875,10 +1874,10 @@ object frmTracker: TfrmTracker
1875 ParentFont = False 1874 ParentFont = False
1876 end 1875 end
1877 object Label23: TLabel 1876 object Label23: TLabel
1878 Left = 1130 1877 Left = 719
1879 Height = 39 1878 Height = 22
1880 Top = 0 1879 Top = 0
1881 Width = 122 1880 Width = 70
1882 AutoSize = False 1881 AutoSize = False
1883 Caption = ' Instrument ' 1882 Caption = ' Instrument '
1884 Layout = tlCenter 1883 Layout = tlCenter
@@ -1886,13 +1885,13 @@ object frmTracker: TfrmTracker
1886 ParentFont = False 1885 ParentFont = False
1887 end 1886 end
1888 object InstrumentComboBox: TComboBox 1887 object InstrumentComboBox: TComboBox
1889 Left = 1252 1888 Left = 789
1890 Height = 38 1889 Height = 23
1891 Hint = 'The selected instrument for new notes' 1890 Hint = 'The selected instrument for new notes'
1892 Top = 0 1891 Top = 0
1893 Width = 374 1892 Width = 214
1894 DropDownCount = 999 1893 DropDownCount = 999
1895 ItemHeight = 30 1894 ItemHeight = 15
1896 ItemIndex = 0 1895 ItemIndex = 0
1897 Items.Strings = ( 1896 Items.Strings = (
1898 '(no instrument)' 1897 '(no instrument)'
@@ -1904,10 +1903,10 @@ object frmTracker: TfrmTracker
1904 Text = '(no instrument)' 1903 Text = '(no instrument)'
1905 end 1904 end
1906 object Label24: TLabel 1905 object Label24: TLabel
1907 Left = 1626 1906 Left = 1003
1908 Height = 39 1907 Height = 22
1909 Top = 0 1908 Top = 0
1910 Width = 61 1909 Width = 35
1911 AutoSize = False 1910 AutoSize = False
1912 Caption = ' Step ' 1911 Caption = ' Step '
1913 Layout = tlCenter 1912 Layout = tlCenter
@@ -1915,23 +1914,23 @@ object frmTracker: TfrmTracker
1915 ParentFont = False 1914 ParentFont = False
1916 end 1915 end
1917 object StepSpinEdit: TSpinEdit 1916 object StepSpinEdit: TSpinEdit
1918 Left = 1687 1917 Left = 1038
1919 Height = 38 1918 Height = 23
1920 Hint = 'How many rows to step down after entering a new note' 1919 Hint = 'How many rows to step down after entering a new note'
1921 Top = 0 1920 Top = 0
1922 Width = 88 1921 Width = 50
1923 MaxValue = 63 1922 MaxValue = 63
1924 OnChange = StepSpinEditChange 1923 OnChange = StepSpinEditChange
1925 ParentFont = False 1924 ParentFont = False
1926 TabOrder = 2 1925 TabOrder = 2
1927 end 1926 end
1928 object ToolButton3: TToolButton 1927 object ToolButton3: TToolButton
1929 Left = 129 1928 Left = 82
1930 Top = 0 1929 Top = 0
1931 Action = PlayStartAction 1930 Action = PlayStartAction
1932 end 1931 end
1933 object ExportGBSButton: TToolButton 1932 object ExportGBSButton: TToolButton
1934 Left = 564 1933 Left = 368
1935 Hint = 'Export the song as a GBS soundtrack' 1934 Hint = 'Export the song as a GBS soundtrack'
1936 Top = 0 1935 Top = 0
1937 Caption = 'Export .GBS' 1936 Caption = 'Export .GBS'
@@ -1939,14 +1938,14 @@ object frmTracker: TfrmTracker
1939 OnClick = ExportGBSButtonClick 1938 OnClick = ExportGBSButtonClick
1940 end 1939 end
1941 object ToolButton5: TToolButton 1940 object ToolButton5: TToolButton
1942 Left = 842 1941 Left = 548
1943 Height = 39 1942 Height = 22
1944 Top = 0 1943 Top = 0
1945 Caption = 'ToolButton5' 1944 Caption = 'ToolButton5'
1946 Style = tbsDivider 1945 Style = tbsDivider
1947 end 1946 end
1948 object ToolButton10: TToolButton 1947 object ToolButton10: TToolButton
1949 Left = 697 1948 Left = 455
1950 Hint = 'Export the song as WAV or MP3' 1949 Hint = 'Export the song as WAV or MP3'
1951 Top = 0 1950 Top = 0
1952 Caption = 'Render Song' 1951 Caption = 'Render Song'
@@ -1956,8 +1955,8 @@ object frmTracker: TfrmTracker
1956 end 1955 end
1957 object MainMenu1: TMainMenu 1956 object MainMenu1: TMainMenu
1958 Images = ImageList1 1957 Images = ImageList1
1959 Left = 70 1958 Left = 40
1960 Top = 56 1959 Top = 32
1961 object MenuItem1: TMenuItem 1960 object MenuItem1: TMenuItem
1962 Caption = 'File' 1961 Caption = 'File'
1963 object MenuItem33: TMenuItem 1962 object MenuItem33: TMenuItem
@@ -2101,8 +2100,8 @@ object frmTracker: TfrmTracker
2101 end 2100 end
2102 object MenuBarActionList: TActionList 2101 object MenuBarActionList: TActionList
2103 Images = ImageList1 2102 Images = ImageList1
2104 Left = 182 2103 Left = 104
2105 Top = 126 2104 Top = 72
2106 object FileOpen1: TFileOpen 2105 object FileOpen1: TFileOpen
2107 Category = 'File' 2106 Category = 'File'
2108 Caption = '&Open ...' 2107 Caption = '&Open ...'
@@ -2205,8 +2204,8 @@ object frmTracker: TfrmTracker
2205 end 2204 end
2206 end 2205 end
2207 object ImageList1: TImageList 2206 object ImageList1: TImageList
2208 Left = 266 2207 Left = 152
2209 Top = 56 2208 Top = 32
2210 Bitmap = { 2209 Bitmap = {
2211 4C69540000001000000010000000000000000000000000000000000000000000 2210 4C69540000001000000010000000000000000000000000000000000000000000
2212 0000000000000000000000000000000000000000000000000000000000000000 2211 0000000000000000000000000000000000000000000000000000000000000000
@@ -4901,17 +4900,17 @@ object frmTracker: TfrmTracker
4901 end 4900 end
4902 object OpenDialog1: TOpenDialog 4901 object OpenDialog1: TOpenDialog
4903 Filter = 'hUGETracker Instruments|*.ugi' 4902 Filter = 'hUGETracker Instruments|*.ugi'
4904 Left = 140 4903 Left = 80
4905 Top = 98 4904 Top = 56
4906 end 4905 end
4907 object InstrumentSaveDialog: TSaveDialog 4906 object InstrumentSaveDialog: TSaveDialog
4908 Filter = 'hUGETracker Instruments|*.ugi' 4907 Filter = 'hUGETracker Instruments|*.ugi'
4909 Left = 140 4908 Left = 80
4910 Top = 98 4909 Top = 56
4911 end 4910 end
4912 object OrderEditPopup: TPopupMenu 4911 object OrderEditPopup: TPopupMenu
4913 Left = 224 4912 Left = 128
4914 Top = 70 4913 Top = 40
4915 object MenuItem17: TMenuItem 4914 object MenuItem17: TMenuItem
4916 Caption = 'Insert new row' 4915 Caption = 'Insert new row'
4917 Hint = 'Insert a new row filled with brand new patterns' 4916 Hint = 'Insert a new row filled with brand new patterns'
@@ -4942,8 +4941,8 @@ object frmTracker: TfrmTracker
4942 object ImageList2: TImageList 4941 object ImageList2: TImageList
4943 Height = 32 4942 Height = 32
4944 Width = 32 4943 Width = 32
4945 Left = 84 4944 Left = 48
4946 Top = 151 4945 Top = 86
4947 Bitmap = { 4946 Bitmap = {
4948 4C69020000002000000020000000000000000000000000000000000000000000 4947 4C69020000002000000020000000000000000000000000000000000000000000
4949 0000000000000000000000000000000000000000000000000000000000000000 4948 0000000000000000000000000000000000000000000000000000000000000000
@@ -5208,33 +5207,33 @@ object frmTracker: TfrmTracker
5208 Enabled = False 5207 Enabled = False
5209 Interval = 200 5208 Interval = 200
5210 OnTimer = OscilloscopeUpdateTimerTimer 5209 OnTimer = OscilloscopeUpdateTimerTimer
5211 Left = 154 5210 Left = 88
5212 Top = 84 5211 Top = 48
5213 end 5212 end
5214 object GBSSaveDialog: TSaveDialog 5213 object GBSSaveDialog: TSaveDialog
5215 Filter = 'Gameboy Soundtrack|*.gbs' 5214 Filter = 'Gameboy Soundtrack|*.gbs'
5216 Left = 504 5215 Left = 288
5217 Top = 42 5216 Top = 24
5218 end 5217 end
5219 object WaveSaveDialog: TSaveDialog 5218 object WaveSaveDialog: TSaveDialog
5220 Filter = 'hUGETracker Waves|*.ugw' 5219 Filter = 'hUGETracker Waves|*.ugw'
5221 Left = 644 5220 Left = 368
5222 Top = 42 5221 Top = 24
5223 end 5222 end
5224 object GBSaveDialog: TSaveDialog 5223 object GBSaveDialog: TSaveDialog
5225 Filter = 'Gameboy ROM|*.GB' 5224 Filter = 'Gameboy ROM|*.GB'
5226 Left = 574 5225 Left = 328
5227 Top = 42 5226 Top = 24
5228 end 5227 end
5229 object NoteHaltTimer: TTimer 5228 object NoteHaltTimer: TTimer
5230 Enabled = False 5229 Enabled = False
5231 OnTimer = NoteHaltTimerTimer 5230 OnTimer = NoteHaltTimerTimer
5232 Left = 140 5231 Left = 80
5233 Top = 151 5232 Top = 86
5234 end 5233 end
5235 object TrackerGridPopup: TPopupMenu 5234 object TrackerGridPopup: TPopupMenu
5236 Left = 168 5235 Left = 96
5237 Top = 42 5236 Top = 24
5238 object TrackerPopupEditEffect: TMenuItem 5237 object TrackerPopupEditEffect: TMenuItem
5239 Caption = 'Edit effect ...' 5238 Caption = 'Edit effect ...'
5240 OnClick = TrackerPopupEditEffectClick 5239 OnClick = TrackerPopupEditEffectClick
@@ -5381,8 +5380,8 @@ object frmTracker: TfrmTracker
5381 object WavSaveDialog: TSaveDialog 5380 object WavSaveDialog: TSaveDialog
5382 DefaultExt = '.wav' 5381 DefaultExt = '.wav'
5383 Filter = 'Wave files|*.wav' 5382 Filter = 'Wave files|*.wav'
5384 Left = 714 5383 Left = 408
5385 Top = 42 5384 Top = 24
5386 end 5385 end
5387 object SynAnySyn1: TSynAnySyn 5386 object SynAnySyn1: TSynAnySyn
5388 Enabled = False 5387 Enabled = False
@@ -5506,18 +5505,18 @@ object frmTracker: TfrmTracker
5506 Entity = False 5505 Entity = False
5507 DollarVariables = False 5506 DollarVariables = False
5508 ActiveDot = False 5507 ActiveDot = False
5509 Left = 14 5508 Left = 8
5510 Top = 151 5509 Top = 86
5511 end 5510 end
5512 object MODOpenDialog: TOpenDialog 5511 object MODOpenDialog: TOpenDialog
5513 DefaultExt = '.mod' 5512 DefaultExt = '.mod'
5514 Filter = 'GBT Player MOD files|*.mod' 5513 Filter = 'GBT Player MOD files|*.mod'
5515 Left = 784 5514 Left = 448
5516 Top = 56 5515 Top = 32
5517 end 5516 end
5518 object WaveEditPopup: TPopupMenu 5517 object WaveEditPopup: TPopupMenu
5519 Left = 14 5518 Left = 8
5520 Top = 56 5519 Top = 32
5521 object MenuItem37: TMenuItem 5520 object MenuItem37: TMenuItem
5522 Caption = 'Copy' 5521 Caption = 'Copy'
5523 OnClick = MenuItem37Click 5522 OnClick = MenuItem37Click
@@ -5529,8 +5528,8 @@ object frmTracker: TfrmTracker
5529 end 5528 end
5530 object ShortcutsActionList: TActionList 5529 object ShortcutsActionList: TActionList
5531 Images = ImageList1 5530 Images = ImageList1
5532 Left = 364 5531 Left = 208
5533 Top = 56 5532 Top = 32
5534 object PlayStartAction: TAction 5533 object PlayStartAction: TAction
5535 Caption = '▶️ Start' 5534 Caption = '▶️ Start'
5536 DisableIfNoHandler = False 5535 DisableIfNoHandler = False
@@ -5655,12 +5654,12 @@ object frmTracker: TfrmTracker
5655 end 5654 end
5656 object GBDKCSaveDialog: TSaveDialog 5655 object GBDKCSaveDialog: TSaveDialog
5657 Filter = 'GBDK C File|*.c' 5656 Filter = 'GBDK C File|*.c'
5658 Left = 434 5657 Left = 248
5659 Top = 42 5658 Top = 24
5660 end 5659 end
5661 object RGBDSAsmSaveDialog: TSaveDialog 5660 object RGBDSAsmSaveDialog: TSaveDialog
5662 Filter = 'RGBDS Assembly|*.asm' 5661 Filter = 'RGBDS Assembly|*.asm'
5663 Left = 434 5662 Left = 248
5664 Top = 112 5663 Top = 64
5665 end 5664 end
5666 end 5665 end