@@ -62,10 +62,10 @@ object frmTracker: TfrmTracker
6262 Height = 684
6363 Top = 0
6464 Width = 1218
65- ActivePage = PatternTabSheet
65+ ActivePage = InstrumentTabSheet
6666 Align = alClient
6767 ParentFont = False
68- TabIndex = 1
68+ TabIndex = 2
6969 TabOrder = 0
7070 object GeneralTabSheet: TTabSheet
7171 Caption = 'General'
@@ -456,6 +456,18 @@ object frmTracker: TfrmTracker
456456 ClientWidth = 276
457457 ParentFont = False
458458 TabOrder = 0
459+ object LengthTrackbar: TTrackBar
460+ Left = 76
461+ Height = 44
462+ Top = 112
463+ Width = 189
464+ Max = 63
465+ OnChange = LengthSpinnerChange
466+ Position = 0
467+ Enabled = False
468+ ParentFont = False
469+ TabOrder = 7
470+ end
459471 object InstrumentNumberSpinner: TSpinEdit
460472 Left = 80
461473 Height = 27
@@ -572,18 +584,6 @@ object frmTracker: TfrmTracker
572584 TabOrder = 6
573585 OnClick = TestOctaveButtonClick
574586 end
575- object LengthTrackbar: TTrackBar
576- Left = 76
577- Height = 44
578- Top = 112
579- Width = 189
580- Max = 63
581- OnChange = LengthSpinnerChange
582- Position = 0
583- Enabled = False
584- ParentFont = False
585- TabOrder = 7
586- end
587587 object Label14: TLabel
588588 Left = 12
589589 Height = 17
@@ -665,7 +665,7 @@ object frmTracker: TfrmTracker
665665 end
666666 object EnvelopeGroupBox: TGroupBox
667667 Left = 301
668- Height = 136
668+ Height = 153
669669 Top = 7
670670 Width = 582
671671 Anchors = []
@@ -674,10 +674,32 @@ object frmTracker: TfrmTracker
674674 BorderSpacing.Right = 7
675675 BorderSpacing.Bottom = 7
676676 Caption = 'Envelope'
677- ClientHeight = 117
677+ ClientHeight = 134
678678 ClientWidth = 578
679679 ParentFont = False
680680 TabOrder = 1
681+ object EnvChangeTrackbar: TTrackBar
682+ Left = 82
683+ Height = 44
684+ Top = 82
685+ Width = 196
686+ Max = 7
687+ OnChange = EnvChangeSpinnerChange
688+ Position = 0
689+ ParentFont = False
690+ TabOrder = 3
691+ end
692+ object StartVolTrackbar: TTrackBar
693+ Left = 82
694+ Height = 44
695+ Top = 8
696+ Width = 196
697+ Max = 15
698+ OnChange = StartVolSpinnerChange
699+ Position = 0
700+ ParentFont = False
701+ TabOrder = 2
702+ end
681703 object Label4: TLabel
682704 Left = 8
683705 Height = 17
@@ -744,28 +766,6 @@ object frmTracker: TfrmTracker
744766 OnPaint = EnvelopePaintboxPaint
745767 end
746768 end
747- object StartVolTrackbar: TTrackBar
748- Left = 82
749- Height = 44
750- Top = 8
751- Width = 196
752- Max = 15
753- OnChange = StartVolSpinnerChange
754- Position = 0
755- ParentFont = False
756- TabOrder = 2
757- end
758- object EnvChangeTrackbar: TTrackBar
759- Left = 82
760- Height = 44
761- Top = 82
762- Width = 196
763- Max = 7
764- OnChange = EnvChangeSpinnerChange
765- Position = 0
766- ParentFont = False
767- TabOrder = 3
768- end
769769 end
770770 object SquareGroupBox: TGroupBox
771771 Left = 7
@@ -782,6 +782,17 @@ object frmTracker: TfrmTracker
782782 ClientWidth = 315
783783 ParentFont = False
784784 TabOrder = 2
785+ object SweepSizeTrackbar: TTrackBar
786+ Left = 105
787+ Height = 44
788+ Top = 80
789+ Width = 196
790+ Max = 7
791+ OnChange = SweepSizeSpinnerChange
792+ Position = 0
793+ ParentFont = False
794+ TabOrder = 3
795+ end
785796 object Label7: TLabel
786797 Left = 8
787798 Height = 17
@@ -886,17 +897,6 @@ object frmTracker: TfrmTracker
886897 Text = '50% (square)'
887898 OnChange = DutyComboboxChange
888899 end
889- object SweepSizeTrackbar: TTrackBar
890- Left = 105
891- Height = 44
892- Top = 80
893- Width = 196
894- Max = 7
895- OnChange = SweepSizeSpinnerChange
896- Position = 0
897- ParentFont = False
898- TabOrder = 3
899- end
900900 end
901901 object WaveGroupBox: TGroupBox
902902 Left = 340
0 commit comments