Commit 749f4a2

Nick committed on
Work on routine editor
commit 749f4a26a6c3e790b92979411eb2ebfec5701b7a parent 5069f97
3 changed files +548−419
Modifiedtracker.lfm +539−411
@@ -1,11 +1,12 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 333 2 Left = 807
3 Height = 686 3 Height = 1200
4 Top = 131 4 Top = 205
5 Width = 1166 5 Width = 2040
6 Caption = 'hUGETracker' 6 Caption = 'hUGETracker'
7 ClientHeight = 666 7 ClientHeight = 1166
8 ClientWidth = 1166 8 ClientWidth = 2040
9 DesignTimePPI = 168
9 KeyPreview = True 10 KeyPreview = True
10 Menu = MainMenu1 11 Menu = MainMenu1
11 OnClose = FormClose 12 OnClose = FormClose
@@ -19,9 +20,9 @@ object frmTracker: TfrmTracker
19 LCLVersion = '2.0.6.0' 20 LCLVersion = '2.0.6.0'
20 object TreeView1: TTreeView 21 object TreeView1: TTreeView
21 Left = 0 22 Left = 0
22 Height = 440 23 Height = 770
23 Top = 203 24 Top = 353
24 Width = 193 25 Width = 338
25 Align = alLeft 26 Align = alLeft
26 ParentFont = False 27 ParentFont = False
27 ReadOnly = True 28 ReadOnly = True
@@ -36,100 +37,100 @@ object frmTracker: TfrmTracker
36 } 37 }
37 end 38 end
38 object Splitter1: TSplitter 39 object Splitter1: TSplitter
39 Left = 193 40 Left = 338
40 Height = 440 41 Height = 770
41 Top = 203 42 Top = 353
42 Width = 5 43 Width = 9
43 end 44 end
44 object Panel1: TPanel 45 object Panel1: TPanel
45 Left = 198 46 Left = 347
46 Height = 440 47 Height = 770
47 Top = 203 48 Top = 353
48 Width = 968 49 Width = 1693
49 Align = alClient 50 Align = alClient
50 BevelOuter = bvNone 51 BevelOuter = bvNone
51 ClientHeight = 440 52 ClientHeight = 770
52 ClientWidth = 968 53 ClientWidth = 1693
53 ParentFont = False 54 ParentFont = False
54 TabOrder = 2 55 TabOrder = 2
55 object PageControl1: TPageControl 56 object PageControl1: TPageControl
56 Left = 0 57 Left = 0
57 Height = 440 58 Height = 770
58 Top = 0 59 Top = 0
59 Width = 968 60 Width = 1693
60 ActivePage = GeneralTabSheet 61 ActivePage = RoutinesTabSheet
61 Align = alClient 62 Align = alClient
62 ParentFont = False 63 ParentFont = False
63 TabIndex = 0 64 TabIndex = 5
64 TabOrder = 0 65 TabOrder = 0
65 object GeneralTabSheet: TTabSheet 66 object GeneralTabSheet: TTabSheet
66 Caption = 'General' 67 Caption = 'General'
67 ClientHeight = 412 68 ClientHeight = 727
68 ClientWidth = 960 69 ClientWidth = 1685
69 ParentFont = False 70 ParentFont = False
70 object SongInformationGroupbox: TGroupBox 71 object SongInformationGroupbox: TGroupBox
71 Left = 8 72 Left = 14
72 Height = 136 73 Height = 238
73 Top = 8 74 Top = 14
74 Width = 305 75 Width = 534
75 Caption = 'Song information' 76 Caption = 'Song information'
76 ClientHeight = 116 77 ClientHeight = 203
77 ClientWidth = 301 78 ClientWidth = 530
78 ParentFont = False 79 ParentFont = False
79 TabOrder = 0 80 TabOrder = 0
80 object Label15: TLabel 81 object Label15: TLabel
81 Left = 8 82 Left = 14
82 Height = 15 83 Height = 30
83 Top = 16 84 Top = 28
84 Width = 27 85 Width = 47
85 Caption = 'Song' 86 Caption = 'Song'
86 ParentColor = False 87 ParentColor = False
87 ParentFont = False 88 ParentFont = False
88 end 89 end
89 object Label16: TLabel 90 object Label16: TLabel
90 Left = 7 91 Left = 12
91 Height = 15 92 Height = 30
92 Top = 48 93 Top = 84
93 Width = 28 94 Width = 49
94 Caption = 'Artist' 95 Caption = 'Artist'
95 ParentColor = False 96 ParentColor = False
96 ParentFont = False 97 ParentFont = False
97 end 98 end
98 object SongEdit: TEdit 99 object SongEdit: TEdit
99 Left = 56 100 Left = 98
100 Height = 23 101 Height = 38
101 Hint = 'The name of your composition' 102 Hint = 'The name of your composition'
102 Top = 8 103 Top = 14
103 Width = 216 104 Width = 378
104 OnChange = SongEditChange 105 OnChange = SongEditChange
105 ParentFont = False 106 ParentFont = False
106 TabOrder = 0 107 TabOrder = 0
107 end 108 end
108 object ArtistEdit: TEdit 109 object ArtistEdit: TEdit
109 Left = 56 110 Left = 98
110 Height = 23 111 Height = 38
111 Hint = 'Your name or handle' 112 Hint = 'Your name or handle'
112 Top = 40 113 Top = 70
113 Width = 216 114 Width = 378
114 OnChange = ArtistEditChange 115 OnChange = ArtistEditChange
115 ParentFont = False 116 ParentFont = False
116 TabOrder = 1 117 TabOrder = 1
117 end 118 end
118 object Label21: TLabel 119 object Label21: TLabel
119 Left = 8 120 Left = 14
120 Height = 15 121 Height = 30
121 Top = 78 122 Top = 136
122 Width = 114 123 Width = 197
123 Caption = 'Tempo (ticks per row)' 124 Caption = 'Tempo (ticks per row)'
124 ParentColor = False 125 ParentColor = False
125 ParentFont = False 126 ParentFont = False
126 end 127 end
127 object TicksPerRowSpinEdit: TSpinEdit 128 object TicksPerRowSpinEdit: TSpinEdit
128 Left = 133 129 Left = 233
129 Height = 23 130 Height = 38
130 Hint = 'How many ticks should happen before the row changes. Higher means slower' 131 Hint = 'How many ticks should happen before the row changes. Higher means slower'
131 Top = 73 132 Top = 128
132 Width = 50 133 Width = 88
133 MaxValue = 20 134 MaxValue = 20
134 MinValue = 1 135 MinValue = 1
135 OnChange = TicksPerRowSpinEditChange 136 OnChange = TicksPerRowSpinEditChange
@@ -141,25 +142,25 @@ object frmTracker: TfrmTracker
141 end 142 end
142 object PatternTabSheet: TTabSheet 143 object PatternTabSheet: TTabSheet
143 Caption = 'Patterns' 144 Caption = 'Patterns'
144 ClientHeight = 412 145 ClientHeight = 727
145 ClientWidth = 960 146 ClientWidth = 1685
146 ParentFont = False 147 ParentFont = False
147 object Panel3: TPanel 148 object Panel3: TPanel
148 Left = 224 149 Left = 392
149 Height = 412 150 Height = 727
150 Top = 0 151 Top = 0
151 Width = 736 152 Width = 1293
152 Align = alClient 153 Align = alClient
153 ClientHeight = 412 154 ClientHeight = 727
154 ClientWidth = 736 155 ClientWidth = 1293
155 ParentFont = False 156 ParentFont = False
156 TabOrder = 0 157 TabOrder = 0
157 object HeaderControl1: THeaderControl 158 object HeaderControl1: THeaderControl
158 Left = 1 159 Left = 1
159 Height = 30 160 Height = 52
160 Hint = 'Left click to mute, right click to solo' 161 Hint = 'Left click to mute, right click to solo'
161 Top = 1 162 Top = 1
162 Width = 734 163 Width = 1291
163 DragReorder = False 164 DragReorder = False
164 Images = ImageList2 165 Images = ImageList2
165 Sections = < 166 Sections = <
@@ -167,28 +168,28 @@ object frmTracker: TfrmTracker
167 Alignment = taCenter 168 Alignment = taCenter
168 ImageIndex = 1 169 ImageIndex = 1
169 Text = 'Duty 1' 170 Text = 'Duty 1'
170 Width = 133 171 Width = 233
171 Visible = True 172 Visible = True
172 end 173 end
173 item 174 item
174 Alignment = taCenter 175 Alignment = taCenter
175 ImageIndex = 1 176 ImageIndex = 1
176 Text = 'Duty 2' 177 Text = 'Duty 2'
177 Width = 133 178 Width = 233
178 Visible = True 179 Visible = True
179 end 180 end
180 item 181 item
181 Alignment = taCenter 182 Alignment = taCenter
182 ImageIndex = 1 183 ImageIndex = 1
183 Text = 'Wave' 184 Text = 'Wave'
184 Width = 133 185 Width = 233
185 Visible = True 186 Visible = True
186 end 187 end
187 item 188 item
188 Alignment = taCenter 189 Alignment = taCenter
189 ImageIndex = 1 190 ImageIndex = 1
190 Text = 'Noise' 191 Text = 'Noise'
191 Width = 133 192 Width = 233
192 Visible = True 193 Visible = True
193 end> 194 end>
194 OnSectionClick = HeaderControl1SectionClick 195 OnSectionClick = HeaderControl1SectionClick
@@ -199,9 +200,9 @@ object frmTracker: TfrmTracker
199 end 200 end
200 object ScrollBox1: TScrollBox 201 object ScrollBox1: TScrollBox
201 Left = 1 202 Left = 1
202 Height = 380 203 Height = 673
203 Top = 31 204 Top = 53
204 Width = 734 205 Width = 1291
205 HorzScrollBar.Increment = 1 206 HorzScrollBar.Increment = 1
206 HorzScrollBar.Page = 1 207 HorzScrollBar.Page = 1
207 HorzScrollBar.Smooth = True 208 HorzScrollBar.Smooth = True
@@ -218,43 +219,43 @@ object frmTracker: TfrmTracker
218 end 219 end
219 object OrderEditStringGrid: TStringGrid 220 object OrderEditStringGrid: TStringGrid
220 Left = 0 221 Left = 0
221 Height = 412 222 Height = 727
222 Top = 0 223 Top = 0
223 Width = 224 224 Width = 392
224 Align = alLeft 225 Align = alLeft
225 AutoEdit = False 226 AutoEdit = False
226 AutoFillColumns = True 227 AutoFillColumns = True
227 Columns = < 228 Columns = <
228 item 229 item
229 Alignment = taCenter 230 Alignment = taCenter
230 MinSize = 33 231 MinSize = 58
231 MaxSize = 33 232 MaxSize = 58
232 Title.Caption = 'Dty1' 233 Title.Caption = 'Dty1'
233 Width = 34 234 Width = 61
234 end 235 end
235 item 236 item
236 Alignment = taCenter 237 Alignment = taCenter
237 MinSize = 33 238 MinSize = 58
238 MaxSize = 33 239 MaxSize = 58
239 Title.Caption = 'Dty2' 240 Title.Caption = 'Dty2'
240 Width = 34 241 Width = 61
241 end 242 end
242 item 243 item
243 Alignment = taCenter 244 Alignment = taCenter
244 MinSize = 33 245 MinSize = 58
245 MaxSize = 33 246 MaxSize = 58
246 Title.Caption = 'Wav' 247 Title.Caption = 'Wav'
247 Width = 34 248 Width = 61
248 end 249 end
249 item 250 item
250 Alignment = taCenter 251 Alignment = taCenter
251 MinSize = 33 252 MinSize = 58
252 MaxSize = 33 253 MaxSize = 58
253 Title.Caption = 'Nse' 254 Title.Caption = 'Nse'
254 Width = 37 255 Width = 63
255 end> 256 end>
256 DefaultColWidth = 17 257 DefaultColWidth = 30
257 DefaultRowHeight = 21 258 DefaultRowHeight = 37
258 ExtendedSelect = False 259 ExtendedSelect = False
259 Options = [goFixedVertLine, goFixedHorzLine, goRangeSelect, goRowMoving, goEditing, goAutoAddRows, goTabs, goSmoothScroll, goFixedRowNumbering, goRowHighlight] 260 Options = [goFixedVertLine, goFixedHorzLine, goRangeSelect, goRowMoving, goEditing, goAutoAddRows, goTabs, goSmoothScroll, goFixedRowNumbering, goRowHighlight]
260 ParentFont = False 261 ParentFont = False
@@ -273,11 +274,11 @@ object frmTracker: TfrmTracker
273 OnEditingDone = OrderEditStringGridEditingDone 274 OnEditingDone = OrderEditStringGridEditingDone
274 OnKeyDown = OrderEditStringGridKeyDown 275 OnKeyDown = OrderEditStringGridKeyDown
275 ColWidths = ( 276 ColWidths = (
276 64 277 112
277 34 278 61
278 34 279 61
279 34 280 61
280 37 281 63
281 ) 282 )
282 end 283 end
283 end 284 end
@@ -342,25 +343,25 @@ object frmTracker: TfrmTracker
342 TabOrder = 0 343 TabOrder = 0
343 object InstrumentGroupBox: TGroupBox 344 object InstrumentGroupBox: TGroupBox
344 Left = 7 345 Left = 7
345 Height = 208 346 Height = 364
346 Top = 7 347 Top = 7
347 Width = 271 348 Width = 474
348 Anchors = [] 349 Anchors = []
349 BorderSpacing.Left = 7 350 BorderSpacing.Left = 12
350 BorderSpacing.Top = 7 351 BorderSpacing.Top = 12
351 BorderSpacing.Right = 7 352 BorderSpacing.Right = 12
352 BorderSpacing.Bottom = 7 353 BorderSpacing.Bottom = 12
353 Caption = 'Instrument' 354 Caption = 'Instrument'
354 ClientHeight = 188 355 ClientHeight = 329
355 ClientWidth = 267 356 ClientWidth = 470
356 ParentFont = False 357 ParentFont = False
357 TabOrder = 0 358 TabOrder = 0
358 object InstrumentNumberSpinner: TSpinEdit 359 object InstrumentNumberSpinner: TSpinEdit
359 Left = 80 360 Left = 140
360 Height = 23 361 Height = 23
361 Hint = 'What instrument to edit' 362 Hint = 'What instrument to edit'
362 Top = 1 363 Top = 2
363 Width = 176 364 Width = 308
364 MaxValue = 15 365 MaxValue = 15
365 MinValue = 1 366 MinValue = 1
366 OnChange = InstrumentNumberSpinnerChange 367 OnChange = InstrumentNumberSpinnerChange
@@ -369,49 +370,49 @@ object frmTracker: TfrmTracker
369 Value = 1 370 Value = 1
370 end 371 end
371 object Label1: TLabel 372 object Label1: TLabel
372 Left = 8 373 Left = 14
373 Height = 15 374 Height = 15
374 Top = 8 375 Top = 14
375 Width = 58 376 Width = 58
376 Caption = 'Instrument' 377 Caption = 'Instrument'
377 ParentColor = False 378 ParentColor = False
378 ParentFont = False 379 ParentFont = False
379 end 380 end
380 object Label2: TLabel 381 object Label2: TLabel
381 Left = 8 382 Left = 14
382 Height = 15 383 Height = 15
383 Top = 34 384 Top = 60
384 Width = 32 385 Width = 32
385 Caption = 'Name' 386 Caption = 'Name'
386 ParentColor = False 387 ParentColor = False
387 ParentFont = False 388 ParentFont = False
388 end 389 end
389 object InstrumentNameEdit: TEdit 390 object InstrumentNameEdit: TEdit
390 Left = 80 391 Left = 140
391 Height = 23 392 Height = 23
392 Hint = 'The name of the instrument' 393 Hint = 'The name of the instrument'
393 Top = 26 394 Top = 46
394 Width = 176 395 Width = 308
395 OnChange = InstrumentNameEditChange 396 OnChange = InstrumentNameEditChange
396 ParentFont = False 397 ParentFont = False
397 TabOrder = 1 398 TabOrder = 1
398 end 399 end
399 object Label3: TLabel 400 object Label3: TLabel
400 Left = 8 401 Left = 14
401 Height = 15 402 Height = 15
402 Top = 61 403 Top = 107
403 Width = 24 404 Width = 24
404 Caption = 'Type' 405 Caption = 'Type'
405 ParentColor = False 406 ParentColor = False
406 ParentFont = False 407 ParentFont = False
407 end 408 end
408 object InstrumentTypeCombobox: TComboBox 409 object InstrumentTypeCombobox: TComboBox
409 Left = 80 410 Left = 140
410 Height = 23 411 Height = 38
411 Hint = 'What type of channel this instrument will be played on' 412 Hint = 'What type of channel this instrument will be played on'
412 Top = 53 413 Top = 93
413 Width = 176 414 Width = 308
414 ItemHeight = 15 415 ItemHeight = 30
415 ItemIndex = 0 416 ItemIndex = 0
416 Items.Strings = ( 417 Items.Strings = (
417 'Square' 418 'Square'
@@ -425,10 +426,10 @@ object frmTracker: TfrmTracker
425 Text = 'Square' 426 Text = 'Square'
426 end 427 end
427 object LengthEnabledCheckbox: TCheckBox 428 object LengthEnabledCheckbox: TCheckBox
428 Left = 8 429 Left = 14
429 Height = 19 430 Height = 19
430 Hint = 'Cut the sound after a certain length of time' 431 Hint = 'Cut the sound after a certain length of time'
431 Top = 84 432 Top = 147
432 Width = 57 433 Width = 57
433 Caption = 'Length' 434 Caption = 'Length'
434 OnChange = LengthEnabledCheckboxChange 435 OnChange = LengthEnabledCheckboxChange
@@ -436,40 +437,40 @@ object frmTracker: TfrmTracker
436 TabOrder = 3 437 TabOrder = 3
437 end 438 end
438 object InstrumentImportButton: TButton 439 object InstrumentImportButton: TButton
439 Left = 14 440 Left = 24
440 Height = 25 441 Height = 44
441 Top = 151 442 Top = 264
442 Width = 116 443 Width = 203
443 Caption = 'Import' 444 Caption = 'Import'
444 OnClick = InstrumentImportButtonClick 445 OnClick = InstrumentImportButtonClick
445 ParentFont = False 446 ParentFont = False
446 TabOrder = 4 447 TabOrder = 4
447 end 448 end
448 object InstrumentExportButton: TButton 449 object InstrumentExportButton: TButton
449 Left = 137 450 Left = 240
450 Height = 25 451 Height = 44
451 Top = 151 452 Top = 264
452 Width = 116 453 Width = 203
453 Caption = 'Export' 454 Caption = 'Export'
454 OnClick = InstrumentExportButtonClick 455 OnClick = InstrumentExportButtonClick
455 ParentFont = False 456 ParentFont = False
456 TabOrder = 5 457 TabOrder = 5
457 end 458 end
458 object Button1: TButton 459 object Button1: TButton
459 Left = 14 460 Left = 24
460 Height = 25 461 Height = 44
461 Top = 119 462 Top = 208
462 Width = 242 463 Width = 424
463 Caption = 'Test C-5' 464 Caption = 'Test C-5'
464 OnClick = Button1Click 465 OnClick = Button1Click
465 ParentFont = False 466 ParentFont = False
466 TabOrder = 6 467 TabOrder = 6
467 end 468 end
468 object LengthTrackbar: TTrackBar 469 object LengthTrackbar: TTrackBar
469 Left = 78 470 Left = 136
470 Height = 25 471 Height = 44
471 Top = 82 472 Top = 144
472 Width = 178 473 Width = 312
473 Max = 63 474 Max = 63
474 OnChange = LengthSpinnerChange 475 OnChange = LengthSpinnerChange
475 Position = 0 476 Position = 0
@@ -479,44 +480,44 @@ object frmTracker: TfrmTracker
479 end 480 end
480 object EnvelopeGroupBox: TGroupBox 481 object EnvelopeGroupBox: TGroupBox
481 Left = 292 482 Left = 292
482 Height = 136 483 Height = 238
483 Top = 7 484 Top = 7
484 Width = 659 485 Width = 1153
485 Anchors = [] 486 Anchors = []
486 BorderSpacing.Left = 7 487 BorderSpacing.Left = 12
487 BorderSpacing.Top = 7 488 BorderSpacing.Top = 12
488 BorderSpacing.Right = 7 489 BorderSpacing.Right = 12
489 BorderSpacing.Bottom = 7 490 BorderSpacing.Bottom = 12
490 Caption = 'Envelope' 491 Caption = 'Envelope'
491 ClientHeight = 116 492 ClientHeight = 203
492 ClientWidth = 655 493 ClientWidth = 1149
493 ParentFont = False 494 ParentFont = False
494 TabOrder = 1 495 TabOrder = 1
495 object Label4: TLabel 496 object Label4: TLabel
496 Left = 8 497 Left = 14
497 Height = 15 498 Height = 15
498 Top = 9 499 Top = 16
499 Width = 46 500 Width = 46
500 Caption = 'Start vol.' 501 Caption = 'Start vol.'
501 ParentColor = False 502 ParentColor = False
502 ParentFont = False 503 ParentFont = False
503 end 504 end
504 object Label5: TLabel 505 object Label5: TLabel
505 Left = 8 506 Left = 14
506 Height = 15 507 Height = 15
507 Top = 48 508 Top = 84
508 Width = 48 509 Width = 48
509 Caption = 'Direction' 510 Caption = 'Direction'
510 ParentColor = False 511 ParentColor = False
511 ParentFont = False 512 ParentFont = False
512 end 513 end
513 object DirectionComboBox: TComboBox 514 object DirectionComboBox: TComboBox
514 Left = 82 515 Left = 144
515 Height = 23 516 Height = 38
516 Hint = 'Whether to fade the sound in or out' 517 Hint = 'Whether to fade the sound in or out'
517 Top = 46 518 Top = 80
518 Width = 198 519 Width = 346
519 ItemHeight = 15 520 ItemHeight = 30
520 ItemIndex = 1 521 ItemIndex = 1
521 Items.Strings = ( 522 Items.Strings = (
522 'Up' 523 'Up'
@@ -529,22 +530,22 @@ object frmTracker: TfrmTracker
529 Text = 'Down' 530 Text = 'Down'
530 end 531 end
531 object Label6: TLabel 532 object Label6: TLabel
532 Left = 8 533 Left = 14
533 Height = 15 534 Height = 15
534 Top = 86 535 Top = 150
535 Width = 41 536 Width = 41
536 Caption = 'Change' 537 Caption = 'Change'
537 ParentColor = False 538 ParentColor = False
538 ParentFont = False 539 ParentFont = False
539 end 540 end
540 object Panel5: TPanel 541 object Panel5: TPanel
541 Left = 300 542 Left = 525
542 Height = 105 543 Height = 184
543 Top = 0 544 Top = 0
544 Width = 346 545 Width = 606
545 BevelOuter = bvLowered 546 BevelOuter = bvLowered
546 ClientHeight = 105 547 ClientHeight = 184
547 ClientWidth = 346 548 ClientWidth = 606
548 ParentFont = False 549 ParentFont = False
549 TabOrder = 1 550 TabOrder = 1
550 object EnvelopePaintbox: TPaintBox 551 object EnvelopePaintbox: TPaintBox
@@ -559,10 +560,10 @@ object frmTracker: TfrmTracker
559 end 560 end
560 end 561 end
561 object StartVolTrackbar: TTrackBar 562 object StartVolTrackbar: TTrackBar
562 Left = 82 563 Left = 144
563 Height = 25 564 Height = 44
564 Top = 8 565 Top = 14
565 Width = 196 566 Width = 343
566 Max = 15 567 Max = 15
567 OnChange = StartVolSpinnerChange 568 OnChange = StartVolSpinnerChange
568 Position = 0 569 Position = 0
@@ -570,10 +571,10 @@ object frmTracker: TfrmTracker
570 TabOrder = 2 571 TabOrder = 2
571 end 572 end
572 object EnvChangeTrackbar: TTrackBar 573 object EnvChangeTrackbar: TTrackBar
573 Left = 82 574 Left = 144
574 Height = 25 575 Height = 44
575 Top = 82 576 Top = 144
576 Width = 196 577 Width = 343
577 Max = 7 578 Max = 7
578 OnChange = EnvChangeSpinnerChange 579 OnChange = EnvChangeSpinnerChange
579 Position = 0 580 Position = 0
@@ -583,35 +584,35 @@ object frmTracker: TfrmTracker
583 end 584 end
584 object SquareGroupBox: TGroupBox 585 object SquareGroupBox: TGroupBox
585 Left = 7 586 Left = 7
586 Height = 169 587 Height = 296
587 Top = 229 588 Top = 229
588 Width = 319 589 Width = 558
589 Anchors = [] 590 Anchors = []
590 BorderSpacing.Left = 7 591 BorderSpacing.Left = 12
591 BorderSpacing.Top = 7 592 BorderSpacing.Top = 12
592 BorderSpacing.Right = 7 593 BorderSpacing.Right = 12
593 BorderSpacing.Bottom = 7 594 BorderSpacing.Bottom = 12
594 Caption = 'Square' 595 Caption = 'Square'
595 ClientHeight = 149 596 ClientHeight = 261
596 ClientWidth = 315 597 ClientWidth = 554
597 ParentFont = False 598 ParentFont = False
598 TabOrder = 2 599 TabOrder = 2
599 object Label7: TLabel 600 object Label7: TLabel
600 Left = 8 601 Left = 14
601 Height = 15 602 Height = 15
602 Top = 16 603 Top = 28
603 Width = 61 604 Width = 61
604 Caption = 'Sweep time' 605 Caption = 'Sweep time'
605 ParentColor = False 606 ParentColor = False
606 ParentFont = False 607 ParentFont = False
607 end 608 end
608 object SweepTimeCombobox: TComboBox 609 object SweepTimeCombobox: TComboBox
609 Left = 104 610 Left = 182
610 Height = 23 611 Height = 38
611 Hint = 'How long to sweep' 612 Hint = 'How long to sweep'
612 Top = 8 613 Top = 14
613 Width = 200 614 Width = 350
614 ItemHeight = 15 615 ItemHeight = 30
615 ItemIndex = 0 616 ItemIndex = 0
616 Items.Strings = ( 617 Items.Strings = (
617 'Off - no frequency change' 618 'Off - no frequency change'
@@ -632,12 +633,12 @@ object frmTracker: TfrmTracker
632 Text = 'Off - no frequency change' 633 Text = 'Off - no frequency change'
633 end 634 end
634 object SweepDirectionCombobox: TComboBox 635 object SweepDirectionCombobox: TComboBox
635 Left = 104 636 Left = 182
636 Height = 23 637 Height = 38
637 Hint = 'The direction of the sweep' 638 Hint = 'The direction of the sweep'
638 Top = 40 639 Top = 70
639 Width = 200 640 Width = 350
640 ItemHeight = 15 641 ItemHeight = 30
641 ItemIndex = 1 642 ItemIndex = 1
642 Items.Strings = ( 643 Items.Strings = (
643 'Up' 644 'Up'
@@ -652,39 +653,39 @@ object frmTracker: TfrmTracker
652 Text = 'Down' 653 Text = 'Down'
653 end 654 end
654 object Label8: TLabel 655 object Label8: TLabel
655 Left = 8 656 Left = 14
656 Height = 15 657 Height = 15
657 Top = 48 658 Top = 84
658 Width = 84 659 Width = 84
659 Caption = 'Sweep direction' 660 Caption = 'Sweep direction'
660 ParentColor = False 661 ParentColor = False
661 ParentFont = False 662 ParentFont = False
662 end 663 end
663 object Label9: TLabel 664 object Label9: TLabel
664 Left = 8 665 Left = 14
665 Height = 15 666 Height = 15
666 Top = 84 667 Top = 147
667 Width = 56 668 Width = 56
668 Caption = 'Sweep size' 669 Caption = 'Sweep size'
669 ParentColor = False 670 ParentColor = False
670 ParentFont = False 671 ParentFont = False
671 end 672 end
672 object Label10: TLabel 673 object Label10: TLabel
673 Left = 8 674 Left = 14
674 Height = 15 675 Height = 15
675 Top = 120 676 Top = 210
676 Width = 25 677 Width = 25
677 Caption = 'Duty' 678 Caption = 'Duty'
678 ParentColor = False 679 ParentColor = False
679 ParentFont = False 680 ParentFont = False
680 end 681 end
681 object DutyCombobox: TComboBox 682 object DutyCombobox: TComboBox
682 Left = 104 683 Left = 182
683 Height = 23 684 Height = 38
684 Hint = 'Which duty cycle to use (changes timbre of wave)' 685 Hint = 'Which duty cycle to use (changes timbre of wave)'
685 Top = 112 686 Top = 196
686 Width = 200 687 Width = 350
687 ItemHeight = 15 688 ItemHeight = 30
688 ItemIndex = 2 689 ItemIndex = 2
689 Items.Strings = ( 690 Items.Strings = (
690 '12.5%' 691 '12.5%'
@@ -701,10 +702,10 @@ object frmTracker: TfrmTracker
701 Text = '50% (square)' 702 Text = '50% (square)'
702 end 703 end
703 object SweepSizeTrackbar: TTrackBar 704 object SweepSizeTrackbar: TTrackBar
704 Left = 105 705 Left = 184
705 Height = 25 706 Height = 44
706 Top = 80 707 Top = 140
707 Width = 196 708 Width = 343
708 Max = 7 709 Max = 7
709 OnChange = SweepSizeSpinnerChange 710 OnChange = SweepSizeSpinnerChange
710 Position = 0 711 Position = 0
@@ -714,45 +715,45 @@ object frmTracker: TfrmTracker
714 end 715 end
715 object WaveGroupBox: TGroupBox 716 object WaveGroupBox: TGroupBox
716 Left = 340 717 Left = 340
717 Height = 169 718 Height = 296
718 Top = 229 719 Top = 229
719 Width = 297 720 Width = 520
720 Anchors = [] 721 Anchors = []
721 BorderSpacing.Left = 7 722 BorderSpacing.Left = 12
722 BorderSpacing.Top = 7 723 BorderSpacing.Top = 12
723 BorderSpacing.Right = 7 724 BorderSpacing.Right = 12
724 BorderSpacing.Bottom = 7 725 BorderSpacing.Bottom = 12
725 Caption = 'Wave' 726 Caption = 'Wave'
726 ClientHeight = 149 727 ClientHeight = 261
727 ClientWidth = 293 728 ClientWidth = 516
728 Enabled = False 729 Enabled = False
729 ParentFont = False 730 ParentFont = False
730 TabOrder = 3 731 TabOrder = 3
731 object Label11: TLabel 732 object Label11: TLabel
732 Left = 8 733 Left = 14
733 Height = 15 734 Height = 15
734 Top = 16 735 Top = 28
735 Width = 40 736 Width = 40
736 Caption = 'Volume' 737 Caption = 'Volume'
737 ParentColor = False 738 ParentColor = False
738 ParentFont = False 739 ParentFont = False
739 end 740 end
740 object Label12: TLabel 741 object Label12: TLabel
741 Left = 8 742 Left = 14
742 Height = 15 743 Height = 15
743 Top = 48 744 Top = 84
744 Width = 55 745 Width = 55
745 Caption = 'Waveform' 746 Caption = 'Waveform'
746 ParentColor = False 747 ParentColor = False
747 ParentFont = False 748 ParentFont = False
748 end 749 end
749 object WaveformCombobox: TComboBox 750 object WaveformCombobox: TComboBox
750 Left = 104 751 Left = 182
751 Height = 23 752 Height = 38
752 Hint = 'Which waveform is associated with this instrument' 753 Hint = 'Which waveform is associated with this instrument'
753 Top = 40 754 Top = 70
754 Width = 176 755 Width = 308
755 ItemHeight = 15 756 ItemHeight = 30
756 ItemIndex = 0 757 ItemIndex = 0
757 Items.Strings = ( 758 Items.Strings = (
758 'Wave #0' 759 'Wave #0'
@@ -779,13 +780,13 @@ object frmTracker: TfrmTracker
779 Text = 'Wave #0' 780 Text = 'Wave #0'
780 end 781 end
781 object Panel4: TPanel 782 object Panel4: TPanel
782 Left = 8 783 Left = 14
783 Height = 59 784 Height = 103
784 Top = 80 785 Top = 140
785 Width = 272 786 Width = 476
786 BevelOuter = bvLowered 787 BevelOuter = bvLowered
787 ClientHeight = 59 788 ClientHeight = 103
788 ClientWidth = 272 789 ClientWidth = 476
789 ParentFont = False 790 ParentFont = False
790 TabOrder = 1 791 TabOrder = 1
791 object WavePaintbox: TPaintBox 792 object WavePaintbox: TPaintBox
@@ -802,12 +803,12 @@ object frmTracker: TfrmTracker
802 end 803 end
803 end 804 end
804 object WaveVolumeCombobox: TComboBox 805 object WaveVolumeCombobox: TComboBox
805 Left = 104 806 Left = 182
806 Height = 23 807 Height = 38
807 Hint = 'The initial volume of the wave' 808 Hint = 'The initial volume of the wave'
808 Top = 8 809 Top = 14
809 Width = 176 810 Width = 308
810 ItemHeight = 15 811 ItemHeight = 30
811 ItemIndex = 1 812 ItemIndex = 1
812 Items.Strings = ( 813 Items.Strings = (
813 'Mute (No sound)' 814 'Mute (No sound)'
@@ -824,25 +825,25 @@ object frmTracker: TfrmTracker
824 end 825 end
825 object NoiseGroupBox: TGroupBox 826 object NoiseGroupBox: TGroupBox
826 Left = 651 827 Left = 651
827 Height = 169 828 Height = 296
828 Top = 229 829 Top = 229
829 Width = 264 830 Width = 462
830 Anchors = [] 831 Anchors = []
831 BorderSpacing.Left = 7 832 BorderSpacing.Left = 12
832 BorderSpacing.Top = 7 833 BorderSpacing.Top = 12
833 BorderSpacing.Right = 7 834 BorderSpacing.Right = 12
834 BorderSpacing.Bottom = 7 835 BorderSpacing.Bottom = 12
835 Caption = 'Noise' 836 Caption = 'Noise'
836 ClientHeight = 149 837 ClientHeight = 261
837 ClientWidth = 260 838 ClientWidth = 458
838 Enabled = False 839 Enabled = False
839 ParentFont = False 840 ParentFont = False
840 TabOrder = 4 841 TabOrder = 4
841 object SevenBitCounterCheckbox: TCheckBox 842 object SevenBitCounterCheckbox: TCheckBox
842 Left = 8 843 Left = 14
843 Height = 19 844 Height = 19
844 Hint = 'Select LFSR width. When checked, output will sound like a tone rather than noise' 845 Hint = 'Select LFSR width. When checked, output will sound like a tone rather than noise'
845 Top = 80 846 Top = 140
846 Width = 215 847 Width = 215
847 Alignment = taLeftJustify 848 Alignment = taLeftJustify
848 Caption = '7 bit counter (more tone-like output)' 849 Caption = '7 bit counter (more tone-like output)'
@@ -851,39 +852,39 @@ object frmTracker: TfrmTracker
851 TabOrder = 0 852 TabOrder = 0
852 end 853 end
853 object Label14: TLabel 854 object Label14: TLabel
854 Left = 9 855 Left = 16
855 Height = 15 856 Height = 15
856 Top = 51 857 Top = 89
857 Width = 71 858 Width = 71
858 Caption = 'Dividing ratio' 859 Caption = 'Dividing ratio'
859 ParentColor = False 860 ParentColor = False
860 ParentFont = False 861 ParentFont = False
861 end 862 end
862 object RandomizeNoiseButton: TButton 863 object RandomizeNoiseButton: TButton
863 Left = 9 864 Left = 16
864 Height = 25 865 Height = 44
865 Hint = 'Randomize the noise instrument parameters to get a random drum-like sound' 866 Hint = 'Randomize the noise instrument parameters to get a random drum-like sound'
866 Top = 112 867 Top = 196
867 Width = 242 868 Width = 424
868 Caption = 'Randomize' 869 Caption = 'Randomize'
869 OnClick = RandomizeNoiseButtonClick 870 OnClick = RandomizeNoiseButtonClick
870 ParentFont = False 871 ParentFont = False
871 TabOrder = 1 872 TabOrder = 1
872 end 873 end
873 object Label25: TLabel 874 object Label25: TLabel
874 Left = 9 875 Left = 16
875 Height = 15 876 Height = 15
876 Top = 16 877 Top = 28
877 Width = 86 878 Width = 86
878 Caption = 'Shift clock mask' 879 Caption = 'Shift clock mask'
879 ParentColor = False 880 ParentColor = False
880 ParentFont = False 881 ParentFont = False
881 end 882 end
882 object ShiftClockTrackbar: TTrackBar 883 object ShiftClockTrackbar: TTrackBar
883 Left = 110 884 Left = 192
884 Height = 25 885 Height = 44
885 Top = 16 886 Top = 28
886 Width = 146 887 Width = 256
887 Max = 15 888 Max = 15
888 OnChange = ShiftClockSpinnerChange 889 OnChange = ShiftClockSpinnerChange
889 Position = 0 890 Position = 0
@@ -891,10 +892,10 @@ object frmTracker: TfrmTracker
891 TabOrder = 2 892 TabOrder = 2
892 end 893 end
893 object DivRatioTrackbar: TTrackBar 894 object DivRatioTrackbar: TTrackBar
894 Left = 110 895 Left = 192
895 Height = 25 896 Height = 44
896 Top = 51 897 Top = 89
897 Width = 146 898 Width = 256
898 Max = 7 899 Max = 7
899 OnChange = DivRatioSpinnerChange 900 OnChange = DivRatioSpinnerChange
900 Position = 0 901 Position = 0
@@ -918,7 +919,7 @@ object frmTracker: TfrmTracker
918 Width = 960 919 Width = 960
919 Align = alBottom 920 Align = alBottom
920 Anchors = [akTop, akLeft, akRight, akBottom] 921 Anchors = [akTop, akLeft, akRight, akBottom]
921 BorderSpacing.Top = 13 922 BorderSpacing.Top = 23
922 ParentFont = False 923 ParentFont = False
923 OnMouseDown = WaveEditPaintBoxMouseDown 924 OnMouseDown = WaveEditPaintBoxMouseDown
924 OnMouseMove = WaveEditPaintBoxMouseMove 925 OnMouseMove = WaveEditPaintBoxMouseMove
@@ -926,51 +927,51 @@ object frmTracker: TfrmTracker
926 OnPaint = WaveEditPaintBoxPaint 927 OnPaint = WaveEditPaintBoxPaint
927 end 928 end
928 object WaveEditGroupBox: TGroupBox 929 object WaveEditGroupBox: TGroupBox
929 Left = 8 930 Left = 14
930 Height = 139 931 Height = 243
931 Top = 8 932 Top = 14
932 Width = 173 933 Width = 303
933 Caption = 'Wave Editor' 934 Caption = 'Wave Editor'
934 ClientHeight = 119 935 ClientHeight = 208
935 ClientWidth = 169 936 ClientWidth = 299
936 ParentFont = False 937 ParentFont = False
937 TabOrder = 0 938 TabOrder = 0
938 object Label20: TLabel 939 object Label20: TLabel
939 Left = 16 940 Left = 28
940 Height = 15 941 Height = 15
941 Top = 16 942 Top = 28
942 Width = 29 943 Width = 29
943 Caption = 'Wave' 944 Caption = 'Wave'
944 ParentColor = False 945 ParentColor = False
945 ParentFont = False 946 ParentFont = False
946 end 947 end
947 object WaveEditNumberSpinner: TSpinEdit 948 object WaveEditNumberSpinner: TSpinEdit
948 Left = 64 949 Left = 112
949 Height = 23 950 Height = 23
950 Top = 8 951 Top = 14
951 Width = 80 952 Width = 140
952 MaxValue = 15 953 MaxValue = 15
953 OnChange = WaveEditNumberSpinnerChange 954 OnChange = WaveEditNumberSpinnerChange
954 ParentFont = False 955 ParentFont = False
955 TabOrder = 0 956 TabOrder = 0
956 end 957 end
957 object ImportWaveButton: TButton 958 object ImportWaveButton: TButton
958 Left = 16 959 Left = 28
959 Height = 25 960 Height = 44
960 Hint = 'Import a wave' 961 Hint = 'Import a wave'
961 Top = 48 962 Top = 84
962 Width = 147 963 Width = 257
963 Caption = 'Import' 964 Caption = 'Import'
964 OnClick = ImportWaveButtonClick 965 OnClick = ImportWaveButtonClick
965 ParentFont = False 966 ParentFont = False
966 TabOrder = 1 967 TabOrder = 1
967 end 968 end
968 object ExportWaveButton: TButton 969 object ExportWaveButton: TButton
969 Left = 16 970 Left = 28
970 Height = 25 971 Height = 44
971 Hint = 'Export a wave' 972 Hint = 'Export a wave'
972 Top = 80 973 Top = 140
973 Width = 147 974 Width = 257
974 Caption = 'Export' 975 Caption = 'Export'
975 OnClick = ExportWaveButtonClick 976 OnClick = ExportWaveButtonClick
976 ParentFont = False 977 ParentFont = False
@@ -980,30 +981,30 @@ object frmTracker: TfrmTracker
980 end 981 end
981 object CommentsTabSheet: TTabSheet 982 object CommentsTabSheet: TTabSheet
982 Caption = 'Comments' 983 Caption = 'Comments'
983 ClientHeight = 412 984 ClientHeight = 727
984 ClientWidth = 960 985 ClientWidth = 1685
985 ParentFont = False 986 ParentFont = False
986 object CommentMemo: TMemo 987 object CommentMemo: TMemo
987 AnchorSideTop.Control = Label17 988 AnchorSideTop.Control = Label17
988 AnchorSideTop.Side = asrBottom 989 AnchorSideTop.Side = asrBottom
989 Left = 0 990 Left = 0
990 Height = 376 991 Height = 660
991 Hint = 'The comments section for your song. Greetings/links/etc' 992 Hint = 'The comments section for your song. Greetings/links/etc'
992 Top = 36 993 Top = 67
993 Width = 960 994 Width = 1685
994 Align = alBottom 995 Align = alBottom
995 Anchors = [akTop, akLeft, akRight, akBottom] 996 Anchors = [akTop, akLeft, akRight, akBottom]
996 BorderSpacing.Top = 13 997 BorderSpacing.Top = 23
997 MaxLength = 255 998 MaxLength = 255
998 OnChange = CommentMemoChange 999 OnChange = CommentMemoChange
999 ParentFont = False 1000 ParentFont = False
1000 TabOrder = 0 1001 TabOrder = 0
1001 end 1002 end
1002 object Label17: TLabel 1003 object Label17: TLabel
1003 Left = 8 1004 Left = 14
1004 Height = 15 1005 Height = 30
1005 Top = 8 1006 Top = 14
1006 Width = 333 1007 Width = 587
1007 Caption = 'This is an area to write comments for anyone editing your tune.' 1008 Caption = 'This is an area to write comments for anyone editing your tune.'
1008 ParentColor = False 1009 ParentColor = False
1009 ParentFont = False 1010 ParentFont = False
@@ -1011,31 +1012,32 @@ object frmTracker: TfrmTracker
1011 end 1012 end
1012 object RoutinesTabSheet: TTabSheet 1013 object RoutinesTabSheet: TTabSheet
1013 Caption = 'Routines' 1014 Caption = 'Routines'
1014 ClientHeight = 412 1015 ClientHeight = 727
1015 ClientWidth = 960 1016 ClientWidth = 1685
1016 ParentFont = False 1017 ParentFont = False
1017 inline RoutineSynedit: TSynEdit 1018 inline RoutineSynedit: TSynEdit
1018 AnchorSideTop.Control = Label19 1019 AnchorSideTop.Control = Label19
1019 AnchorSideTop.Side = asrBottom 1020 AnchorSideTop.Side = asrBottom
1020 Left = 0 1021 Left = 0
1021 Height = 284 1022 Height = 484
1022 Top = 128 1023 Top = 243
1023 Width = 960 1024 Width = 1685
1024 Align = alBottom 1025 Align = alBottom
1025 BorderSpacing.Top = 13 1026 BorderSpacing.Top = 23
1026 Anchors = [akTop, akLeft, akRight, akBottom] 1027 Anchors = [akTop, akLeft, akRight, akBottom]
1027 Font.Height = -13 1028 Font.Height = -23
1028 Font.Name = 'Courier New' 1029 Font.Name = 'Courier New'
1029 Font.Pitch = fpFixed 1030 Font.Pitch = fpFixed
1030 Font.Quality = fqNonAntialiased 1031 Font.Quality = fqNonAntialiased
1031 ParentColor = False 1032 ParentColor = False
1032 ParentFont = False 1033 ParentFont = False
1033 TabOrder = 0 1034 TabOrder = 0
1034 Gutter.Width = 57 1035 Gutter.Width = 100
1035 Gutter.MouseActions = <> 1036 Gutter.MouseActions = <>
1036 RightGutter.Width = 0 1037 RightGutter.Width = 0
1037 RightGutter.MouseActions = <> 1038 RightGutter.MouseActions = <>
1038 InsertCaret = ctHalfBlock 1039 Highlighter = SynAnySyn1
1040 InsertCaret = ctBlock
1039 Keystrokes = < 1041 Keystrokes = <
1040 item 1042 item
1041 Command = ecUp 1043 Command = ecUp
@@ -1486,11 +1488,11 @@ object frmTracker: TfrmTracker
1486 LineHighlightColor.Foreground = clNone 1488 LineHighlightColor.Foreground = clNone
1487 inline SynLeftGutterPartList1: TSynGutterPartList 1489 inline SynLeftGutterPartList1: TSynGutterPartList
1488 object SynGutterMarks1: TSynGutterMarks 1490 object SynGutterMarks1: TSynGutterMarks
1489 Width = 24 1491 Width = 42
1490 MouseActions = <> 1492 MouseActions = <>
1491 end 1493 end
1492 object SynGutterLineNumber1: TSynGutterLineNumber 1494 object SynGutterLineNumber1: TSynGutterLineNumber
1493 Width = 17 1495 Width = 29
1494 MouseActions = <> 1496 MouseActions = <>
1495 MarkupInfo.Background = clBtnFace 1497 MarkupInfo.Background = clBtnFace
1496 MarkupInfo.Foreground = clNone 1498 MarkupInfo.Foreground = clNone
@@ -1500,18 +1502,19 @@ object frmTracker: TfrmTracker
1500 LeadingZeros = False 1502 LeadingZeros = False
1501 end 1503 end
1502 object SynGutterChanges1: TSynGutterChanges 1504 object SynGutterChanges1: TSynGutterChanges
1503 Width = 4 1505 Width = 7
1504 MouseActions = <> 1506 MouseActions = <>
1505 ModifiedColor = 59900 1507 ModifiedColor = 59900
1506 SavedColor = clGreen 1508 SavedColor = clGreen
1507 end 1509 end
1508 object SynGutterSeparator1: TSynGutterSeparator 1510 object SynGutterSeparator1: TSynGutterSeparator
1509 Width = 2 1511 Width = 4
1510 MouseActions = <> 1512 MouseActions = <>
1511 MarkupInfo.Background = clWhite 1513 MarkupInfo.Background = clWhite
1512 MarkupInfo.Foreground = clGray 1514 MarkupInfo.Foreground = clGray
1513 end 1515 end
1514 object SynGutterCodeFolding1: TSynGutterCodeFolding 1516 object SynGutterCodeFolding1: TSynGutterCodeFolding
1517 Width = 18
1515 MouseActions = <> 1518 MouseActions = <>
1516 MarkupInfo.Background = clNone 1519 MarkupInfo.Background = clNone
1517 MarkupInfo.Foreground = clGray 1520 MarkupInfo.Foreground = clGray
@@ -1521,19 +1524,19 @@ object frmTracker: TfrmTracker
1521 end 1524 end
1522 end 1525 end
1523 object Label18: TLabel 1526 object Label18: TLabel
1524 Left = 8 1527 Left = 14
1525 Height = 15 1528 Height = 30
1526 Top = 16 1529 Top = 28
1527 Width = 41 1530 Width = 71
1528 Caption = 'Routine' 1531 Caption = 'Routine'
1529 ParentColor = False 1532 ParentColor = False
1530 ParentFont = False 1533 ParentFont = False
1531 end 1534 end
1532 object RoutineNumberSpinner: TSpinEdit 1535 object RoutineNumberSpinner: TSpinEdit
1533 Left = 64 1536 Left = 112
1534 Height = 23 1537 Height = 38
1535 Top = 8 1538 Top = 14
1536 Width = 176 1539 Width = 308
1537 Enabled = False 1540 Enabled = False
1538 MaxValue = 15 1541 MaxValue = 15
1539 MinValue = 1 1542 MinValue = 1
@@ -1542,10 +1545,10 @@ object frmTracker: TfrmTracker
1542 Value = 1 1545 Value = 1
1543 end 1546 end
1544 object Label19: TLabel 1547 object Label19: TLabel
1545 Left = 8 1548 Left = 14
1546 Height = 75 1549 Height = 150
1547 Top = 40 1550 Top = 70
1548 Width = 506 1551 Width = 891
1549 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!' 1552 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!'
1550 ParentColor = False 1553 ParentColor = False
1551 ParentFont = False 1554 ParentFont = False
@@ -1555,22 +1558,22 @@ object frmTracker: TfrmTracker
1555 end 1558 end
1556 object Panel2: TPanel 1559 object Panel2: TPanel
1557 Left = 0 1560 Left = 0
1558 Height = 178 1561 Height = 312
1559 Top = 25 1562 Top = 41
1560 Width = 1166 1563 Width = 2040
1561 Align = alTop 1564 Align = alTop
1562 BevelOuter = bvNone 1565 BevelOuter = bvNone
1563 ChildSizing.HorizontalSpacing = 10 1566 ChildSizing.HorizontalSpacing = 10
1564 ClientHeight = 178 1567 ClientHeight = 312
1565 ClientWidth = 1166 1568 ClientWidth = 2040
1566 ParentFont = False 1569 ParentFont = False
1567 TabOrder = 3 1570 TabOrder = 3
1568 object LEDMeter1: TLEDMeter 1571 object LEDMeter1: TLEDMeter
1569 AnchorSideRight.Side = asrBottom 1572 AnchorSideRight.Side = asrBottom
1570 Left = 721 1573 Left = 1261
1571 Height = 178 1574 Height = 312
1572 Top = 0 1575 Top = 0
1573 Width = 50 1576 Width = 88
1574 Anchors = [akTop, akRight] 1577 Anchors = [akTop, akRight]
1575 BevelStyle = bvLowered 1578 BevelStyle = bvLowered
1576 Colors.Border = clBlack 1579 Colors.Border = clBlack
@@ -1591,10 +1594,10 @@ object frmTracker: TfrmTracker
1591 end 1594 end
1592 object LEDMeter2: TLEDMeter 1595 object LEDMeter2: TLEDMeter
1593 AnchorSideRight.Side = asrBottom 1596 AnchorSideRight.Side = asrBottom
1594 Left = 671 1597 Left = 1173
1595 Height = 178 1598 Height = 312
1596 Top = 0 1599 Top = 0
1597 Width = 50 1600 Width = 88
1598 Anchors = [akTop, akRight] 1601 Anchors = [akTop, akRight]
1599 BevelStyle = bvLowered 1602 BevelStyle = bvLowered
1600 Colors.Border = clBlack 1603 Colors.Border = clBlack
@@ -1614,49 +1617,49 @@ object frmTracker: TfrmTracker
1614 Section3Value = 80 1617 Section3Value = 80
1615 end 1618 end
1616 object Panel6: TPanel 1619 object Panel6: TPanel
1617 Left = 772 1620 Left = 1350
1618 Height = 178 1621 Height = 312
1619 Top = 0 1622 Top = 0
1620 Width = 394 1623 Width = 690
1621 Align = alRight 1624 Align = alRight
1622 AutoSize = True 1625 AutoSize = True
1623 BevelOuter = bvNone 1626 BevelOuter = bvNone
1624 ClientHeight = 178 1627 ClientHeight = 312
1625 ClientWidth = 394 1628 ClientWidth = 690
1626 ParentFont = False 1629 ParentFont = False
1627 TabOrder = 0 1630 TabOrder = 0
1628 object Duty1Visualizer: TPaintBox 1631 object Duty1Visualizer: TPaintBox
1629 Left = 0 1632 Left = 0
1630 Height = 89 1633 Height = 156
1631 Top = 0 1634 Top = 0
1632 Width = 197 1635 Width = 345
1633 ParentFont = False 1636 ParentFont = False
1634 OnClick = Duty1VisualizerClick 1637 OnClick = Duty1VisualizerClick
1635 OnPaint = Duty1VisualizerPaint 1638 OnPaint = Duty1VisualizerPaint
1636 end 1639 end
1637 object Duty2Visualizer: TPaintBox 1640 object Duty2Visualizer: TPaintBox
1638 Left = 197 1641 Left = 345
1639 Height = 89 1642 Height = 156
1640 Top = 0 1643 Top = 0
1641 Width = 197 1644 Width = 345
1642 ParentFont = False 1645 ParentFont = False
1643 OnClick = Duty1VisualizerClick 1646 OnClick = Duty1VisualizerClick
1644 OnPaint = Duty2VisualizerPaint 1647 OnPaint = Duty2VisualizerPaint
1645 end 1648 end
1646 object WaveVisualizer: TPaintBox 1649 object WaveVisualizer: TPaintBox
1647 Left = 0 1650 Left = 0
1648 Height = 89 1651 Height = 156
1649 Top = 87 1652 Top = 152
1650 Width = 197 1653 Width = 345
1651 ParentFont = False 1654 ParentFont = False
1652 OnClick = Duty1VisualizerClick 1655 OnClick = Duty1VisualizerClick
1653 OnPaint = WaveVisualizerPaint 1656 OnPaint = WaveVisualizerPaint
1654 end 1657 end
1655 object NoiseVisualizer: TPaintBox 1658 object NoiseVisualizer: TPaintBox
1656 Left = 197 1659 Left = 345
1657 Height = 89 1660 Height = 156
1658 Top = 87 1661 Top = 152
1659 Width = 197 1662 Width = 345
1660 ParentFont = False 1663 ParentFont = False
1661 OnClick = Duty1VisualizerClick 1664 OnClick = Duty1VisualizerClick
1662 OnPaint = NoiseVisualizerPaint 1665 OnPaint = NoiseVisualizerPaint
@@ -1665,19 +1668,19 @@ object frmTracker: TfrmTracker
1665 end 1668 end
1666 object StatusBar1: TStatusBar 1669 object StatusBar1: TStatusBar
1667 Left = 0 1670 Left = 0
1668 Height = 23 1671 Height = 43
1669 Top = 643 1672 Top = 1123
1670 Width = 1166 1673 Width = 2040
1671 AutoHint = True 1674 AutoHint = True
1672 Panels = < 1675 Panels = <
1673 item 1676 item
1674 Width = 467 1677 Width = 817
1675 end 1678 end
1676 item 1679 item
1677 Width = 200 1680 Width = 350
1678 end 1681 end
1679 item 1682 item
1680 Width = 200 1683 Width = 350
1681 end> 1684 end>
1682 ParentFont = False 1685 ParentFont = False
1683 ParentShowHint = False 1686 ParentShowHint = False
@@ -1686,9 +1689,9 @@ object frmTracker: TfrmTracker
1686 end 1689 end
1687 object ToolBar1: TToolBar 1690 object ToolBar1: TToolBar
1688 Left = 0 1691 Left = 0
1689 Height = 25 1692 Height = 41
1690 Top = 0 1693 Top = 0
1691 Width = 1166 1694 Width = 2040
1692 AutoSize = True 1695 AutoSize = True
1693 Caption = 'ToolBar1' 1696 Caption = 'ToolBar1'
1694 EdgeBorders = [ebBottom] 1697 EdgeBorders = [ebBottom]
@@ -1705,7 +1708,7 @@ object frmTracker: TfrmTracker
1705 ParentShowHint = False 1708 ParentShowHint = False
1706 end 1709 end
1707 object PanicToolButton: TToolButton 1710 object PanicToolButton: TToolButton
1708 Left = 557 1711 Left = 851
1709 Hint = 'Stops all sound output' 1712 Hint = 'Stops all sound output'
1710 Top = 0 1713 Top = 0
1711 AutoSize = True 1714 AutoSize = True
@@ -1716,21 +1719,21 @@ object frmTracker: TfrmTracker
1716 ShowHint = True 1719 ShowHint = True
1717 end 1720 end
1718 object ToolButton2: TToolButton 1721 object ToolButton2: TToolButton
1719 Left = 147 1722 Left = 221
1720 Top = 0 1723 Top = 0
1721 Caption = '▶️ Cursor' 1724 Caption = '▶️ Cursor'
1722 ImageIndex = 75 1725 ImageIndex = 75
1723 OnClick = ToolButton2Click 1726 OnClick = ToolButton2Click
1724 end 1727 end
1725 object ToolButton4: TToolButton 1728 object ToolButton4: TToolButton
1726 Left = 221 1729 Left = 331
1727 Top = 0 1730 Top = 0
1728 Caption = '⏹ Stop' 1731 Caption = '⏹ Stop'
1729 ImageIndex = 73 1732 ImageIndex = 73
1730 OnClick = ToolButton4Click 1733 OnClick = ToolButton4Click
1731 end 1734 end
1732 object ExportGBButton: TToolButton 1735 object ExportGBButton: TToolButton
1733 Left = 291 1736 Left = 442
1734 Top = 0 1737 Top = 0
1735 AutoSize = True 1738 AutoSize = True
1736 Caption = 'Export .GB' 1739 Caption = 'Export .GB'
@@ -1738,67 +1741,67 @@ object frmTracker: TfrmTracker
1738 OnClick = ExportGBButtonClick 1741 OnClick = ExportGBButtonClick
1739 end 1742 end
1740 object ToolButton8: TToolButton 1743 object ToolButton8: TToolButton
1741 Left = 79 1744 Left = 120
1742 Height = 22 1745 Height = 39
1743 Top = 0 1746 Top = 0
1744 Caption = 'ToolButton8' 1747 Caption = 'ToolButton8'
1745 Style = tbsDivider 1748 Style = tbsDivider
1746 end 1749 end
1747 object ToolButton6: TToolButton 1750 object ToolButton6: TToolButton
1748 Left = 286 1751 Left = 433
1749 Height = 22 1752 Height = 39
1750 Top = 0 1753 Top = 0
1751 Caption = 'ToolButton6' 1754 Caption = 'ToolButton6'
1752 Style = tbsDivider 1755 Style = tbsDivider
1753 end 1756 end
1754 object ToolButton7: TToolButton 1757 object ToolButton7: TToolButton
1755 Left = 1122 1758 Left = 1827
1756 Height = 22 1759 Height = 39
1757 Top = 0 1760 Top = 0
1758 Caption = 'ToolButton7' 1761 Caption = 'ToolButton7'
1759 Style = tbsSeparator 1762 Style = tbsSeparator
1760 end 1763 end
1761 object OctaveSpinEdit: TSpinEdit 1764 object OctaveSpinEdit: TSpinEdit
1762 Left = 663 1765 Left = 1018
1763 Height = 23 1766 Height = 38
1764 Top = 0 1767 Top = 0
1765 Width = 90 1768 Width = 158
1766 MaxValue = 5 1769 MaxValue = 5
1767 OnChange = OctaveSpinEditChange 1770 OnChange = OctaveSpinEditChange
1768 ParentFont = False 1771 ParentFont = False
1769 TabOrder = 0 1772 TabOrder = 0
1770 end 1773 end
1771 object ToolButton9: TToolButton 1774 object ToolButton9: TToolButton
1772 Left = 612 1775 Left = 927
1773 Height = 22 1776 Height = 39
1774 Top = 0 1777 Top = 0
1775 Caption = 'ToolButton9' 1778 Caption = 'ToolButton9'
1776 Style = tbsSeparator 1779 Style = tbsSeparator
1777 end 1780 end
1778 object Label22: TLabel 1781 object Label22: TLabel
1779 Left = 620 1782 Left = 941
1780 Height = 15 1783 Height = 30
1781 Top = 0 1784 Top = 0
1782 Width = 43 1785 Width = 77
1783 Caption = 'Octave ' 1786 Caption = 'Octave '
1784 ParentColor = False 1787 ParentColor = False
1785 ParentFont = False 1788 ParentFont = False
1786 end 1789 end
1787 object Label23: TLabel 1790 object Label23: TLabel
1788 Left = 753 1791 Left = 1176
1789 Height = 15 1792 Height = 30
1790 Top = 0 1793 Top = 0
1791 Width = 70 1794 Width = 125
1792 Caption = ' Instrument ' 1795 Caption = ' Instrument '
1793 ParentColor = False 1796 ParentColor = False
1794 ParentFont = False 1797 ParentFont = False
1795 end 1798 end
1796 object InstrumentComboBox: TComboBox 1799 object InstrumentComboBox: TComboBox
1797 Left = 823 1800 Left = 1301
1798 Height = 23 1801 Height = 38
1799 Top = 0 1802 Top = 0
1800 Width = 214 1803 Width = 374
1801 ItemHeight = 15 1804 ItemHeight = 30
1802 ItemIndex = 0 1805 ItemIndex = 0
1803 Items.Strings = ( 1806 Items.Strings = (
1804 '(no instrument)' 1807 '(no instrument)'
@@ -1825,47 +1828,47 @@ object frmTracker: TfrmTracker
1825 Text = '(no instrument)' 1828 Text = '(no instrument)'
1826 end 1829 end
1827 object Label24: TLabel 1830 object Label24: TLabel
1828 Left = 1037 1831 Left = 1675
1829 Height = 15 1832 Height = 30
1830 Top = 0 1833 Top = 0
1831 Width = 35 1834 Width = 64
1832 Caption = ' Step ' 1835 Caption = ' Step '
1833 ParentColor = False 1836 ParentColor = False
1834 ParentFont = False 1837 ParentFont = False
1835 end 1838 end
1836 object StepSpinEdit: TSpinEdit 1839 object StepSpinEdit: TSpinEdit
1837 Left = 1072 1840 Left = 1739
1838 Height = 23 1841 Height = 38
1839 Top = 0 1842 Top = 0
1840 Width = 50 1843 Width = 88
1841 MaxValue = 63 1844 MaxValue = 63
1842 OnChange = StepSpinEditChange 1845 OnChange = StepSpinEditChange
1843 ParentFont = False 1846 ParentFont = False
1844 TabOrder = 2 1847 TabOrder = 2
1845 end 1848 end
1846 object ToolButton3: TToolButton 1849 object ToolButton3: TToolButton
1847 Left = 84 1850 Left = 129
1848 Top = 0 1851 Top = 0
1849 Caption = '▶️ Start' 1852 Caption = '▶️ Start'
1850 ImageIndex = 74 1853 ImageIndex = 74
1851 OnClick = ToolButton3Click 1854 OnClick = ToolButton3Click
1852 end 1855 end
1853 object ExportGBSButton: TToolButton 1856 object ExportGBSButton: TToolButton
1854 Left = 372 1857 Left = 564
1855 Top = 0 1858 Top = 0
1856 Caption = 'Export .GBS' 1859 Caption = 'Export .GBS'
1857 ImageIndex = 76 1860 ImageIndex = 76
1858 OnClick = ExportGBSButtonClick 1861 OnClick = ExportGBSButtonClick
1859 end 1862 end
1860 object ToolButton5: TToolButton 1863 object ToolButton5: TToolButton
1861 Left = 552 1864 Left = 842
1862 Height = 22 1865 Height = 39
1863 Top = 0 1866 Top = 0
1864 Caption = 'ToolButton5' 1867 Caption = 'ToolButton5'
1865 Style = tbsDivider 1868 Style = tbsDivider
1866 end 1869 end
1867 object ToolButton10: TToolButton 1870 object ToolButton10: TToolButton
1868 Left = 459 1871 Left = 697
1869 Top = 0 1872 Top = 0
1870 Caption = 'Render Song' 1873 Caption = 'Render Song'
1871 ImageIndex = 77 1874 ImageIndex = 77
@@ -1874,8 +1877,8 @@ object frmTracker: TfrmTracker
1874 end 1877 end
1875 object MainMenu1: TMainMenu 1878 object MainMenu1: TMainMenu
1876 Images = ImageList1 1879 Images = ImageList1
1877 left = 544 1880 left = 952
1878 top = 37 1881 top = 65
1879 object MenuItem1: TMenuItem 1882 object MenuItem1: TMenuItem
1880 Caption = 'File' 1883 Caption = 'File'
1881 object MenuItem33: TMenuItem 1884 object MenuItem33: TMenuItem
@@ -1982,8 +1985,8 @@ object frmTracker: TfrmTracker
1982 end 1985 end
1983 object ActionList1: TActionList 1986 object ActionList1: TActionList
1984 Images = ImageList1 1987 Images = ImageList1
1985 left = 640 1988 left = 1120
1986 top = 37 1989 top = 65
1987 object FileOpen1: TFileOpen 1990 object FileOpen1: TFileOpen
1988 Category = 'File' 1991 Category = 'File'
1989 Caption = '&Open ...' 1992 Caption = '&Open ...'
@@ -2087,8 +2090,8 @@ object frmTracker: TfrmTracker
2087 end 2090 end
2088 end 2091 end
2089 object ImageList1: TImageList 2092 object ImageList1: TImageList
2090 left = 306 2093 left = 536
2091 top = 41 2094 top = 72
2092 Bitmap = { 2095 Bitmap = {
2093 4C694E0000001000000010000000000000000000000000000000000000000000 2096 4C694E0000001000000010000000000000000000000000000000000000000000
2094 0000000000000000000000000000000000000000000000000000000000000000 2097 0000000000000000000000000000000000000000000000000000000000000000
@@ -4591,17 +4594,17 @@ object frmTracker: TfrmTracker
4591 end 4594 end
4592 object OpenDialog1: TOpenDialog 4595 object OpenDialog1: TOpenDialog
4593 Filter = 'hUGETracker Instruments|*.ugi' 4596 Filter = 'hUGETracker Instruments|*.ugi'
4594 left = 576 4597 left = 1008
4595 top = 96 4598 top = 168
4596 end 4599 end
4597 object InstrumentSaveDialog: TSaveDialog 4600 object InstrumentSaveDialog: TSaveDialog
4598 Filter = 'hUGETracker Instruments|*.ugi' 4601 Filter = 'hUGETracker Instruments|*.ugi'
4599 left = 494 4602 left = 865
4600 top = 41 4603 top = 72
4601 end 4604 end
4602 object OrderEditPopup: TPopupMenu 4605 object OrderEditPopup: TPopupMenu
4603 left = 366 4606 left = 641
4604 top = 46 4607 top = 81
4605 object MenuItem17: TMenuItem 4608 object MenuItem17: TMenuItem
4606 Caption = 'Insert new row' 4609 Caption = 'Insert new row'
4607 Hint = 'Insert a new row filled with brand new patterns' 4610 Hint = 'Insert a new row filled with brand new patterns'
@@ -4632,8 +4635,8 @@ object frmTracker: TfrmTracker
4632 object ImageList2: TImageList 4635 object ImageList2: TImageList
4633 Height = 32 4636 Height = 32
4634 Width = 32 4637 Width = 32
4635 left = 302 4638 left = 529
4636 top = 114 4639 top = 200
4637 Bitmap = { 4640 Bitmap = {
4638 4C69020000002000000020000000000000000000000000000000000000000000 4641 4C69020000002000000020000000000000000000000000000000000000000000
4639 0000000000000000000000000000000000000000000000000000000000000000 4642 0000000000000000000000000000000000000000000000000000000000000000
@@ -4898,33 +4901,33 @@ object frmTracker: TfrmTracker
4898 Enabled = False 4901 Enabled = False
4899 Interval = 200 4902 Interval = 200
4900 OnTimer = OscilloscopeUpdateTimerTimer 4903 OnTimer = OscilloscopeUpdateTimerTimer
4901 left = 434 4904 left = 760
4902 top = 41 4905 top = 72
4903 end 4906 end
4904 object GBSSaveDialog: TSaveDialog 4907 object GBSSaveDialog: TSaveDialog
4905 Filter = 'Gameboy Soundtrack|*.gbs' 4908 Filter = 'Gameboy Soundtrack|*.gbs'
4906 left = 590 4909 left = 1033
4907 top = 37 4910 top = 65
4908 end 4911 end
4909 object WaveSaveDialog: TSaveDialog 4912 object WaveSaveDialog: TSaveDialog
4910 Filter = 'hUGETracker Waves|*.ugw' 4913 Filter = 'hUGETracker Waves|*.ugw'
4911 left = 520 4914 left = 910
4912 top = 112 4915 top = 196
4913 end 4916 end
4914 object GBSaveDialog: TSaveDialog 4917 object GBSaveDialog: TSaveDialog
4915 Filter = 'Gameboy ROM|*.GB' 4918 Filter = 'Gameboy ROM|*.GB'
4916 left = 434 4919 left = 760
4917 top = 101 4920 top = 177
4918 end 4921 end
4919 object NoteHaltTimer: TTimer 4922 object NoteHaltTimer: TTimer
4920 Enabled = False 4923 Enabled = False
4921 OnTimer = NoteHaltTimerTimer 4924 OnTimer = NoteHaltTimerTimer
4922 left = 366 4925 left = 641
4923 top = 114 4926 top = 200
4924 end 4927 end
4925 object TrackerGridPopup: TPopupMenu 4928 object TrackerGridPopup: TPopupMenu
4926 left = 640 4929 left = 1120
4927 top = 91 4930 top = 159
4928 object TrackerPopupEditEffect: TMenuItem 4931 object TrackerPopupEditEffect: TMenuItem
4929 Caption = 'Edit effect ...' 4932 Caption = 'Edit effect ...'
4930 OnClick = TrackerPopupEditEffectClick 4933 OnClick = TrackerPopupEditEffectClick
@@ -5017,7 +5020,132 @@ object frmTracker: TfrmTracker
5017 object WavSaveDialog: TSaveDialog 5020 object WavSaveDialog: TSaveDialog
5018 DefaultExt = '.wav' 5021 DefaultExt = '.wav'
5019 Filter = 'Wave files|*.wav' 5022 Filter = 'Wave files|*.wav'
5020 left = 232 5023 left = 406
5021 top = 46 5024 top = 81
5025 end
5026 object SynAnySyn1: TSynAnySyn
5027 Enabled = False
5028 CommentAttri.Foreground = clGreen
5029 Comments = [csAsmStyle]
5030 DetectPreprocessor = False
5031 IdentifierChars = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz'
5032 KeyWords.Strings = (
5033 ''
5034 'A'
5035 'ADC'
5036 'ADD'
5037 'AF'
5038 'AND'
5039 'B'
5040 'BC'
5041 'BIT'
5042 'C'
5043 'CALL'
5044 'CCF'
5045 'CP'
5046 'CPD'
5047 'CPDR'
5048 'CPI'
5049 'CPIR'
5050 'CPL'
5051 'D'
5052 'DAA'
5053 'DB'
5054 'DE'
5055 'DEC'
5056 'DI'
5057 'DJNZ'
5058 'DS'
5059 'DW'
5060 'E'
5061 'EI'
5062 'ENDM'
5063 'ENDR'
5064 'EQU'
5065 'EX'
5066 'EXX'
5067 'H'
5068 'HALT'
5069 'HL'
5070 'IF'
5071 'IM'
5072 'IN'
5073 'INC'
5074 'INCLUDE'
5075 'IND'
5076 'INDR'
5077 'INI'
5078 'INIR'
5079 'IX'
5080 'IY'
5081 'JP'
5082 'JR'
5083 'L'
5084 'LD'
5085 'LDD'
5086 'LDDR'
5087 'LDI'
5088 'LDIR'
5089 'M'
5090 'MACRO'
5091 'MLT'
5092 'NC'
5093 'NEG'
5094 'NOP'
5095 'NZ'
5096 'OR'
5097 'OTDM'
5098 'OTDMR'
5099 'OTDR'
5100 'OTIM'
5101 'OTIMR'
5102 'OTIR'
5103 'OUT'
5104 'OUTD'
5105 'OUTI'
5106 'PC'
5107 'POP'
5108 'PUSH'
5109 'REPT'
5110 'RES'
5111 'RET'
5112 'RETI'
5113 'RETN'
5114 'RL'
5115 'RLA'
5116 'RLC'
5117 'RLCA'
5118 'RLD'
5119 'RR'
5120 'RRA'
5121 'RRC'
5122 'RRCA'
5123 'RRD'
5124 'RST'
5125 'SBC'
5126 'SCF'
5127 'SECTION'
5128 'SET'
5129 'SLA'
5130 'SLP'
5131 'SP'
5132 'SRA'
5133 'SRL'
5134 'SUB'
5135 'SWAP'
5136 'TST'
5137 'TSTIO'
5138 'XOR'
5139 'Z'
5140 )
5141 NumberAttri.Foreground = 10485760
5142 StringAttri.Foreground = clRed
5143 StringDelim = sdDoubleQuote
5144 Markup = False
5145 Entity = False
5146 DollarVariables = False
5147 ActiveDot = False
5148 left = 400
5149 top = 200
5022 end 5150 end
5023 end 5151 end
Modifiedtracker.pas +6−5
@@ -6,11 +6,11 @@ interface
6 6
7 uses 7 uses
8 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, ComCtrls, 8 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, ComCtrls,
9 Menus, Spin, StdCtrls, ActnList, StdActns, SynEdit, math, Instruments, Waves, 9 Menus, Spin, StdCtrls, ActnList, StdActns, SynEdit, SynHighlighterAny, math,
10 Song, EmulationThread, Utils, Constants, sound, vars, machine, 10 Instruments, Waves, Song, EmulationThread, Utils, Constants, sound, vars,
11 about_hugetracker, TrackerGrid, lclintf, lmessages, Buttons, Grids, DBCtrls, 11 machine, about_hugetracker, TrackerGrid, lclintf, lmessages, Buttons, Grids,
12 HugeDatatypes, LCLType, RackCtls, Codegen, SymParser, options, IniFiles, 12 DBCtrls, HugeDatatypes, LCLType, RackCtls, Codegen, SymParser, options,
13 bgrabitmap, effecteditor, RenderToWave; 13 IniFiles, bgrabitmap, effecteditor, RenderToWave;
14 14
15 type 15 type
16 { TfrmTracker } 16 { TfrmTracker }
@@ -40,6 +40,7 @@ type
40 MenuItem33: TMenuItem; 40 MenuItem33: TMenuItem;
41 NoiseVisualizer: TPaintBox; 41 NoiseVisualizer: TPaintBox;
42 Panel6: TPanel; 42 Panel6: TPanel;
43 SynAnySyn1: TSynAnySyn;
43 WavSaveDialog: TSaveDialog; 44 WavSaveDialog: TSaveDialog;
44 ToolButton10: TToolButton; 45 ToolButton10: TToolButton;
45 TrackerPopupEditEffect: TMenuItem; 46 TrackerPopupEditEffect: TMenuItem;
Modifiedtrackergrid.pas +3−3
@@ -610,8 +610,8 @@ begin
610 Inc(Pos.Y) 610 Inc(Pos.Y)
611 end; 611 end;
612 612
613 Invalidate 613 Invalidate;
614 SaveUndoState; 614 SaveUndoState
615 end; 615 end;
616 616
617 procedure TTrackerGrid.OpenEffectEditor; 617 procedure TTrackerGrid.OpenEffectEditor;
@@ -620,7 +620,7 @@ begin
620 frmEffectEditor.ShowModal; 620 frmEffectEditor.ShowModal;
621 621
622 Invalidate; 622 Invalidate;
623 SaveUndoState; 623 SaveUndoState
624 end; 624 end;
625 625
626 procedure TTrackerGrid.EraseSelection; 626 procedure TTrackerGrid.EraseSelection;