Commit d7de33d

Nick committed on
Remove some dead code
commit d7de33d637012e8324a2a19e20eebbd3cb788fc8 parent 57592af
3 changed files +397−413
ModifiedhUGEDriver +1−1
@@ -1 +1 @@
1 Subproject commit a193a22b9314aa53fdca105eccf3e4fedff0cb98 1 Subproject commit 00a523e809bf2bf92d3ebc9ad674c2ab879ce96d
Modifiedtracker.lfm +396−395
@@ -1,12 +1,13 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 1941 2 Left = 929
3 Height = 643 3 Height = 1142
4 Top = 294 4 Top = 195
5 Width = 1269 5 Width = 2156
6 AllowDropFiles = True 6 AllowDropFiles = True
7 Caption = 'hUGETracker' 7 Caption = 'hUGETracker'
8 ClientHeight = 623 8 ClientHeight = 1108
9 ClientWidth = 1269 9 ClientWidth = 2156
10 DesignTimePPI = 168
10 KeyPreview = True 11 KeyPreview = True
11 Menu = MainMenu1 12 Menu = MainMenu1
12 OnCloseQuery = FormCloseQuery 13 OnCloseQuery = FormCloseQuery
@@ -20,9 +21,9 @@ object frmTracker: TfrmTracker
20 LCLVersion = '2.0.9.0' 21 LCLVersion = '2.0.9.0'
21 object TreeView1: TTreeView 22 object TreeView1: TTreeView
22 Left = 0 23 Left = 0
23 Height = 511 24 Height = 912
24 Top = 89 25 Top = 153
25 Width = 193 26 Width = 338
26 Align = alLeft 27 Align = alLeft
27 ParentFont = False 28 ParentFont = False
28 ReadOnly = True 29 ReadOnly = True
@@ -40,27 +41,27 @@ object frmTracker: TfrmTracker
40 } 41 }
41 end 42 end
42 object Splitter1: TSplitter 43 object Splitter1: TSplitter
43 Left = 193 44 Left = 338
44 Height = 511 45 Height = 912
45 Top = 89 46 Top = 153
46 Width = 5 47 Width = 9
47 end 48 end
48 object Panel1: TPanel 49 object Panel1: TPanel
49 Left = 198 50 Left = 347
50 Height = 511 51 Height = 912
51 Top = 89 52 Top = 153
52 Width = 1071 53 Width = 1809
53 Align = alClient 54 Align = alClient
54 BevelOuter = bvNone 55 BevelOuter = bvNone
55 ClientHeight = 511 56 ClientHeight = 912
56 ClientWidth = 1071 57 ClientWidth = 1809
57 ParentFont = False 58 ParentFont = False
58 TabOrder = 2 59 TabOrder = 2
59 object PageControl1: TPageControl 60 object PageControl1: TPageControl
60 Left = 0 61 Left = 0
61 Height = 511 62 Height = 912
62 Top = 0 63 Top = 0
63 Width = 1071 64 Width = 1809
64 ActivePage = PatternTabSheet 65 ActivePage = PatternTabSheet
65 Align = alClient 66 Align = alClient
66 ParentFont = False 67 ParentFont = False
@@ -72,68 +73,68 @@ object frmTracker: TfrmTracker
72 ClientWidth = 1063 73 ClientWidth = 1063
73 ParentFont = False 74 ParentFont = False
74 object SongInformationGroupbox: TGroupBox 75 object SongInformationGroupbox: TGroupBox
75 Left = 8 76 Left = 14
76 Height = 136 77 Height = 238
77 Top = 8 78 Top = 14
78 Width = 305 79 Width = 534
79 Caption = 'Song information' 80 Caption = 'Song information'
80 ClientHeight = 116 81 ClientHeight = 203
81 ClientWidth = 301 82 ClientWidth = 530
82 ParentFont = False 83 ParentFont = False
83 TabOrder = 0 84 TabOrder = 0
84 object Label15: TLabel 85 object Label15: TLabel
85 Left = 8 86 Left = 14
86 Height = 15 87 Height = 15
87 Top = 16 88 Top = 28
88 Width = 27 89 Width = 27
89 Caption = 'Song' 90 Caption = 'Song'
90 ParentColor = False 91 ParentColor = False
91 ParentFont = False 92 ParentFont = False
92 end 93 end
93 object Label16: TLabel 94 object Label16: TLabel
94 Left = 7 95 Left = 12
95 Height = 15 96 Height = 15
96 Top = 48 97 Top = 84
97 Width = 28 98 Width = 28
98 Caption = 'Artist' 99 Caption = 'Artist'
99 ParentColor = False 100 ParentColor = False
100 ParentFont = False 101 ParentFont = False
101 end 102 end
102 object SongEdit: TEdit 103 object SongEdit: TEdit
103 Left = 56 104 Left = 98
104 Height = 23 105 Height = 23
105 Hint = 'The name of your composition' 106 Hint = 'The name of your composition'
106 Top = 8 107 Top = 14
107 Width = 216 108 Width = 378
108 OnChange = SongEditChange 109 OnChange = SongEditChange
109 ParentFont = False 110 ParentFont = False
110 TabOrder = 0 111 TabOrder = 0
111 end 112 end
112 object ArtistEdit: TEdit 113 object ArtistEdit: TEdit
113 Left = 56 114 Left = 98
114 Height = 23 115 Height = 23
115 Hint = 'Your name or handle' 116 Hint = 'Your name or handle'
116 Top = 40 117 Top = 70
117 Width = 216 118 Width = 378
118 OnChange = ArtistEditChange 119 OnChange = ArtistEditChange
119 ParentFont = False 120 ParentFont = False
120 TabOrder = 1 121 TabOrder = 1
121 end 122 end
122 object Label21: TLabel 123 object Label21: TLabel
123 Left = 8 124 Left = 14
124 Height = 15 125 Height = 15
125 Top = 78 126 Top = 136
126 Width = 114 127 Width = 114
127 Caption = 'Tempo (ticks per row)' 128 Caption = 'Tempo (ticks per row)'
128 ParentColor = False 129 ParentColor = False
129 ParentFont = False 130 ParentFont = False
130 end 131 end
131 object TicksPerRowSpinEdit: TSpinEdit 132 object TicksPerRowSpinEdit: TSpinEdit
132 Left = 133 133 Left = 233
133 Height = 23 134 Height = 23
134 Hint = 'How many ticks should happen before the row changes. Higher means slower' 135 Hint = 'How many ticks should happen before the row changes. Higher means slower'
135 Top = 73 136 Top = 128
136 Width = 50 137 Width = 88
137 MaxValue = 20 138 MaxValue = 20
138 MinValue = 1 139 MinValue = 1
139 OnChange = TicksPerRowSpinEditChange 140 OnChange = TicksPerRowSpinEditChange
@@ -145,59 +146,59 @@ object frmTracker: TfrmTracker
145 end 146 end
146 object PatternTabSheet: TTabSheet 147 object PatternTabSheet: TTabSheet
147 Caption = 'Patterns' 148 Caption = 'Patterns'
148 ClientHeight = 483 149 ClientHeight = 869
149 ClientWidth = 1063 150 ClientWidth = 1801
150 ParentFont = False 151 ParentFont = False
151 object Panel3: TPanel 152 object Panel3: TPanel
152 Left = 224 153 Left = 392
153 Height = 483 154 Height = 869
154 Top = 0 155 Top = 0
155 Width = 839 156 Width = 1409
156 Align = alClient 157 Align = alClient
157 ClientHeight = 483 158 ClientHeight = 869
158 ClientWidth = 839 159 ClientWidth = 1409
159 ParentFont = False 160 ParentFont = False
160 TabOrder = 0 161 TabOrder = 0
161 object HeaderControl1: THeaderControl 162 object HeaderControl1: THeaderControl
162 Left = 1 163 Left = 1
163 Height = 30 164 Height = 52
164 Hint = 'Left click to mute, right click to solo' 165 Hint = 'Left click to mute, right click to solo'
165 Top = 1 166 Top = 1
166 Width = 837 167 Width = 1407
167 DragReorder = False 168 DragReorder = False
168 Images = ImageList2 169 Images = ImageList2
169 Sections = < 170 Sections = <
170 item 171 item
171 Alignment = taLeftJustify 172 Alignment = taLeftJustify
172 Width = 32 173 Width = 56
173 Visible = True 174 Visible = True
174 end 175 end
175 item 176 item
176 Alignment = taCenter 177 Alignment = taCenter
177 ImageIndex = 1 178 ImageIndex = 1
178 Text = 'Duty 1' 179 Text = 'Duty 1'
179 Width = 133 180 Width = 233
180 Visible = True 181 Visible = True
181 end 182 end
182 item 183 item
183 Alignment = taCenter 184 Alignment = taCenter
184 ImageIndex = 1 185 ImageIndex = 1
185 Text = 'Duty 2' 186 Text = 'Duty 2'
186 Width = 133 187 Width = 233
187 Visible = True 188 Visible = True
188 end 189 end
189 item 190 item
190 Alignment = taCenter 191 Alignment = taCenter
191 ImageIndex = 1 192 ImageIndex = 1
192 Text = 'Wave' 193 Text = 'Wave'
193 Width = 133 194 Width = 233
194 Visible = True 195 Visible = True
195 end 196 end
196 item 197 item
197 Alignment = taCenter 198 Alignment = taCenter
198 ImageIndex = 1 199 ImageIndex = 1
199 Text = 'Noise' 200 Text = 'Noise'
200 Width = 133 201 Width = 233
201 Visible = True 202 Visible = True
202 end> 203 end>
203 OnSectionClick = HeaderControl1SectionClick 204 OnSectionClick = HeaderControl1SectionClick
@@ -208,34 +209,33 @@ object frmTracker: TfrmTracker
208 end 209 end
209 object ScrollBox1: TScrollBox 210 object ScrollBox1: TScrollBox
210 Left = 1 211 Left = 1
211 Height = 451 212 Height = 815
212 Top = 31 213 Top = 53
213 Width = 837 214 Width = 1407
214 HorzScrollBar.Increment = 3 215 HorzScrollBar.Increment = 5
215 HorzScrollBar.Page = 32 216 HorzScrollBar.Page = 56
216 HorzScrollBar.Smooth = True 217 HorzScrollBar.Smooth = True
217 HorzScrollBar.Tracking = True 218 HorzScrollBar.Tracking = True
218 VertScrollBar.Increment = 5 219 VertScrollBar.Page = 88
219 VertScrollBar.Page = 50
220 VertScrollBar.Smooth = True 220 VertScrollBar.Smooth = True
221 VertScrollBar.Tracking = True 221 VertScrollBar.Tracking = True
222 Align = alClient 222 Align = alClient
223 BorderStyle = bsNone 223 BorderStyle = bsNone
224 ClientHeight = 451 224 ClientHeight = 815
225 ClientWidth = 837 225 ClientWidth = 1407
226 ParentFont = False 226 ParentFont = False
227 TabOrder = 1 227 TabOrder = 1
228 OnMouseWheelDown = ScrollBox1MouseWheelDown 228 OnMouseWheelDown = ScrollBox1MouseWheelDown
229 OnMouseWheelUp = ScrollBox1MouseWheelUp 229 OnMouseWheelUp = ScrollBox1MouseWheelUp
230 object RowNumberStringGrid: TStringGrid 230 object RowNumberStringGrid: TStringGrid
231 Left = 0 231 Left = 0
232 Height = 451 232 Height = 815
233 Top = 0 233 Top = 0
234 Width = 32 234 Width = 56
235 Align = alLeft 235 Align = alLeft
236 BorderStyle = bsNone 236 BorderStyle = bsNone
237 ColCount = 1 237 ColCount = 1
238 DefaultColWidth = 32 238 DefaultColWidth = 56
239 Enabled = False 239 Enabled = False
240 ParentFont = False 240 ParentFont = False
241 RowCount = 64 241 RowCount = 64
@@ -246,43 +246,43 @@ object frmTracker: TfrmTracker
246 end 246 end
247 object OrderEditStringGrid: TStringGrid 247 object OrderEditStringGrid: TStringGrid
248 Left = 0 248 Left = 0
249 Height = 483 249 Height = 869
250 Top = 0 250 Top = 0
251 Width = 224 251 Width = 392
252 Align = alLeft 252 Align = alLeft
253 AutoEdit = False 253 AutoEdit = False
254 AutoFillColumns = True 254 AutoFillColumns = True
255 Columns = < 255 Columns = <
256 item 256 item
257 Alignment = taCenter 257 Alignment = taCenter
258 MinSize = 33 258 MinSize = 58
259 MaxSize = 33 259 MaxSize = 58
260 Title.Caption = 'Dty1' 260 Title.Caption = 'Dty1'
261 Width = 34 261 Width = 61
262 end 262 end
263 item 263 item
264 Alignment = taCenter 264 Alignment = taCenter
265 MinSize = 33 265 MinSize = 58
266 MaxSize = 33 266 MaxSize = 58
267 Title.Caption = 'Dty2' 267 Title.Caption = 'Dty2'
268 Width = 34 268 Width = 61
269 end 269 end
270 item 270 item
271 Alignment = taCenter 271 Alignment = taCenter
272 MinSize = 33 272 MinSize = 58
273 MaxSize = 33 273 MaxSize = 58
274 Title.Caption = 'Wav' 274 Title.Caption = 'Wav'
275 Width = 34 275 Width = 61
276 end 276 end
277 item 277 item
278 Alignment = taCenter 278 Alignment = taCenter
279 MinSize = 33 279 MinSize = 58
280 MaxSize = 33 280 MaxSize = 58
281 Title.Caption = 'Nse' 281 Title.Caption = 'Nse'
282 Width = 37 282 Width = 63
283 end> 283 end>
284 DefaultColWidth = 17 284 DefaultColWidth = 30
285 DefaultRowHeight = 21 285 DefaultRowHeight = 37
286 ExtendedSelect = False 286 ExtendedSelect = False
287 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goRangeSelect, goRowMoving, goEditing, goTabs, goSmoothScroll, goFixedRowNumbering, goRowHighlight] 287 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goRangeSelect, goRowMoving, goEditing, goTabs, goSmoothScroll, goFixedRowNumbering, goRowHighlight]
288 ParentFont = False 288 ParentFont = False
@@ -302,11 +302,11 @@ object frmTracker: TfrmTracker
302 OnKeyDown = OrderEditStringGridKeyDown 302 OnKeyDown = OrderEditStringGridKeyDown
303 OnValidateEntry = OrderEditStringGridValidateEntry 303 OnValidateEntry = OrderEditStringGridValidateEntry
304 ColWidths = ( 304 ColWidths = (
305 64 305 112
306 34 306 61
307 34 307 61
308 34 308 61
309 37 309 63
310 ) 310 )
311 end 311 end
312 end 312 end
@@ -371,25 +371,25 @@ object frmTracker: TfrmTracker
371 TabOrder = 0 371 TabOrder = 0
372 object InstrumentGroupBox: TGroupBox 372 object InstrumentGroupBox: TGroupBox
373 Left = 7 373 Left = 7
374 Height = 241 374 Height = 422
375 Top = 7 375 Top = 7
376 Width = 271 376 Width = 474
377 Anchors = [] 377 Anchors = []
378 BorderSpacing.Left = 7 378 BorderSpacing.Left = 12
379 BorderSpacing.Top = 7 379 BorderSpacing.Top = 12
380 BorderSpacing.Right = 7 380 BorderSpacing.Right = 12
381 BorderSpacing.Bottom = 7 381 BorderSpacing.Bottom = 12
382 Caption = 'Instrument' 382 Caption = 'Instrument'
383 ClientHeight = 221 383 ClientHeight = 387
384 ClientWidth = 267 384 ClientWidth = 470
385 ParentFont = False 385 ParentFont = False
386 TabOrder = 0 386 TabOrder = 0
387 object InstrumentNumberSpinner: TSpinEdit 387 object InstrumentNumberSpinner: TSpinEdit
388 Left = 80 388 Left = 140
389 Height = 23 389 Height = 23
390 Hint = 'What instrument to edit' 390 Hint = 'What instrument to edit'
391 Top = 38 391 Top = 66
392 Width = 176 392 Width = 308
393 MaxValue = 15 393 MaxValue = 15
394 MinValue = 1 394 MinValue = 1
395 OnChange = InstrumentNumberSpinnerChange 395 OnChange = InstrumentNumberSpinnerChange
@@ -398,37 +398,37 @@ object frmTracker: TfrmTracker
398 Value = 1 398 Value = 1
399 end 399 end
400 object Label1: TLabel 400 object Label1: TLabel
401 Left = 8 401 Left = 14
402 Height = 15 402 Height = 15
403 Top = 46 403 Top = 80
404 Width = 58 404 Width = 58
405 Caption = 'Instrument' 405 Caption = 'Instrument'
406 ParentColor = False 406 ParentColor = False
407 ParentFont = False 407 ParentFont = False
408 end 408 end
409 object Label2: TLabel 409 object Label2: TLabel
410 Left = 8 410 Left = 14
411 Height = 15 411 Height = 15
412 Top = 78 412 Top = 136
413 Width = 32 413 Width = 32
414 Caption = 'Name' 414 Caption = 'Name'
415 ParentColor = False 415 ParentColor = False
416 ParentFont = False 416 ParentFont = False
417 end 417 end
418 object InstrumentNameEdit: TEdit 418 object InstrumentNameEdit: TEdit
419 Left = 80 419 Left = 140
420 Height = 23 420 Height = 23
421 Hint = 'The name of the instrument' 421 Hint = 'The name of the instrument'
422 Top = 70 422 Top = 122
423 Width = 176 423 Width = 308
424 OnChange = InstrumentNameEditChange 424 OnChange = InstrumentNameEditChange
425 ParentFont = False 425 ParentFont = False
426 TabOrder = 1 426 TabOrder = 1
427 end 427 end
428 object Label3: TLabel 428 object Label3: TLabel
429 Left = 8 429 Left = 14
430 Height = 15 430 Height = 15
431 Top = 16 431 Top = 28
432 Width = 44 432 Width = 44
433 Caption = 'Channel' 433 Caption = 'Channel'
434 Font.Style = [fsBold] 434 Font.Style = [fsBold]
@@ -436,12 +436,12 @@ object frmTracker: TfrmTracker
436 ParentFont = False 436 ParentFont = False
437 end 437 end
438 object InstrumentTypeCombobox: TComboBox 438 object InstrumentTypeCombobox: TComboBox
439 Left = 78 439 Left = 136
440 Height = 23 440 Height = 38
441 Hint = 'What type of channel this instrument will be played on' 441 Hint = 'What type of channel this instrument will be played on'
442 Top = 8 442 Top = 14
443 Width = 178 443 Width = 312
444 ItemHeight = 15 444 ItemHeight = 30
445 ItemIndex = 0 445 ItemIndex = 0
446 Items.Strings = ( 446 Items.Strings = (
447 'Square' 447 'Square'
@@ -455,10 +455,10 @@ object frmTracker: TfrmTracker
455 Text = 'Square' 455 Text = 'Square'
456 end 456 end
457 object LengthEnabledCheckbox: TCheckBox 457 object LengthEnabledCheckbox: TCheckBox
458 Left = 12 458 Left = 21
459 Height = 19 459 Height = 19
460 Hint = 'Cut the sound after a certain length of time' 460 Hint = 'Cut the sound after a certain length of time'
461 Top = 118 461 Top = 206
462 Width = 57 462 Width = 57
463 Caption = 'Length' 463 Caption = 'Length'
464 OnChange = LengthEnabledCheckboxChange 464 OnChange = LengthEnabledCheckboxChange
@@ -466,41 +466,41 @@ object frmTracker: TfrmTracker
466 TabOrder = 3 466 TabOrder = 3
467 end 467 end
468 object InstrumentImportButton: TButton 468 object InstrumentImportButton: TButton
469 Left = 12 469 Left = 21
470 Height = 25 470 Height = 44
471 Top = 184 471 Top = 322
472 Width = 116 472 Width = 203
473 Caption = 'Import' 473 Caption = 'Import'
474 OnClick = InstrumentImportButtonClick 474 OnClick = InstrumentImportButtonClick
475 ParentFont = False 475 ParentFont = False
476 TabOrder = 4 476 TabOrder = 4
477 end 477 end
478 object InstrumentExportButton: TButton 478 object InstrumentExportButton: TButton
479 Left = 138 479 Left = 242
480 Height = 25 480 Height = 44
481 Top = 184 481 Top = 322
482 Width = 116 482 Width = 203
483 Caption = 'Export' 483 Caption = 'Export'
484 OnClick = InstrumentExportButtonClick 484 OnClick = InstrumentExportButtonClick
485 ParentFont = False 485 ParentFont = False
486 TabOrder = 5 486 TabOrder = 5
487 end 487 end
488 object Button1: TButton 488 object Button1: TButton
489 Left = 12 489 Left = 21
490 Height = 25 490 Height = 44
491 Hint = 'Test out the instrument with a C-5 note' 491 Hint = 'Test out the instrument with a C-5 note'
492 Top = 152 492 Top = 266
493 Width = 242 493 Width = 424
494 Caption = 'Test C-5' 494 Caption = 'Test C-5'
495 OnClick = Button1Click 495 OnClick = Button1Click
496 ParentFont = False 496 ParentFont = False
497 TabOrder = 6 497 TabOrder = 6
498 end 498 end
499 object LengthTrackbar: TTrackBar 499 object LengthTrackbar: TTrackBar
500 Left = 76 500 Left = 133
501 Height = 25 501 Height = 44
502 Top = 112 502 Top = 196
503 Width = 178 503 Width = 312
504 Max = 63 504 Max = 63
505 OnChange = LengthSpinnerChange 505 OnChange = LengthSpinnerChange
506 Position = 0 506 Position = 0
@@ -511,44 +511,44 @@ object frmTracker: TfrmTracker
511 end 511 end
512 object EnvelopeGroupBox: TGroupBox 512 object EnvelopeGroupBox: TGroupBox
513 Left = 292 513 Left = 292
514 Height = 136 514 Height = 238
515 Top = 7 515 Top = 7
516 Width = 582 516 Width = 1018
517 Anchors = [] 517 Anchors = []
518 BorderSpacing.Left = 7 518 BorderSpacing.Left = 12
519 BorderSpacing.Top = 7 519 BorderSpacing.Top = 12
520 BorderSpacing.Right = 7 520 BorderSpacing.Right = 12
521 BorderSpacing.Bottom = 7 521 BorderSpacing.Bottom = 12
522 Caption = 'Envelope' 522 Caption = 'Envelope'
523 ClientHeight = 116 523 ClientHeight = 203
524 ClientWidth = 578 524 ClientWidth = 1014
525 ParentFont = False 525 ParentFont = False
526 TabOrder = 1 526 TabOrder = 1
527 object Label4: TLabel 527 object Label4: TLabel
528 Left = 8 528 Left = 14
529 Height = 15 529 Height = 15
530 Top = 9 530 Top = 16
531 Width = 46 531 Width = 46
532 Caption = 'Start vol.' 532 Caption = 'Start vol.'
533 ParentColor = False 533 ParentColor = False
534 ParentFont = False 534 ParentFont = False
535 end 535 end
536 object Label5: TLabel 536 object Label5: TLabel
537 Left = 8 537 Left = 14
538 Height = 15 538 Height = 15
539 Top = 48 539 Top = 84
540 Width = 48 540 Width = 48
541 Caption = 'Direction' 541 Caption = 'Direction'
542 ParentColor = False 542 ParentColor = False
543 ParentFont = False 543 ParentFont = False
544 end 544 end
545 object DirectionComboBox: TComboBox 545 object DirectionComboBox: TComboBox
546 Left = 82 546 Left = 144
547 Height = 23 547 Height = 38
548 Hint = 'Whether to fade the sound in or out' 548 Hint = 'Whether to fade the sound in or out'
549 Top = 46 549 Top = 80
550 Width = 198 550 Width = 346
551 ItemHeight = 15 551 ItemHeight = 30
552 ItemIndex = 1 552 ItemIndex = 1
553 Items.Strings = ( 553 Items.Strings = (
554 'Up' 554 'Up'
@@ -561,22 +561,22 @@ object frmTracker: TfrmTracker
561 Text = 'Down' 561 Text = 'Down'
562 end 562 end
563 object Label6: TLabel 563 object Label6: TLabel
564 Left = 8 564 Left = 14
565 Height = 15 565 Height = 15
566 Top = 86 566 Top = 150
567 Width = 41 567 Width = 41
568 Caption = 'Change' 568 Caption = 'Change'
569 ParentColor = False 569 ParentColor = False
570 ParentFont = False 570 ParentFont = False
571 end 571 end
572 object Panel5: TPanel 572 object Panel5: TPanel
573 Left = 300 573 Left = 525
574 Height = 104 574 Height = 182
575 Top = 0 575 Top = 0
576 Width = 270 576 Width = 472
577 BevelOuter = bvLowered 577 BevelOuter = bvLowered
578 ClientHeight = 104 578 ClientHeight = 182
579 ClientWidth = 270 579 ClientWidth = 472
580 ParentFont = False 580 ParentFont = False
581 TabOrder = 1 581 TabOrder = 1
582 object EnvelopePaintbox: TPaintBox 582 object EnvelopePaintbox: TPaintBox
@@ -591,10 +591,10 @@ object frmTracker: TfrmTracker
591 end 591 end
592 end 592 end
593 object StartVolTrackbar: TTrackBar 593 object StartVolTrackbar: TTrackBar
594 Left = 82 594 Left = 144
595 Height = 25 595 Height = 44
596 Top = 8 596 Top = 14
597 Width = 196 597 Width = 343
598 Max = 15 598 Max = 15
599 OnChange = StartVolSpinnerChange 599 OnChange = StartVolSpinnerChange
600 Position = 0 600 Position = 0
@@ -602,10 +602,10 @@ object frmTracker: TfrmTracker
602 TabOrder = 2 602 TabOrder = 2
603 end 603 end
604 object EnvChangeTrackbar: TTrackBar 604 object EnvChangeTrackbar: TTrackBar
605 Left = 82 605 Left = 144
606 Height = 25 606 Height = 44
607 Top = 82 607 Top = 144
608 Width = 196 608 Width = 343
609 Max = 7 609 Max = 7
610 OnChange = EnvChangeSpinnerChange 610 OnChange = EnvChangeSpinnerChange
611 Position = 0 611 Position = 0
@@ -615,35 +615,35 @@ object frmTracker: TfrmTracker
615 end 615 end
616 object SquareGroupBox: TGroupBox 616 object SquareGroupBox: TGroupBox
617 Left = 7 617 Left = 7
618 Height = 169 618 Height = 296
619 Top = 262 619 Top = 262
620 Width = 319 620 Width = 558
621 Anchors = [] 621 Anchors = []
622 BorderSpacing.Left = 7 622 BorderSpacing.Left = 12
623 BorderSpacing.Top = 7 623 BorderSpacing.Top = 12
624 BorderSpacing.Right = 7 624 BorderSpacing.Right = 12
625 BorderSpacing.Bottom = 7 625 BorderSpacing.Bottom = 12
626 Caption = 'Square' 626 Caption = 'Square'
627 ClientHeight = 149 627 ClientHeight = 261
628 ClientWidth = 315 628 ClientWidth = 554
629 ParentFont = False 629 ParentFont = False
630 TabOrder = 2 630 TabOrder = 2
631 object Label7: TLabel 631 object Label7: TLabel
632 Left = 8 632 Left = 14
633 Height = 15 633 Height = 15
634 Top = 16 634 Top = 28
635 Width = 61 635 Width = 61
636 Caption = 'Sweep time' 636 Caption = 'Sweep time'
637 ParentColor = False 637 ParentColor = False
638 ParentFont = False 638 ParentFont = False
639 end 639 end
640 object SweepTimeCombobox: TComboBox 640 object SweepTimeCombobox: TComboBox
641 Left = 104 641 Left = 182
642 Height = 23 642 Height = 38
643 Hint = 'How long to sweep' 643 Hint = 'How long to sweep'
644 Top = 8 644 Top = 14
645 Width = 200 645 Width = 350
646 ItemHeight = 15 646 ItemHeight = 30
647 ItemIndex = 0 647 ItemIndex = 0
648 Items.Strings = ( 648 Items.Strings = (
649 'Off - no frequency change' 649 'Off - no frequency change'
@@ -664,12 +664,12 @@ object frmTracker: TfrmTracker
664 Text = 'Off - no frequency change' 664 Text = 'Off - no frequency change'
665 end 665 end
666 object SweepDirectionCombobox: TComboBox 666 object SweepDirectionCombobox: TComboBox
667 Left = 104 667 Left = 182
668 Height = 23 668 Height = 38
669 Hint = 'The direction of the sweep' 669 Hint = 'The direction of the sweep'
670 Top = 40 670 Top = 70
671 Width = 200 671 Width = 350
672 ItemHeight = 15 672 ItemHeight = 30
673 ItemIndex = 1 673 ItemIndex = 1
674 Items.Strings = ( 674 Items.Strings = (
675 'Up' 675 'Up'
@@ -684,39 +684,39 @@ object frmTracker: TfrmTracker
684 Text = 'Down' 684 Text = 'Down'
685 end 685 end
686 object Label8: TLabel 686 object Label8: TLabel
687 Left = 8 687 Left = 14
688 Height = 15 688 Height = 15
689 Top = 48 689 Top = 84
690 Width = 84 690 Width = 84
691 Caption = 'Sweep direction' 691 Caption = 'Sweep direction'
692 ParentColor = False 692 ParentColor = False
693 ParentFont = False 693 ParentFont = False
694 end 694 end
695 object Label9: TLabel 695 object Label9: TLabel
696 Left = 8 696 Left = 14
697 Height = 15 697 Height = 15
698 Top = 84 698 Top = 147
699 Width = 56 699 Width = 56
700 Caption = 'Sweep size' 700 Caption = 'Sweep size'
701 ParentColor = False 701 ParentColor = False
702 ParentFont = False 702 ParentFont = False
703 end 703 end
704 object Label10: TLabel 704 object Label10: TLabel
705 Left = 8 705 Left = 14
706 Height = 15 706 Height = 15
707 Top = 120 707 Top = 210
708 Width = 25 708 Width = 25
709 Caption = 'Duty' 709 Caption = 'Duty'
710 ParentColor = False 710 ParentColor = False
711 ParentFont = False 711 ParentFont = False
712 end 712 end
713 object DutyCombobox: TComboBox 713 object DutyCombobox: TComboBox
714 Left = 104 714 Left = 182
715 Height = 23 715 Height = 38
716 Hint = 'Which duty cycle to use (changes timbre of wave)' 716 Hint = 'Which duty cycle to use (changes timbre of wave)'
717 Top = 112 717 Top = 196
718 Width = 200 718 Width = 350
719 ItemHeight = 15 719 ItemHeight = 30
720 ItemIndex = 2 720 ItemIndex = 2
721 Items.Strings = ( 721 Items.Strings = (
722 '12.5%' 722 '12.5%'
@@ -733,10 +733,10 @@ object frmTracker: TfrmTracker
733 Text = '50% (square)' 733 Text = '50% (square)'
734 end 734 end
735 object SweepSizeTrackbar: TTrackBar 735 object SweepSizeTrackbar: TTrackBar
736 Left = 105 736 Left = 184
737 Height = 25 737 Height = 44
738 Top = 80 738 Top = 140
739 Width = 196 739 Width = 343
740 Max = 7 740 Max = 7
741 OnChange = SweepSizeSpinnerChange 741 OnChange = SweepSizeSpinnerChange
742 Position = 0 742 Position = 0
@@ -746,44 +746,44 @@ object frmTracker: TfrmTracker
746 end 746 end
747 object WaveGroupBox: TGroupBox 747 object WaveGroupBox: TGroupBox
748 Left = 340 748 Left = 340
749 Height = 169 749 Height = 296
750 Top = 262 750 Top = 262
751 Width = 297 751 Width = 520
752 Anchors = [] 752 Anchors = []
753 BorderSpacing.Left = 7 753 BorderSpacing.Left = 12
754 BorderSpacing.Top = 7 754 BorderSpacing.Top = 12
755 BorderSpacing.Right = 7 755 BorderSpacing.Right = 12
756 BorderSpacing.Bottom = 7 756 BorderSpacing.Bottom = 12
757 Caption = 'Wave' 757 Caption = 'Wave'
758 ClientHeight = 149 758 ClientHeight = 261
759 ClientWidth = 293 759 ClientWidth = 516
760 ParentFont = False 760 ParentFont = False
761 TabOrder = 3 761 TabOrder = 3
762 object Label11: TLabel 762 object Label11: TLabel
763 Left = 8 763 Left = 14
764 Height = 15 764 Height = 15
765 Top = 16 765 Top = 28
766 Width = 40 766 Width = 40
767 Caption = 'Volume' 767 Caption = 'Volume'
768 ParentColor = False 768 ParentColor = False
769 ParentFont = False 769 ParentFont = False
770 end 770 end
771 object Label12: TLabel 771 object Label12: TLabel
772 Left = 8 772 Left = 14
773 Height = 15 773 Height = 15
774 Top = 48 774 Top = 84
775 Width = 55 775 Width = 55
776 Caption = 'Waveform' 776 Caption = 'Waveform'
777 ParentColor = False 777 ParentColor = False
778 ParentFont = False 778 ParentFont = False
779 end 779 end
780 object WaveformCombobox: TComboBox 780 object WaveformCombobox: TComboBox
781 Left = 104 781 Left = 182
782 Height = 23 782 Height = 38
783 Hint = 'Which waveform is associated with this instrument' 783 Hint = 'Which waveform is associated with this instrument'
784 Top = 40 784 Top = 70
785 Width = 176 785 Width = 308
786 ItemHeight = 15 786 ItemHeight = 30
787 ItemIndex = 0 787 ItemIndex = 0
788 Items.Strings = ( 788 Items.Strings = (
789 'Wave #0' 789 'Wave #0'
@@ -810,13 +810,13 @@ object frmTracker: TfrmTracker
810 Text = 'Wave #0' 810 Text = 'Wave #0'
811 end 811 end
812 object Panel4: TPanel 812 object Panel4: TPanel
813 Left = 8 813 Left = 14
814 Height = 59 814 Height = 103
815 Top = 80 815 Top = 140
816 Width = 272 816 Width = 476
817 BevelOuter = bvLowered 817 BevelOuter = bvLowered
818 ClientHeight = 59 818 ClientHeight = 103
819 ClientWidth = 272 819 ClientWidth = 476
820 ParentFont = False 820 ParentFont = False
821 TabOrder = 1 821 TabOrder = 1
822 object WavePaintbox: TPaintBox 822 object WavePaintbox: TPaintBox
@@ -833,12 +833,12 @@ object frmTracker: TfrmTracker
833 end 833 end
834 end 834 end
835 object WaveVolumeCombobox: TComboBox 835 object WaveVolumeCombobox: TComboBox
836 Left = 104 836 Left = 182
837 Height = 23 837 Height = 38
838 Hint = 'The initial volume of the wave' 838 Hint = 'The initial volume of the wave'
839 Top = 8 839 Top = 14
840 Width = 176 840 Width = 308
841 ItemHeight = 15 841 ItemHeight = 30
842 ItemIndex = 1 842 ItemIndex = 1
843 Items.Strings = ( 843 Items.Strings = (
844 'Mute (No sound)' 844 'Mute (No sound)'
@@ -855,24 +855,24 @@ object frmTracker: TfrmTracker
855 end 855 end
856 object NoiseGroupBox: TGroupBox 856 object NoiseGroupBox: TGroupBox
857 Left = 651 857 Left = 651
858 Height = 223 858 Height = 390
859 Top = 262 859 Top = 262
860 Width = 397 860 Width = 695
861 Anchors = [] 861 Anchors = []
862 BorderSpacing.Left = 7 862 BorderSpacing.Left = 12
863 BorderSpacing.Top = 7 863 BorderSpacing.Top = 12
864 BorderSpacing.Right = 7 864 BorderSpacing.Right = 12
865 BorderSpacing.Bottom = 7 865 BorderSpacing.Bottom = 12
866 Caption = 'Noise' 866 Caption = 'Noise'
867 ClientHeight = 203 867 ClientHeight = 355
868 ClientWidth = 393 868 ClientWidth = 691
869 ParentFont = False 869 ParentFont = False
870 TabOrder = 4 870 TabOrder = 4
871 object SevenBitCounterCheckbox: TCheckBox 871 object SevenBitCounterCheckbox: TCheckBox
872 Left = 8 872 Left = 14
873 Height = 19 873 Height = 19
874 Hint = 'Select LFSR width. When checked, output will sound like a tone rather than noise' 874 Hint = 'Select LFSR width. When checked, output will sound like a tone rather than noise'
875 Top = 8 875 Top = 14
876 Width = 215 876 Width = 215
877 Alignment = taLeftJustify 877 Alignment = taLeftJustify
878 Caption = '7 bit counter (more tone-like output)' 878 Caption = '7 bit counter (more tone-like output)'
@@ -881,13 +881,13 @@ object frmTracker: TfrmTracker
881 TabOrder = 0 881 TabOrder = 0
882 end 882 end
883 object Panel6: TPanel 883 object Panel6: TPanel
884 Left = 8 884 Left = 14
885 Height = 152 885 Height = 266
886 Top = 40 886 Top = 70
887 Width = 376 887 Width = 658
888 BevelOuter = bvLowered 888 BevelOuter = bvLowered
889 ClientHeight = 152 889 ClientHeight = 266
890 ClientWidth = 376 890 ClientWidth = 658
891 ParentFont = False 891 ParentFont = False
892 TabOrder = 1 892 TabOrder = 1
893 object NoiseMacroPaintbox: TPaintBox 893 object NoiseMacroPaintbox: TPaintBox
@@ -920,7 +920,7 @@ object frmTracker: TfrmTracker
920 Width = 1064 920 Width = 1064
921 Align = alBottom 921 Align = alBottom
922 Anchors = [akTop, akLeft, akRight, akBottom] 922 Anchors = [akTop, akLeft, akRight, akBottom]
923 BorderSpacing.Top = 13 923 BorderSpacing.Top = 23
924 ParentFont = False 924 ParentFont = False
925 PopupMenu = WaveEditPopup 925 PopupMenu = WaveEditPopup
926 OnMouseDown = WaveEditPaintBoxMouseDown 926 OnMouseDown = WaveEditPaintBoxMouseDown
@@ -929,61 +929,61 @@ object frmTracker: TfrmTracker
929 OnPaint = WaveEditPaintBoxPaint 929 OnPaint = WaveEditPaintBoxPaint
930 end 930 end
931 object WaveEditGroupBox: TGroupBox 931 object WaveEditGroupBox: TGroupBox
932 Left = 8 932 Left = 14
933 Height = 139 933 Height = 243
934 Top = 8 934 Top = 14
935 Width = 568 935 Width = 994
936 Caption = 'Wave Editor' 936 Caption = 'Wave Editor'
937 ClientHeight = 119 937 ClientHeight = 208
938 ClientWidth = 564 938 ClientWidth = 990
939 ParentFont = False 939 ParentFont = False
940 TabOrder = 0 940 TabOrder = 0
941 object Label20: TLabel 941 object Label20: TLabel
942 Left = 16 942 Left = 28
943 Height = 15 943 Height = 15
944 Top = 16 944 Top = 28
945 Width = 29 945 Width = 29
946 Caption = 'Wave' 946 Caption = 'Wave'
947 ParentColor = False 947 ParentColor = False
948 ParentFont = False 948 ParentFont = False
949 end 949 end
950 object WaveEditNumberSpinner: TSpinEdit 950 object WaveEditNumberSpinner: TSpinEdit
951 Left = 64 951 Left = 112
952 Height = 23 952 Height = 23
953 Top = 8 953 Top = 14
954 Width = 80 954 Width = 140
955 MaxValue = 15 955 MaxValue = 15
956 OnChange = WaveEditNumberSpinnerChange 956 OnChange = WaveEditNumberSpinnerChange
957 ParentFont = False 957 ParentFont = False
958 TabOrder = 0 958 TabOrder = 0
959 end 959 end
960 object ImportWaveButton: TButton 960 object ImportWaveButton: TButton
961 Left = 16 961 Left = 28
962 Height = 25 962 Height = 44
963 Hint = 'Import a wave' 963 Hint = 'Import a wave'
964 Top = 48 964 Top = 84
965 Width = 147 965 Width = 257
966 Caption = 'Import' 966 Caption = 'Import'
967 OnClick = ImportWaveButtonClick 967 OnClick = ImportWaveButtonClick
968 ParentFont = False 968 ParentFont = False
969 TabOrder = 1 969 TabOrder = 1
970 end 970 end
971 object ExportWaveButton: TButton 971 object ExportWaveButton: TButton
972 Left = 16 972 Left = 28
973 Height = 25 973 Height = 44
974 Hint = 'Export a wave' 974 Hint = 'Export a wave'
975 Top = 80 975 Top = 140
976 Width = 147 976 Width = 257
977 Caption = 'Export' 977 Caption = 'Export'
978 OnClick = ExportWaveButtonClick 978 OnClick = ExportWaveButtonClick
979 ParentFont = False 979 ParentFont = False
980 TabOrder = 2 980 TabOrder = 2
981 end 981 end
982 object HexWaveEdit: TEdit 982 object HexWaveEdit: TEdit
983 Left = 288 983 Left = 504
984 Height = 23 984 Height = 23
985 Top = 8 985 Top = 14
986 Width = 264 986 Width = 462
987 MaxLength = 32 987 MaxLength = 32
988 OnChange = HexWaveEditEditingDone 988 OnChange = HexWaveEditEditingDone
989 OnEditingDone = HexWaveEditEditingDone 989 OnEditingDone = HexWaveEditEditingDone
@@ -991,18 +991,18 @@ object frmTracker: TfrmTracker
991 TabOrder = 3 991 TabOrder = 3
992 end 992 end
993 object Label13: TLabel 993 object Label13: TLabel
994 Left = 176 994 Left = 308
995 Height = 15 995 Height = 15
996 Top = 16 996 Top = 28
997 Width = 100 997 Width = 100
998 Caption = 'Hex representation' 998 Caption = 'Hex representation'
999 ParentColor = False 999 ParentColor = False
1000 ParentFont = False 1000 ParentFont = False
1001 end 1001 end
1002 object PlayWaveWhileDrawingCheckbox: TCheckBox 1002 object PlayWaveWhileDrawingCheckbox: TCheckBox
1003 Left = 176 1003 Left = 308
1004 Height = 19 1004 Height = 19
1005 Top = 40 1005 Top = 70
1006 Width = 149 1006 Width = 149
1007 Caption = 'Play wave while drawing' 1007 Caption = 'Play wave while drawing'
1008 ParentFont = False 1008 ParentFont = False
@@ -1025,16 +1025,16 @@ object frmTracker: TfrmTracker
1025 Width = 939 1025 Width = 939
1026 Align = alBottom 1026 Align = alBottom
1027 Anchors = [akTop, akLeft, akRight, akBottom] 1027 Anchors = [akTop, akLeft, akRight, akBottom]
1028 BorderSpacing.Top = 13 1028 BorderSpacing.Top = 23
1029 MaxLength = 255 1029 MaxLength = 255
1030 OnChange = CommentMemoChange 1030 OnChange = CommentMemoChange
1031 ParentFont = False 1031 ParentFont = False
1032 TabOrder = 0 1032 TabOrder = 0
1033 end 1033 end
1034 object Label17: TLabel 1034 object Label17: TLabel
1035 Left = 8 1035 Left = 14
1036 Height = 15 1036 Height = 15
1037 Top = 8 1037 Top = 14
1038 Width = 333 1038 Width = 333
1039 Caption = 'This is an area to write comments for anyone editing your tune.' 1039 Caption = 'This is an area to write comments for anyone editing your tune.'
1040 ParentColor = False 1040 ParentColor = False
@@ -1054,16 +1054,16 @@ object frmTracker: TfrmTracker
1054 Top = 128 1054 Top = 128
1055 Width = 1063 1055 Width = 1063
1056 Align = alBottom 1056 Align = alBottom
1057 BorderSpacing.Top = 13 1057 BorderSpacing.Top = 23
1058 Anchors = [akTop, akLeft, akRight, akBottom] 1058 Anchors = [akTop, akLeft, akRight, akBottom]
1059 Font.Height = -13 1059 Font.Height = -23
1060 Font.Name = 'Courier New' 1060 Font.Name = 'Courier New'
1061 Font.Pitch = fpFixed 1061 Font.Pitch = fpFixed
1062 Font.Quality = fqNonAntialiased 1062 Font.Quality = fqNonAntialiased
1063 ParentColor = False 1063 ParentColor = False
1064 ParentFont = False 1064 ParentFont = False
1065 TabOrder = 0 1065 TabOrder = 0
1066 Gutter.Width = 57 1066 Gutter.Width = 100
1067 Gutter.MouseActions = <> 1067 Gutter.MouseActions = <>
1068 RightGutter.Width = 0 1068 RightGutter.Width = 0
1069 RightGutter.MouseActions = <> 1069 RightGutter.MouseActions = <>
@@ -1517,11 +1517,11 @@ object frmTracker: TfrmTracker
1517 OnChange = RoutineSyneditChange 1517 OnChange = RoutineSyneditChange
1518 inline SynLeftGutterPartList1: TSynGutterPartList 1518 inline SynLeftGutterPartList1: TSynGutterPartList
1519 object SynGutterMarks1: TSynGutterMarks 1519 object SynGutterMarks1: TSynGutterMarks
1520 Width = 24 1520 Width = 42
1521 MouseActions = <> 1521 MouseActions = <>
1522 end 1522 end
1523 object SynGutterLineNumber1: TSynGutterLineNumber 1523 object SynGutterLineNumber1: TSynGutterLineNumber
1524 Width = 17 1524 Width = 29
1525 MouseActions = <> 1525 MouseActions = <>
1526 MarkupInfo.Background = clBtnFace 1526 MarkupInfo.Background = clBtnFace
1527 MarkupInfo.Foreground = clNone 1527 MarkupInfo.Foreground = clNone
@@ -1531,18 +1531,19 @@ object frmTracker: TfrmTracker
1531 LeadingZeros = False 1531 LeadingZeros = False
1532 end 1532 end
1533 object SynGutterChanges1: TSynGutterChanges 1533 object SynGutterChanges1: TSynGutterChanges
1534 Width = 4 1534 Width = 7
1535 MouseActions = <> 1535 MouseActions = <>
1536 ModifiedColor = 59900 1536 ModifiedColor = 59900
1537 SavedColor = clGreen 1537 SavedColor = clGreen
1538 end 1538 end
1539 object SynGutterSeparator1: TSynGutterSeparator 1539 object SynGutterSeparator1: TSynGutterSeparator
1540 Width = 2 1540 Width = 4
1541 MouseActions = <> 1541 MouseActions = <>
1542 MarkupInfo.Background = clWhite 1542 MarkupInfo.Background = clWhite
1543 MarkupInfo.Foreground = clGray 1543 MarkupInfo.Foreground = clGray
1544 end 1544 end
1545 object SynGutterCodeFolding1: TSynGutterCodeFolding 1545 object SynGutterCodeFolding1: TSynGutterCodeFolding
1546 Width = 18
1546 MouseActions = <> 1547 MouseActions = <>
1547 MarkupInfo.Background = clNone 1548 MarkupInfo.Background = clNone
1548 MarkupInfo.Foreground = clGray 1549 MarkupInfo.Foreground = clGray
@@ -1552,19 +1553,19 @@ object frmTracker: TfrmTracker
1552 end 1553 end
1553 end 1554 end
1554 object Label18: TLabel 1555 object Label18: TLabel
1555 Left = 8 1556 Left = 14
1556 Height = 15 1557 Height = 15
1557 Top = 16 1558 Top = 28
1558 Width = 41 1559 Width = 41
1559 Caption = 'Routine' 1560 Caption = 'Routine'
1560 ParentColor = False 1561 ParentColor = False
1561 ParentFont = False 1562 ParentFont = False
1562 end 1563 end
1563 object RoutineNumberSpinner: TSpinEdit 1564 object RoutineNumberSpinner: TSpinEdit
1564 Left = 64 1565 Left = 112
1565 Height = 23 1566 Height = 23
1566 Top = 8 1567 Top = 14
1567 Width = 176 1568 Width = 308
1568 MaxValue = 15 1569 MaxValue = 15
1569 OnChange = RoutineNumberSpinnerChange 1570 OnChange = RoutineNumberSpinnerChange
1570 ParentFont = False 1571 ParentFont = False
@@ -1572,9 +1573,9 @@ object frmTracker: TfrmTracker
1572 Value = 1 1573 Value = 1
1573 end 1574 end
1574 object Label19: TLabel 1575 object Label19: TLabel
1575 Left = 8 1576 Left = 14
1576 Height = 75 1577 Height = 75
1577 Top = 40 1578 Top = 70
1578 Width = 506 1579 Width = 506
1579 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!' 1580 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!'
1580 ParentColor = False 1581 ParentColor = False
@@ -1585,21 +1586,21 @@ object frmTracker: TfrmTracker
1585 end 1586 end
1586 object Panel2: TPanel 1587 object Panel2: TPanel
1587 Left = 0 1588 Left = 0
1588 Height = 64 1589 Height = 112
1589 Top = 25 1590 Top = 41
1590 Width = 1269 1591 Width = 2156
1591 Align = alTop 1592 Align = alTop
1592 BevelOuter = bvNone 1593 BevelOuter = bvNone
1593 ClientHeight = 64 1594 ClientHeight = 112
1594 ClientWidth = 1269 1595 ClientWidth = 2156
1595 ParentFont = False 1596 ParentFont = False
1596 TabOrder = 3 1597 TabOrder = 3
1597 object LEDMeter1: TLEDMeter 1598 object LEDMeter1: TLEDMeter
1598 AnchorSideRight.Control = Duty1Visualizer 1599 AnchorSideRight.Control = Duty1Visualizer
1599 Left = 0 1600 Left = 0
1600 Height = 32 1601 Height = 56
1601 Top = 32 1602 Top = 56
1602 Width = 481 1603 Width = 776
1603 Anchors = [akTop, akLeft, akRight] 1604 Anchors = [akTop, akLeft, akRight]
1604 BevelStyle = bvLowered 1605 BevelStyle = bvLowered
1605 Colors.Border = 2168839 1606 Colors.Border = 2168839
@@ -1620,9 +1621,9 @@ object frmTracker: TfrmTracker
1620 object LEDMeter2: TLEDMeter 1621 object LEDMeter2: TLEDMeter
1621 AnchorSideRight.Control = Duty1Visualizer 1622 AnchorSideRight.Control = Duty1Visualizer
1622 Left = 0 1623 Left = 0
1623 Height = 32 1624 Height = 56
1624 Top = 0 1625 Top = 0
1625 Width = 481 1626 Width = 776
1626 Anchors = [akTop, akLeft, akRight] 1627 Anchors = [akTop, akLeft, akRight]
1627 BevelStyle = bvLowered 1628 BevelStyle = bvLowered
1628 Colors.Border = 2168839 1629 Colors.Border = 2168839
@@ -1641,40 +1642,40 @@ object frmTracker: TfrmTracker
1641 Section3Value = 48 1642 Section3Value = 48
1642 end 1643 end
1643 object Duty1Visualizer: TPaintBox 1644 object Duty1Visualizer: TPaintBox
1644 Left = 481 1645 Left = 776
1645 Height = 64 1646 Height = 112
1646 Top = 0 1647 Top = 0
1647 Width = 197 1648 Width = 345
1648 Align = alRight 1649 Align = alRight
1649 ParentFont = False 1650 ParentFont = False
1650 OnClick = Duty1VisualizerClick 1651 OnClick = Duty1VisualizerClick
1651 OnPaint = Duty1VisualizerPaint 1652 OnPaint = Duty1VisualizerPaint
1652 end 1653 end
1653 object Duty2Visualizer: TPaintBox 1654 object Duty2Visualizer: TPaintBox
1654 Left = 678 1655 Left = 1121
1655 Height = 64 1656 Height = 112
1656 Top = 0 1657 Top = 0
1657 Width = 197 1658 Width = 345
1658 Align = alRight 1659 Align = alRight
1659 ParentFont = False 1660 ParentFont = False
1660 OnClick = Duty1VisualizerClick 1661 OnClick = Duty1VisualizerClick
1661 OnPaint = Duty2VisualizerPaint 1662 OnPaint = Duty2VisualizerPaint
1662 end 1663 end
1663 object WaveVisualizer: TPaintBox 1664 object WaveVisualizer: TPaintBox
1664 Left = 875 1665 Left = 1466
1665 Height = 64 1666 Height = 112
1666 Top = 0 1667 Top = 0
1667 Width = 197 1668 Width = 345
1668 Align = alRight 1669 Align = alRight
1669 ParentFont = False 1670 ParentFont = False
1670 OnClick = Duty1VisualizerClick 1671 OnClick = Duty1VisualizerClick
1671 OnPaint = WaveVisualizerPaint 1672 OnPaint = WaveVisualizerPaint
1672 end 1673 end
1673 object NoiseVisualizer: TPaintBox 1674 object NoiseVisualizer: TPaintBox
1674 Left = 1072 1675 Left = 1811
1675 Height = 64 1676 Height = 112
1676 Top = 0 1677 Top = 0
1677 Width = 197 1678 Width = 345
1678 Align = alRight 1679 Align = alRight
1679 ParentFont = False 1680 ParentFont = False
1680 OnClick = Duty1VisualizerClick 1681 OnClick = Duty1VisualizerClick
@@ -1683,19 +1684,19 @@ object frmTracker: TfrmTracker
1683 end 1684 end
1684 object StatusBar1: TStatusBar 1685 object StatusBar1: TStatusBar
1685 Left = 0 1686 Left = 0
1686 Height = 23 1687 Height = 43
1687 Top = 600 1688 Top = 1065
1688 Width = 1269 1689 Width = 2156
1689 AutoHint = True 1690 AutoHint = True
1690 Panels = < 1691 Panels = <
1691 item 1692 item
1692 Width = 467 1693 Width = 817
1693 end 1694 end
1694 item 1695 item
1695 Width = 200 1696 Width = 350
1696 end 1697 end
1697 item 1698 item
1698 Width = 200 1699 Width = 350
1699 end> 1700 end>
1700 ParentFont = False 1701 ParentFont = False
1701 ParentShowHint = False 1702 ParentShowHint = False
@@ -1704,9 +1705,9 @@ object frmTracker: TfrmTracker
1704 end 1705 end
1705 object ToolBar1: TToolBar 1706 object ToolBar1: TToolBar
1706 Left = 0 1707 Left = 0
1707 Height = 25 1708 Height = 41
1708 Top = 0 1709 Top = 0
1709 Width = 1269 1710 Width = 2156
1710 AutoSize = True 1711 AutoSize = True
1711 Caption = 'ToolBar1' 1712 Caption = 'ToolBar1'
1712 EdgeBorders = [ebBottom] 1713 EdgeBorders = [ebBottom]
@@ -1723,7 +1724,7 @@ object frmTracker: TfrmTracker
1723 ParentShowHint = False 1724 ParentShowHint = False
1724 end 1725 end
1725 object PanicToolButton: TToolButton 1726 object PanicToolButton: TToolButton
1726 Left = 557 1727 Left = 851
1727 Hint = 'Stops all sound output' 1728 Hint = 'Stops all sound output'
1728 Top = 0 1729 Top = 0
1729 AutoSize = True 1730 AutoSize = True
@@ -1734,17 +1735,17 @@ object frmTracker: TfrmTracker
1734 ShowHint = True 1735 ShowHint = True
1735 end 1736 end
1736 object ToolButton2: TToolButton 1737 object ToolButton2: TToolButton
1737 Left = 147 1738 Left = 221
1738 Top = 0 1739 Top = 0
1739 Action = PlayCursorAction 1740 Action = PlayCursorAction
1740 end 1741 end
1741 object ToolButton4: TToolButton 1742 object ToolButton4: TToolButton
1742 Left = 221 1743 Left = 331
1743 Top = 0 1744 Top = 0
1744 Action = StopAction 1745 Action = StopAction
1745 end 1746 end
1746 object ExportGBButton: TToolButton 1747 object ExportGBButton: TToolButton
1747 Left = 291 1748 Left = 442
1748 Hint = 'Export the song as a standalone ROM' 1749 Hint = 'Export the song as a standalone ROM'
1749 Top = 0 1750 Top = 0
1750 AutoSize = True 1751 AutoSize = True
@@ -1753,49 +1754,49 @@ object frmTracker: TfrmTracker
1753 OnClick = ExportGBButtonClick 1754 OnClick = ExportGBButtonClick
1754 end 1755 end
1755 object ToolButton8: TToolButton 1756 object ToolButton8: TToolButton
1756 Left = 79 1757 Left = 120
1757 Height = 22 1758 Height = 39
1758 Top = 0 1759 Top = 0
1759 Caption = 'ToolButton8' 1760 Caption = 'ToolButton8'
1760 Style = tbsDivider 1761 Style = tbsDivider
1761 end 1762 end
1762 object ToolButton6: TToolButton 1763 object ToolButton6: TToolButton
1763 Left = 286 1764 Left = 433
1764 Height = 22 1765 Height = 39
1765 Top = 0 1766 Top = 0
1766 Caption = 'ToolButton6' 1767 Caption = 'ToolButton6'
1767 Style = tbsDivider 1768 Style = tbsDivider
1768 end 1769 end
1769 object ToolButton7: TToolButton 1770 object ToolButton7: TToolButton
1770 Left = 1097 1771 Left = 1775
1771 Height = 22 1772 Height = 39
1772 Top = 0 1773 Top = 0
1773 Caption = 'ToolButton7' 1774 Caption = 'ToolButton7'
1774 Style = tbsSeparator 1775 Style = tbsSeparator
1775 end 1776 end
1776 object OctaveSpinEdit: TSpinEdit 1777 object OctaveSpinEdit: TSpinEdit
1777 Left = 663 1778 Left = 1016
1778 Height = 23 1779 Height = 38
1779 Hint = 'The octave offset for entering new notes' 1780 Hint = 'The octave offset for entering new notes'
1780 Top = 0 1781 Top = 0
1781 Width = 65 1782 Width = 114
1782 MaxValue = 5 1783 MaxValue = 5
1783 OnChange = OctaveSpinEditChange 1784 OnChange = OctaveSpinEditChange
1784 ParentFont = False 1785 ParentFont = False
1785 TabOrder = 0 1786 TabOrder = 0
1786 end 1787 end
1787 object ToolButton9: TToolButton 1788 object ToolButton9: TToolButton
1788 Left = 612 1789 Left = 927
1789 Height = 22 1790 Height = 39
1790 Top = 0 1791 Top = 0
1791 Caption = 'ToolButton9' 1792 Caption = 'ToolButton9'
1792 Style = tbsSeparator 1793 Style = tbsSeparator
1793 end 1794 end
1794 object Label22: TLabel 1795 object Label22: TLabel
1795 Left = 620 1796 Left = 941
1796 Height = 22 1797 Height = 39
1797 Top = 0 1798 Top = 0
1798 Width = 43 1799 Width = 75
1799 AutoSize = False 1800 AutoSize = False
1800 Caption = 'Octave ' 1801 Caption = 'Octave '
1801 Layout = tlCenter 1802 Layout = tlCenter
@@ -1803,10 +1804,10 @@ object frmTracker: TfrmTracker
1803 ParentFont = False 1804 ParentFont = False
1804 end 1805 end
1805 object Label23: TLabel 1806 object Label23: TLabel
1806 Left = 728 1807 Left = 1130
1807 Height = 22 1808 Height = 39
1808 Top = 0 1809 Top = 0
1809 Width = 70 1810 Width = 122
1810 AutoSize = False 1811 AutoSize = False
1811 Caption = ' Instrument ' 1812 Caption = ' Instrument '
1812 Layout = tlCenter 1813 Layout = tlCenter
@@ -1814,13 +1815,13 @@ object frmTracker: TfrmTracker
1814 ParentFont = False 1815 ParentFont = False
1815 end 1816 end
1816 object InstrumentComboBox: TComboBox 1817 object InstrumentComboBox: TComboBox
1817 Left = 798 1818 Left = 1252
1818 Height = 23 1819 Height = 38
1819 Hint = 'The selected instrument for new notes' 1820 Hint = 'The selected instrument for new notes'
1820 Top = 0 1821 Top = 0
1821 Width = 214 1822 Width = 374
1822 DropDownCount = 999 1823 DropDownCount = 999
1823 ItemHeight = 15 1824 ItemHeight = 30
1824 ItemIndex = 0 1825 ItemIndex = 0
1825 Items.Strings = ( 1826 Items.Strings = (
1826 '(no instrument)' 1827 '(no instrument)'
@@ -1832,10 +1833,10 @@ object frmTracker: TfrmTracker
1832 Text = '(no instrument)' 1833 Text = '(no instrument)'
1833 end 1834 end
1834 object Label24: TLabel 1835 object Label24: TLabel
1835 Left = 1012 1836 Left = 1626
1836 Height = 22 1837 Height = 39
1837 Top = 0 1838 Top = 0
1838 Width = 35 1839 Width = 61
1839 AutoSize = False 1840 AutoSize = False
1840 Caption = ' Step ' 1841 Caption = ' Step '
1841 Layout = tlCenter 1842 Layout = tlCenter
@@ -1843,23 +1844,23 @@ object frmTracker: TfrmTracker
1843 ParentFont = False 1844 ParentFont = False
1844 end 1845 end
1845 object StepSpinEdit: TSpinEdit 1846 object StepSpinEdit: TSpinEdit
1846 Left = 1047 1847 Left = 1687
1847 Height = 23 1848 Height = 38
1848 Hint = 'How many rows to step down after entering a new note' 1849 Hint = 'How many rows to step down after entering a new note'
1849 Top = 0 1850 Top = 0
1850 Width = 50 1851 Width = 88
1851 MaxValue = 63 1852 MaxValue = 63
1852 OnChange = StepSpinEditChange 1853 OnChange = StepSpinEditChange
1853 ParentFont = False 1854 ParentFont = False
1854 TabOrder = 2 1855 TabOrder = 2
1855 end 1856 end
1856 object ToolButton3: TToolButton 1857 object ToolButton3: TToolButton
1857 Left = 84 1858 Left = 129
1858 Top = 0 1859 Top = 0
1859 Action = PlayStartAction 1860 Action = PlayStartAction
1860 end 1861 end
1861 object ExportGBSButton: TToolButton 1862 object ExportGBSButton: TToolButton
1862 Left = 372 1863 Left = 564
1863 Hint = 'Export the song as a GBS soundtrack' 1864 Hint = 'Export the song as a GBS soundtrack'
1864 Top = 0 1865 Top = 0
1865 Caption = 'Export .GBS' 1866 Caption = 'Export .GBS'
@@ -1867,14 +1868,14 @@ object frmTracker: TfrmTracker
1867 OnClick = ExportGBSButtonClick 1868 OnClick = ExportGBSButtonClick
1868 end 1869 end
1869 object ToolButton5: TToolButton 1870 object ToolButton5: TToolButton
1870 Left = 552 1871 Left = 842
1871 Height = 22 1872 Height = 39
1872 Top = 0 1873 Top = 0
1873 Caption = 'ToolButton5' 1874 Caption = 'ToolButton5'
1874 Style = tbsDivider 1875 Style = tbsDivider
1875 end 1876 end
1876 object ToolButton10: TToolButton 1877 object ToolButton10: TToolButton
1877 Left = 459 1878 Left = 697
1878 Hint = 'Export the song as WAV or MP3' 1879 Hint = 'Export the song as WAV or MP3'
1879 Top = 0 1880 Top = 0
1880 Caption = 'Render Song' 1881 Caption = 'Render Song'
@@ -1884,8 +1885,8 @@ object frmTracker: TfrmTracker
1884 end 1885 end
1885 object MainMenu1: TMainMenu 1886 object MainMenu1: TMainMenu
1886 Images = ImageList1 1887 Images = ImageList1
1887 Left = 40 1888 Left = 70
1888 Top = 32 1889 Top = 56
1889 object MenuItem1: TMenuItem 1890 object MenuItem1: TMenuItem
1890 Caption = 'File' 1891 Caption = 'File'
1891 object MenuItem33: TMenuItem 1892 object MenuItem33: TMenuItem
@@ -2031,8 +2032,8 @@ object frmTracker: TfrmTracker
2031 end 2032 end
2032 object MenuBarActionList: TActionList 2033 object MenuBarActionList: TActionList
2033 Images = ImageList1 2034 Images = ImageList1
2034 Left = 104 2035 Left = 182
2035 Top = 72 2036 Top = 126
2036 object FileOpen1: TFileOpen 2037 object FileOpen1: TFileOpen
2037 Category = 'File' 2038 Category = 'File'
2038 Caption = '&Open ...' 2039 Caption = '&Open ...'
@@ -2135,8 +2136,8 @@ object frmTracker: TfrmTracker
2135 end 2136 end
2136 end 2137 end
2137 object ImageList1: TImageList 2138 object ImageList1: TImageList
2138 Left = 152 2139 Left = 266
2139 Top = 32 2140 Top = 56
2140 Bitmap = { 2141 Bitmap = {
2141 4C694E0000001000000010000000000000000000000000000000000000000000 2142 4C694E0000001000000010000000000000000000000000000000000000000000
2142 0000000000000000000000000000000000000000000000000000000000000000 2143 0000000000000000000000000000000000000000000000000000000000000000
@@ -4639,17 +4640,17 @@ object frmTracker: TfrmTracker
4639 end 4640 end
4640 object OpenDialog1: TOpenDialog 4641 object OpenDialog1: TOpenDialog
4641 Filter = 'hUGETracker Instruments|*.ugi' 4642 Filter = 'hUGETracker Instruments|*.ugi'
4642 Left = 80 4643 Left = 140
4643 Top = 56 4644 Top = 98
4644 end 4645 end
4645 object InstrumentSaveDialog: TSaveDialog 4646 object InstrumentSaveDialog: TSaveDialog
4646 Filter = 'hUGETracker Instruments|*.ugi' 4647 Filter = 'hUGETracker Instruments|*.ugi'
4647 Left = 80 4648 Left = 140
4648 Top = 56 4649 Top = 98
4649 end 4650 end
4650 object OrderEditPopup: TPopupMenu 4651 object OrderEditPopup: TPopupMenu
4651 Left = 128 4652 Left = 224
4652 Top = 40 4653 Top = 70
4653 object MenuItem17: TMenuItem 4654 object MenuItem17: TMenuItem
4654 Caption = 'Insert new row' 4655 Caption = 'Insert new row'
4655 Hint = 'Insert a new row filled with brand new patterns' 4656 Hint = 'Insert a new row filled with brand new patterns'
@@ -4680,8 +4681,8 @@ object frmTracker: TfrmTracker
4680 object ImageList2: TImageList 4681 object ImageList2: TImageList
4681 Height = 32 4682 Height = 32
4682 Width = 32 4683 Width = 32
4683 Left = 48 4684 Left = 84
4684 Top = 86 4685 Top = 151
4685 Bitmap = { 4686 Bitmap = {
4686 4C69020000002000000020000000000000000000000000000000000000000000 4687 4C69020000002000000020000000000000000000000000000000000000000000
4687 0000000000000000000000000000000000000000000000000000000000000000 4688 0000000000000000000000000000000000000000000000000000000000000000
@@ -4946,33 +4947,33 @@ object frmTracker: TfrmTracker
4946 Enabled = False 4947 Enabled = False
4947 Interval = 200 4948 Interval = 200
4948 OnTimer = OscilloscopeUpdateTimerTimer 4949 OnTimer = OscilloscopeUpdateTimerTimer
4949 Left = 88 4950 Left = 154
4950 Top = 48 4951 Top = 84
4951 end 4952 end
4952 object GBSSaveDialog: TSaveDialog 4953 object GBSSaveDialog: TSaveDialog
4953 Filter = 'Gameboy Soundtrack|*.gbs' 4954 Filter = 'Gameboy Soundtrack|*.gbs'
4954 Left = 288 4955 Left = 504
4955 Top = 24 4956 Top = 42
4956 end 4957 end
4957 object WaveSaveDialog: TSaveDialog 4958 object WaveSaveDialog: TSaveDialog
4958 Filter = 'hUGETracker Waves|*.ugw' 4959 Filter = 'hUGETracker Waves|*.ugw'
4959 Left = 368 4960 Left = 644
4960 Top = 24 4961 Top = 42
4961 end 4962 end
4962 object GBSaveDialog: TSaveDialog 4963 object GBSaveDialog: TSaveDialog
4963 Filter = 'Gameboy ROM|*.GB' 4964 Filter = 'Gameboy ROM|*.GB'
4964 Left = 328 4965 Left = 574
4965 Top = 24 4966 Top = 42
4966 end 4967 end
4967 object NoteHaltTimer: TTimer 4968 object NoteHaltTimer: TTimer
4968 Enabled = False 4969 Enabled = False
4969 OnTimer = NoteHaltTimerTimer 4970 OnTimer = NoteHaltTimerTimer
4970 Left = 80 4971 Left = 140
4971 Top = 86 4972 Top = 151
4972 end 4973 end
4973 object TrackerGridPopup: TPopupMenu 4974 object TrackerGridPopup: TPopupMenu
4974 Left = 96 4975 Left = 168
4975 Top = 24 4976 Top = 42
4976 object TrackerPopupEditEffect: TMenuItem 4977 object TrackerPopupEditEffect: TMenuItem
4977 Caption = 'Edit effect ...' 4978 Caption = 'Edit effect ...'
4978 OnClick = TrackerPopupEditEffectClick 4979 OnClick = TrackerPopupEditEffectClick
@@ -5119,8 +5120,8 @@ object frmTracker: TfrmTracker
5119 object WavSaveDialog: TSaveDialog 5120 object WavSaveDialog: TSaveDialog
5120 DefaultExt = '.wav' 5121 DefaultExt = '.wav'
5121 Filter = 'Wave files|*.wav' 5122 Filter = 'Wave files|*.wav'
5122 Left = 408 5123 Left = 714
5123 Top = 24 5124 Top = 42
5124 end 5125 end
5125 object SynAnySyn1: TSynAnySyn 5126 object SynAnySyn1: TSynAnySyn
5126 Enabled = False 5127 Enabled = False
@@ -5244,18 +5245,18 @@ object frmTracker: TfrmTracker
5244 Entity = False 5245 Entity = False
5245 DollarVariables = False 5246 DollarVariables = False
5246 ActiveDot = False 5247 ActiveDot = False
5247 Left = 8 5248 Left = 14
5248 Top = 86 5249 Top = 151
5249 end 5250 end
5250 object MODOpenDialog: TOpenDialog 5251 object MODOpenDialog: TOpenDialog
5251 DefaultExt = '.mod' 5252 DefaultExt = '.mod'
5252 Filter = 'GBT Player MOD files|*.mod' 5253 Filter = 'GBT Player MOD files|*.mod'
5253 Left = 448 5254 Left = 784
5254 Top = 32 5255 Top = 56
5255 end 5256 end
5256 object WaveEditPopup: TPopupMenu 5257 object WaveEditPopup: TPopupMenu
5257 Left = 8 5258 Left = 14
5258 Top = 32 5259 Top = 56
5259 object MenuItem37: TMenuItem 5260 object MenuItem37: TMenuItem
5260 Caption = 'Copy' 5261 Caption = 'Copy'
5261 OnClick = MenuItem37Click 5262 OnClick = MenuItem37Click
@@ -5267,8 +5268,8 @@ object frmTracker: TfrmTracker
5267 end 5268 end
5268 object ShortcutsActionList: TActionList 5269 object ShortcutsActionList: TActionList
5269 Images = ImageList1 5270 Images = ImageList1
5270 Left = 208 5271 Left = 364
5271 Top = 32 5272 Top = 56
5272 object PlayStartAction: TAction 5273 object PlayStartAction: TAction
5273 Caption = '▶️ Start' 5274 Caption = '▶️ Start'
5274 DisableIfNoHandler = False 5275 DisableIfNoHandler = False
@@ -5383,17 +5384,17 @@ object frmTracker: TfrmTracker
5383 end 5384 end
5384 object GBDKCSaveDialog: TSaveDialog 5385 object GBDKCSaveDialog: TSaveDialog
5385 Filter = 'GBDK C File|*.c' 5386 Filter = 'GBDK C File|*.c'
5386 Left = 248 5387 Left = 434
5387 Top = 24 5388 Top = 42
5388 end 5389 end
5389 object RGBDSObjSaveDialog: TSaveDialog 5390 object RGBDSObjSaveDialog: TSaveDialog
5390 Filter = 'RGBDS Object|*.obj' 5391 Filter = 'RGBDS Object|*.obj'
5391 Left = 248 5392 Left = 434
5392 Top = 64 5393 Top = 112
5393 end 5394 end
5394 object GBDKObjSaveDialog: TSaveDialog 5395 object GBDKObjSaveDialog: TSaveDialog
5395 Filter = 'GBDK Object|*.o' 5396 Filter = 'GBDK Object|*.o'
5396 Left = 288 5397 Left = 504
5397 Top = 64 5398 Top = 112
5398 end 5399 end
5399 end 5400 end
Modifiedtracker.pas +0−17
@@ -452,8 +452,6 @@ type
452 procedure FDCallback; 452 procedure FDCallback;
453 453
454 procedure OnFD(var Msg: TLMessage); message LM_FD; 454 procedure OnFD(var Msg: TLMessage); message LM_FD;
455 procedure OnUndoOccured(var Msg: TLMessage); message LM_UNDO_OCCURED;
456 procedure OnNotePlaced(var Msg: TLMessage); message LM_PREVIEW_NOTE;
457 procedure OnSampleSongMenuItemClicked(Sender: TObject); 455 procedure OnSampleSongMenuItemClicked(Sender: TObject);
458 456
459 procedure CreateKeymap; 457 procedure CreateKeymap;
@@ -995,21 +993,6 @@ begin
995 InFDCallback := False; // HACK!!!!!!!! 993 InFDCallback := False; // HACK!!!!!!!!
996 end; 994 end;
997 995
998 procedure TfrmTracker.OnUndoOccured(var Msg: TLMessage);
999 begin
1000 with OrderEditStringGrid do
1001 {if (Msg.lParamhi <> StrToInt(Rows[Row][0])) or
1002 (Msg.lParamhi <> StrToInt(Rows[Row][1])) or
1003 (Msg.lParamhi <> StrToInt(Rows[Row][2])) or
1004 (Msg.lParamhi <> StrToInt(Rows[Row][3])) then}
1005 Row := -1;
1006 end;
1007
1008 procedure TfrmTracker.OnNotePlaced(var Msg: TLMessage);
1009 begin
1010 PreviewInstrument(msg.wParam, msg.lParam);
1011 end;
1012
1013 procedure TfrmTracker.OnSampleSongMenuItemClicked(Sender: TObject); 996 procedure TfrmTracker.OnSampleSongMenuItemClicked(Sender: TObject);
1014 begin 997 begin
1015 LoadSong('Sample Songs/'+TMenuItem(Sender).Caption); 998 LoadSong('Sample Songs/'+TMenuItem(Sender).Caption);