Commit `2042c07`

Nick Faro committed on Apr 23, 2023

Change selection when right clicking order grid

commit 2042c07be26d383718775d6624b39bb7c9f0e511 parent 5d1f846

2 changed files +561−547

Modifiedsrc/tracker.lfm +549−546

 object frmTracker: TfrmTracker
-  Left = 1751
+  Left = 571
-  Height = 819
+  Height = 1049
   Top = 191
-  Width = 1301
+  Width = 1667
   AllowDropFiles = True
   Caption = 'hUGETracker'
-  ClientHeight = 799
+  ClientHeight = 1023
-  ClientWidth = 1301
+  ClientWidth = 1667
+  DesignTimePPI = 123
   KeyPreview = True
   Menu = MainMenu1
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow
   Position = poDefault
   ShowHint = True
-  LCLVersion = '2.2.5.0'
+  LCLVersion = '2.2.7.0'
   object TreeView1: TTreeView
     Left = 0
-    Height = 687
+    Height = 881
-    Top = 89
+    Top = 116
-    Width = 193
+    Width = 247
     Align = alLeft
     ParentFont = False
     ReadOnly = True
     }
   end
   object Splitter1: TSplitter
-    Left = 193
+    Left = 247
-    Height = 687
+    Height = 881
-    Top = 89
+    Top = 116
-    Width = 5
+    Width = 6
   end
   object Panel1: TPanel
-    Left = 198
+    Left = 253
-    Height = 687
+    Height = 881
-    Top = 89
+    Top = 116
-    Width = 1103
+    Width = 1414
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 687
+    ClientHeight = 881
-    ClientWidth = 1103
+    ClientWidth = 1414
     ParentFont = False
     TabOrder = 2
     object PageControl1: TPageControl
       Left = 0
-      Height = 687
+      Height = 881
       Top = 0
-      Width = 1103
+      Width = 1414
       ActivePage = PatternTabSheet
       Align = alClient
       ParentFont = False
       TabOrder = 0
       object GeneralTabSheet: TTabSheet
         Caption = 'General'
-        ClientHeight = 659
+        ClientHeight = 841
-        ClientWidth = 1095
+        ClientWidth = 1408
         ParentFont = False
         object SongInformationGroupbox: TGroupBox
-          Left = 8
+          Left = 10
-          Height = 192
+          Height = 246
-          Top = 8
+          Top = 10
-          Width = 297
+          Width = 381
           Caption = 'Song information'
-          ClientHeight = 172
+          ClientHeight = 242
-          ClientWidth = 293
+          ClientWidth = 377
           ParentFont = False
           TabOrder = 0
           object Label15: TLabel
-            Left = 8
+            Left = 10
-            Height = 15
+            Height = 22
-            Top = 16
+            Top = 20
-            Width = 27
+            Width = 36
             Caption = 'Song'
             ParentColor = False
             ParentFont = False
           end
           object Label16: TLabel
-            Left = 7
+            Left = 9
-            Height = 15
+            Height = 22
-            Top = 48
+            Top = 62
-            Width = 28
+            Width = 39
             Caption = 'Artist'
             ParentColor = False
             ParentFont = False
           end
           object SongEdit: TEdit
-            Left = 56
+            Left = 72
-            Height = 23
+            Height = 32
             Hint = 'The name of your composition'
-            Top = 8
+            Top = 10
-            Width = 216
+            Width = 277
             MaxLength = 255
             OnChange = SongEditChange
             ParentFont = False
             TabOrder = 0
           end
           object ArtistEdit: TEdit
-            Left = 56
+            Left = 72
-            Height = 23
+            Height = 32
             Hint = 'Your name or handle'
-            Top = 40
+            Top = 51
-            Width = 216
+            Width = 277
             MaxLength = 255
             OnChange = ArtistEditChange
             ParentFont = False
             TabOrder = 1
           end
           object Label21: TLabel
-            Left = 8
+            Left = 10
-            Height = 15
+            Height = 22
-            Top = 78
+            Top = 100
-            Width = 114
+            Width = 153
             Caption = 'Tempo (ticks per row)'
             ParentColor = False
             ParentFont = False
           end
           object TicksPerRowSpinEdit: TSpinEdit
-            Left = 133
+            Left = 170
-            Height = 23
+            Height = 32
             Hint = 'How many ticks should happen before the row changes. Higher means slower.'
-            Top = 72
+            Top = 92
-            Width = 50
+            Width = 64
             MaxValue = 20
             MinValue = 1
             OnChange = TicksPerRowSpinEditChange
             Value = 7
           end
           object TimerEnabledCheckBox: TCheckBox
-            Left = 7
+            Left = 9
-            Height = 19
+            Height = 24
             Hint = 'Enable the GB hardware timer. This allows for more fine-grained tempo control.'
-            Top = 144
+            Top = 184
-            Width = 160
+            Width = 215
             Caption = 'Enable timer-based tempo'
             OnChange = TimerEnabledCheckBoxChange
             TabOrder = 3
           end
           object TimerTempoLabel: TLabel
-            Left = 8
+            Left = 10
-            Height = 15
+            Height = 22
-            Top = 112
+            Top = 144
-            Width = 114
+            Width = 154
             Caption = 'Tempo (timer divider)'
             Enabled = False
             ParentColor = False
           end
           object TimerDividerSpinEdit: TSpinEdit
-            Left = 133
+            Left = 170
-            Height = 23
+            Height = 32
             Hint = 'The "modulo" value for the GB hardware timer. Higher means faster.'
-            Top = 108
+            Top = 138
-            Width = 50
+            Width = 64
             Enabled = False
             MaxValue = 255
             OnChange = TimerDividerSpinEditChange
             TabOrder = 4
           end
           object TempoBPMLabel: TLabel
-            Left = 192
+            Left = 246
-            Height = 15
+            Height = 22
-            Top = 96
+            Top = 123
-            Width = 89
+            Width = 120
             Caption = 'TempoBPMLabel'
             ParentColor = False
           end
       end
       object PatternTabSheet: TTabSheet
         Caption = 'Patterns'
-        ClientHeight = 659
+        ClientHeight = 841
-        ClientWidth = 1095
+        ClientWidth = 1408
         ParentFont = False
         object Panel3: TPanel
-          Left = 224
+          Left = 287
-          Height = 659
+          Height = 841
           Top = 0
-          Width = 871
+          Width = 1121
           Align = alClient
-          ClientHeight = 659
+          ClientHeight = 841
-          ClientWidth = 871
+          ClientWidth = 1121
           ParentFont = False
           TabOrder = 0
           object HeaderControl1: THeaderControl
             Left = 1
-            Height = 30
+            Height = 38
             Hint = 'Left click to mute, right click to solo'
             Top = 1
-            Width = 869
+            Width = 1119
             DragReorder = False
             Images = ImageList2
             Sections = <
               item
                 Alignment = taLeftJustify
-                Width = 32
+                Width = 41
                 Visible = True
               end
               item
                 Alignment = taCenter
                 ImageIndex = 1
                 Text = 'Duty 1'
-                Width = 133
+                Width = 170
                 Visible = True
               end
               item
                 Alignment = taCenter
                 ImageIndex = 1
                 Text = 'Duty 2'
-                Width = 133
+                Width = 170
                 Visible = True
               end
               item
                 Alignment = taCenter
                 ImageIndex = 1
                 Text = 'Wave'
-                Width = 133
+                Width = 170
                 Visible = True
               end
               item
                 Alignment = taCenter
                 ImageIndex = 1
                 Text = 'Noise'
-                Width = 133
+                Width = 170
                 Visible = True
               end>
             OnSectionClick = HeaderControl1SectionClick
           end
           object ScrollBox1: TScrollBox
             Left = 1
-            Height = 627
+            Height = 801
-            Top = 31
+            Top = 39
-            Width = 869
+            Width = 1119
-            HorzScrollBar.Increment = 3
+            HorzScrollBar.Increment = 4
-            HorzScrollBar.Page = 32
+            HorzScrollBar.Page = 41
             HorzScrollBar.Smooth = True
             HorzScrollBar.Tracking = True
-            VertScrollBar.Increment = 5
+            VertScrollBar.Increment = 6
-            VertScrollBar.Page = 50
+            VertScrollBar.Page = 64
             VertScrollBar.Smooth = True
             VertScrollBar.Tracking = True
             Align = alClient
             BorderStyle = bsNone
-            ClientHeight = 627
+            ClientHeight = 801
-            ClientWidth = 869
+            ClientWidth = 1119
             ParentFont = False
             TabOrder = 1
             OnMouseWheelDown = ScrollBox1MouseWheelDown
             OnMouseWheelUp = ScrollBox1MouseWheelUp
             object RowNumberStringGrid: TStringGrid
               Left = 0
-              Height = 627
+              Height = 801
               Top = 0
-              Width = 32
+              Width = 41
               Align = alLeft
               BorderStyle = bsNone
               ColCount = 1
-              DefaultColWidth = 32
+              DefaultColWidth = 41
               Enabled = False
               ParentFont = False
               RowCount = 64
         end
         object OrderEditStringGrid: TStringGrid
           Left = 0
-          Height = 659
+          Height = 841
           Top = 0
-          Width = 224
+          Width = 287
           Align = alLeft
           AutoEdit = False
           AutoFillColumns = True
           Columns = <
             item
               Alignment = taCenter
-              MinSize = 33
+              MinSize = 42
-              MaxSize = 33
+              MaxSize = 42
               Title.Caption = 'Dty1'
-              Width = 34
+              Width = 47
             end
             item
               Alignment = taCenter
-              MinSize = 33
+              MinSize = 42
-              MaxSize = 33
+              MaxSize = 42
               Title.Caption = 'Dty2'
-              Width = 34
+              Width = 47
             end
             item
               Alignment = taCenter
-              MinSize = 33
+              MinSize = 42
-              MaxSize = 33
+              MaxSize = 42
               Title.Caption = 'Wav'
-              Width = 34
+              Width = 47
             end
             item
               Alignment = taCenter
-              MinSize = 33
+              MinSize = 42
-              MaxSize = 33
+              MaxSize = 42
               Title.Caption = 'Nse'
-              Width = 37
+              Width = 47
             end>
-          DefaultColWidth = 17
+          DefaultColWidth = 22
-          DefaultRowHeight = 21
+          DefaultRowHeight = 27
           ExtendedSelect = False
           Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goRangeSelect, goRowMoving, goEditing, goTabs, goSmoothScroll, goFixedRowNumbering, goRowHighlight]
           ParentFont = False
           OnColRowInserted = OrderEditStringGridColRowInserted
           OnDblClick = OrderEditStringGridDblClick
           OnKeyDown = OrderEditStringGridKeyDown
+          OnMouseDown = OrderEditStringGridMouseDown
           OnValidateEntry = OrderEditStringGridValidateEntry
           ColWidths = (
-            64
+            82
-            34
+            47
-            34
+            47
-            34
+            47
-            37
+            47
           )
         end
       end
       object InstrumentTabSheet: TTabSheet
         Caption = 'Instruments'
-        ClientHeight = 659
+        ClientHeight = 841
-        ClientWidth = 1095
+        ClientWidth = 1408
         ParentFont = False
         object FlowPanel1: TFlowPanel
           Left = 0
-          Height = 659
+          Height = 841
           Top = 0
-          Width = 935
+          Width = 1203
           Align = alClient
           AutoSize = True
           BevelOuter = bvNone
           ParentFont = False
           TabOrder = 0
           object InstrumentGroupBox: TGroupBox
-            Left = 7
+            Left = 9
-            Height = 273
+            Height = 350
-            Top = 7
+            Top = 9
-            Width = 280
+            Width = 359
             Anchors = []
-            BorderSpacing.Left = 7
+            BorderSpacing.Left = 9
-            BorderSpacing.Top = 7
+            BorderSpacing.Top = 9
-            BorderSpacing.Right = 7
+            BorderSpacing.Right = 9
-            BorderSpacing.Bottom = 7
+            BorderSpacing.Bottom = 9
             Caption = 'Instrument'
-            ClientHeight = 253
+            ClientHeight = 346
-            ClientWidth = 276
+            ClientWidth = 355
             ParentFont = False
             TabOrder = 0
             object InstrumentNumberSpinner: TSpinEdit
-              Left = 80
+              Left = 102
-              Height = 23
+              Height = 32
               Hint = 'What instrument to edit'
-              Top = 38
+              Top = 49
-              Width = 187
+              Width = 240
               MaxValue = 15
               MinValue = 1
               OnChange = InstrumentNumberSpinnerChange
               Value = 1
             end
             object Label1: TLabel
-              Left = 8
+              Left = 10
-              Height = 15
+              Height = 22
-              Top = 46
+              Top = 59
-              Width = 58
+              Width = 83
               Caption = 'Instrument'
               ParentColor = False
               ParentFont = False
             end
             object Label2: TLabel
-              Left = 8
+              Left = 10
-              Height = 15
+              Height = 22
-              Top = 78
+              Top = 100
-              Width = 32
+              Width = 44
               Caption = 'Name'
               ParentColor = False
               ParentFont = False
             end
             object InstrumentNameEdit: TEdit
-              Left = 80
+              Left = 102
-              Height = 23
+              Height = 32
               Hint = 'The name of the instrument'
-              Top = 70
+              Top = 90
-              Width = 187
+              Width = 240
               MaxLength = 255
               OnChange = InstrumentNameEditChange
               ParentFont = False
               TabOrder = 1
             end
             object Label3: TLabel
-              Left = 8
+              Left = 10
-              Height = 15
+              Height = 22
-              Top = 16
+              Top = 20
-              Width = 44
+              Width = 63
               Caption = 'Channel'
               Font.Style = [fsBold]
               ParentColor = False
               ParentFont = False
             end
             object InstrumentTypeCombobox: TComboBox
-              Left = 80
+              Left = 102
-              Height = 23
+              Height = 30
               Hint = 'What type of channel this instrument will be played on'
-              Top = 8
+              Top = 10
-              Width = 185
+              Width = 237
-              ItemHeight = 15
+              ItemHeight = 0
               ItemIndex = 0
               Items.Strings = (
                 'Square'
               Text = 'Square'
             end
             object LengthEnabledCheckbox: TCheckBox
-              Left = 12
+              Left = 15
-              Height = 19
+              Height = 24
               Hint = 'Cut the sound after a certain length of time'
-              Top = 118
+              Top = 151
-              Width = 57
+              Width = 75
               Caption = 'Length'
               OnChange = LengthEnabledCheckboxChange
               ParentFont = False
               TabOrder = 3
             end
             object InstrumentImportButton: TButton
-              Left = 12
+              Left = 15
-              Height = 25
+              Height = 32
               Hint = 'Import an instrument'
-              Top = 216
+              Top = 277
-              Width = 116
+              Width = 149
               Caption = 'Import'
               OnClick = InstrumentImportButtonClick
               ParentFont = False
               TabOrder = 4
             end
             object InstrumentExportButton: TButton
-              Left = 149
+              Left = 191
-              Height = 25
+              Height = 32
               Hint = 'Export an instrument'
-              Top = 216
+              Top = 277
-              Width = 116
+              Width = 149
               Caption = 'Export'
               OnClick = InstrumentExportButtonClick
               ParentFont = False
             end
             object TestOctave5Button: TButton
               Tag = 5
-              Left = 142
+              Left = 182
-              Height = 25
+              Height = 32
               Hint = 'Test out the instrument with a C-5 note'
-              Top = 146
+              Top = 187
-              Width = 27
+              Width = 35
               Caption = '5'
               OnClick = TestOctaveButtonClick
               ParentFont = False
               TabOrder = 6
             end
             object LengthTrackbar: TTrackBar
-              Left = 76
+              Left = 97
-              Height = 25
+              Height = 55
-              Top = 112
+              Top = 144
-              Width = 189
+              Width = 242
               Max = 63
               OnChange = LengthSpinnerChange
               Position = 0
               TabOrder = 7
             end
             object Label14: TLabel
-              Left = 12
+              Left = 15
-              Height = 15
+              Height = 22
-              Top = 152
+              Top = 195
-              Width = 61
+              Width = 85
               Caption = 'Test octave:'
               ParentColor = False
               ParentFont = False
             end
             object TestOctave5Button1: TButton
               Tag = 4
-              Left = 110
+              Left = 141
-              Height = 25
+              Height = 32
               Hint = 'Test out the instrument with a C-4 note'
-              Top = 146
+              Top = 187
-              Width = 27
+              Width = 35
               Caption = '4'
               OnClick = TestOctaveButtonClick
               ParentFont = False
             end
             object TestOctave5Button2: TButton
               Tag = 3
-              Left = 78
+              Left = 100
-              Height = 25
+              Height = 32
               Hint = 'Test out the instrument with a C-3 note'
-              Top = 146
+              Top = 187
-              Width = 27
+              Width = 35
               Caption = '3'
               OnClick = TestOctaveButtonClick
               ParentFont = False
             end
             object TestOctave5Button3: TButton
               Tag = 6
-              Left = 174
+              Left = 223
-              Height = 25
+              Height = 32
               Hint = 'Test out the instrument with a C-6 note'
-              Top = 146
+              Top = 187
-              Width = 27
+              Width = 35
               Caption = '6'
               OnClick = TestOctaveButtonClick
               ParentFont = False
             end
             object TestOctave5Button4: TButton
               Tag = 7
-              Left = 206
+              Left = 264
-              Height = 25
+              Height = 32
               Hint = 'Test out the instrument with a C-7 note'
-              Top = 146
+              Top = 187
-              Width = 27
+              Width = 35
               Caption = '7'
               OnClick = TestOctaveButtonClick
               ParentFont = False
             end
             object TestOctave5Button5: TButton
               Tag = 8
-              Left = 238
+              Left = 305
-              Height = 25
+              Height = 32
               Hint = 'Test out the instrument with a C-8 note'
-              Top = 146
+              Top = 187
-              Width = 27
+              Width = 35
               Caption = '8'
               OnClick = TestOctaveButtonClick
               ParentFont = False
               TabOrder = 12
             end
             object EnableSubpatternCheckbox: TCheckBox
-              Left = 12
+              Left = 15
-              Height = 19
+              Height = 24
-              Top = 184
+              Top = 236
-              Width = 115
+              Width = 158
               Caption = 'Enable subpattern'
               OnChange = EnableSubpatternCheckboxChange
               TabOrder = 13
             end
           end
           object EnvelopeGroupBox: TGroupBox
-            Left = 301
+            Left = 386
-            Height = 136
+            Height = 174
-            Top = 7
+            Top = 9
-            Width = 582
+            Width = 746
             Anchors = []
-            BorderSpacing.Left = 7
+            BorderSpacing.Left = 9
-            BorderSpacing.Top = 7
+            BorderSpacing.Top = 9
-            BorderSpacing.Right = 7
+            BorderSpacing.Right = 9
-            BorderSpacing.Bottom = 7
+            BorderSpacing.Bottom = 9
             Caption = 'Envelope'
-            ClientHeight = 116
+            ClientHeight = 170
-            ClientWidth = 578
+            ClientWidth = 742
             ParentFont = False
             TabOrder = 1
             object Label4: TLabel
-              Left = 8
+              Left = 10
-              Height = 15
+              Height = 22
-              Top = 16
+              Top = 20
-              Width = 46
+              Width = 64
               Caption = 'Start vol.'
               ParentColor = False
               ParentFont = False
             end
             object Label5: TLabel
-              Left = 8
+              Left = 10
-              Height = 15
+              Height = 22
-              Top = 54
+              Top = 69
-              Width = 48
+              Width = 66
               Caption = 'Direction'
               ParentColor = False
               ParentFont = False
             end
             object DirectionComboBox: TComboBox
-              Left = 82
+              Left = 105
-              Height = 23
+              Height = 30
               Hint = 'Whether to fade the sound in or out'
-              Top = 46
+              Top = 59
-              Width = 198
+              Width = 254
-              ItemHeight = 15
+              ItemHeight = 0
               ItemIndex = 1
               Items.Strings = (
                 'Up'
               Text = 'Down'
             end
             object Label6: TLabel
-              Left = 8
+              Left = 10
-              Height = 15
+              Height = 22
-              Top = 90
+              Top = 115
-              Width = 41
+              Width = 57
               Caption = 'Change'
               ParentColor = False
               ParentFont = False
             end
             object Panel5: TPanel
-              Left = 300
+              Left = 384
-              Height = 104
+              Height = 133
               Top = 0
-              Width = 270
+              Width = 346
               BevelOuter = bvLowered
-              ClientHeight = 104
+              ClientHeight = 129
-              ClientWidth = 270
+              ClientWidth = 342
               ParentFont = False
               TabOrder = 1
               object EnvelopePaintbox: TPaintBox
                 Left = 1
-                Height = 102
+                Height = 127
                 Hint = 'Preview of the volume envelope'
                 Top = 1
-                Width = 268
+                Width = 340
                 Align = alClient
                 ParentFont = False
                 OnPaint = EnvelopePaintboxPaint
               end
             end
             object StartVolTrackbar: TTrackBar
-              Left = 82
+              Left = 105
-              Height = 25
+              Height = 55
-              Top = 8
+              Top = 10
-              Width = 196
+              Width = 251
               Max = 15
               OnChange = StartVolSpinnerChange
               Position = 0
               TabOrder = 2
             end
             object EnvChangeTrackbar: TTrackBar
-              Left = 82
+              Left = 105
-              Height = 25
+              Height = 55
-              Top = 82
+              Top = 105
-              Width = 196
+              Width = 251
               Max = 7
               OnChange = EnvChangeSpinnerChange
               Position = 0
             end
           end
           object SquareGroupBox: TGroupBox
-            Left = 7
+            Left = 9
-            Height = 169
+            Height = 217
-            Top = 294
+            Top = 377
-            Width = 319
+            Width = 409
             Anchors = []
-            BorderSpacing.Left = 7
+            BorderSpacing.Left = 9
-            BorderSpacing.Top = 7
+            BorderSpacing.Top = 9
-            BorderSpacing.Right = 7
+            BorderSpacing.Right = 9
-            BorderSpacing.Bottom = 7
+            BorderSpacing.Bottom = 9
             Caption = 'Square'
-            ClientHeight = 149
+            ClientHeight = 213
-            ClientWidth = 315
+            ClientWidth = 405
             ParentFont = False
             TabOrder = 2
             object Label7: TLabel
-              Left = 8
+              Left = 10
-              Height = 15
+              Height = 22
-              Top = 16
+              Top = 20
-              Width = 61
+              Width = 84
               Caption = 'Sweep time'
               ParentColor = False
               ParentFont = False
             end
             object SweepTimeCombobox: TComboBox
-              Left = 104
+              Left = 133
-              Height = 23
+              Height = 30
               Hint = 'How long to sweep'
-              Top = 8
+              Top = 10
-              Width = 200
+              Width = 256
-              ItemHeight = 15
+              ItemHeight = 0
               ItemIndex = 0
               Items.Strings = (
                 'Off - no frequency change'
               Text = 'Off - no frequency change'
             end
             object SweepDirectionCombobox: TComboBox
-              Left = 104
+              Left = 133
-              Height = 23
+              Height = 30
               Hint = 'The direction of the sweep'
-              Top = 40
+              Top = 51
-              Width = 200
+              Width = 256
-              ItemHeight = 15
+              ItemHeight = 0
               ItemIndex = 1
               Items.Strings = (
                 'Up'
               Text = 'Down'
             end
             object Label8: TLabel
-              Left = 8
+              Left = 10
-              Height = 15
+              Height = 22
-              Top = 48
+              Top = 62
-              Width = 84
+              Width = 115
               Caption = 'Sweep direction'
               ParentColor = False
               ParentFont = False
             end
             object Label9: TLabel
-              Left = 8
+              Left = 10
-              Height = 15
+              Height = 22
-              Top = 88
+              Top = 113
-              Width = 56
+              Width = 78
               Caption = 'Sweep size'
               ParentColor = False
               ParentFont = False
             end
             object Label10: TLabel
-              Left = 8
+              Left = 10
-              Height = 15
+              Height = 22
-              Top = 120
+              Top = 154
-              Width = 25
+              Width = 35
               Caption = 'Duty'
               ParentColor = False
               ParentFont = False
             end
             object DutyCombobox: TComboBox
-              Left = 104
+              Left = 133
-              Height = 23
+              Height = 30
               Hint = 'Which duty cycle to use (changes timbre of wave)'
-              Top = 112
+              Top = 144
-              Width = 200
+              Width = 256
-              ItemHeight = 15
+              ItemHeight = 0
               ItemIndex = 2
               Items.Strings = (
                 '12.5%'
               Text = '50% (square)'
             end
             object SweepSizeTrackbar: TTrackBar
-              Left = 105
+              Left = 135
-              Height = 25
+              Height = 55
-              Top = 80
+              Top = 102
-              Width = 196
+              Width = 251
               Max = 7
               OnChange = SweepSizeSpinnerChange
               Position = 0
             end
           end
           object WaveGroupBox: TGroupBox
-            Left = 340
+            Left = 436
-            Height = 169
+            Height = 217
-            Top = 294
+            Top = 377
-            Width = 297
+            Width = 381
             Anchors = []
-            BorderSpacing.Left = 7
+            BorderSpacing.Left = 9
-            BorderSpacing.Top = 7
+            BorderSpacing.Top = 9
-            BorderSpacing.Right = 7
+            BorderSpacing.Right = 9
-            BorderSpacing.Bottom = 7
+            BorderSpacing.Bottom = 9
             Caption = 'Wave'
-            ClientHeight = 149
+            ClientHeight = 213
-            ClientWidth = 293
+            ClientWidth = 377
             ParentFont = False
             TabOrder = 3
             object Label11: TLabel
-              Left = 8
+              Left = 10
-              Height = 15
+              Height = 22
-              Top = 16
+              Top = 20
-              Width = 40
+              Width = 55
               Caption = 'Volume'
               ParentColor = False
               ParentFont = False
             end
             object Label12: TLabel
-              Left = 8
+              Left = 10
-              Height = 15
+              Height = 22
-              Top = 48
+              Top = 62
-              Width = 55
+              Width = 74
               Caption = 'Waveform'
               ParentColor = False
               ParentFont = False
             end
             object WaveformCombobox: TComboBox
-              Left = 104
+              Left = 133
-              Height = 23
+              Height = 30
               Hint = 'Which waveform is associated with this instrument'
-              Top = 40
+              Top = 51
-              Width = 176
+              Width = 226
-              ItemHeight = 15
+              ItemHeight = 0
               ItemIndex = 0
               Items.Strings = (
                 'Wave #0'
               Text = 'Wave #0'
             end
             object Panel4: TPanel
-              Left = 8
+              Left = 10
-              Height = 59
+              Height = 76
-              Top = 80
+              Top = 102
-              Width = 272
+              Width = 348
               BevelOuter = bvLowered
-              ClientHeight = 59
+              ClientHeight = 72
-              ClientWidth = 272
+              ClientWidth = 344
               ParentFont = False
               TabOrder = 1
               object WavePaintbox: TPaintBox
                 Left = 1
-                Height = 57
+                Height = 70
                 Hint = 'Preview of the waveform associated with this instrument'
                 Top = 1
-                Width = 270
+                Width = 342
                 Align = alClient
                 Color = clBlack
                 ParentColor = False
               end
             end
             object WaveVolumeCombobox: TComboBox
-              Left = 104
+              Left = 133
-              Height = 23
+              Height = 30
               Hint = 'The initial volume of the wave'
-              Top = 8
+              Top = 10
-              Width = 176
+              Width = 226
-              ItemHeight = 15
+              ItemHeight = 0
               ItemIndex = 1
               Items.Strings = (
                 'Mute (No sound)'
             end
           end
           object NoiseGroupBox: TGroupBox
-            Left = 651
+            Left = 835
-            Height = 59
+            Height = 76
-            Top = 294
+            Top = 377
-            Width = 237
+            Width = 304
             Anchors = []
-            BorderSpacing.Left = 7
+            BorderSpacing.Left = 9
-            BorderSpacing.Top = 7
+            BorderSpacing.Top = 9
-            BorderSpacing.Right = 7
+            BorderSpacing.Right = 9
-            BorderSpacing.Bottom = 7
+            BorderSpacing.Bottom = 9
             Caption = 'Noise'
-            ClientHeight = 39
+            ClientHeight = 52
-            ClientWidth = 233
+            ClientWidth = 300
             ParentFont = False
             TabOrder = 4
             object SevenBitCounterCheckbox: TCheckBox
-              Left = 8
+              Left = 10
-              Height = 19
+              Height = 24
               Hint = 'Select LFSR width. When checked, output will sound like a tone rather than noise'
-              Top = 8
+              Top = 10
-              Width = 215
+              Width = 290
               Alignment = taLeftJustify
               Caption = '7 bit counter (more tone-like output)'
               OnChange = SevenBitCounterCheckboxChange
           end
         end
         object SubpatternGroupBox: TGroupBox
-          Left = 935
+          Left = 1203
-          Height = 652
+          Height = 832
-          Top = 7
+          Top = 9
-          Width = 160
+          Width = 205
           Align = alRight
           Anchors = []
-          BorderSpacing.Top = 7
+          BorderSpacing.Top = 9
           Caption = 'Subpattern'
-          ClientHeight = 632
+          ClientHeight = 808
-          ClientWidth = 156
+          ClientWidth = 201
           TabOrder = 1
           object ScrollBox2: TScrollBox
             Left = 0
-            Height = 632
+            Height = 808
             Top = 0
-            Width = 156
+            Width = 201
-            HorzScrollBar.Increment = 3
+            HorzScrollBar.Increment = 4
-            HorzScrollBar.Page = 32
+            HorzScrollBar.Page = 41
             HorzScrollBar.Smooth = True
             HorzScrollBar.Tracking = True
-            VertScrollBar.Increment = 5
+            VertScrollBar.Increment = 6
-            VertScrollBar.Page = 50
+            VertScrollBar.Page = 64
             VertScrollBar.Smooth = True
             VertScrollBar.Tracking = True
             Align = alClient
             BorderStyle = bsNone
-            ClientHeight = 632
+            ClientHeight = 808
-            ClientWidth = 156
+            ClientWidth = 201
             TabOrder = 0
             OnMouseWheelDown = ScrollBox1MouseWheelDown
             OnMouseWheelUp = ScrollBox1MouseWheelUp
             object RowNumberStringGrid1: TStringGrid
-              Left = 124
+              Left = 160
-              Height = 632
+              Height = 808
               Top = 0
-              Width = 32
+              Width = 41
               Align = alRight
               BorderStyle = bsNone
               ColCount = 1
-              DefaultColWidth = 32
+              DefaultColWidth = 41
               Enabled = False
               ParentFont = False
               RowCount = 32
       end
       object WavesTabSheet: TTabSheet
         Caption = 'Waves'
-        ClientHeight = 659
+        ClientHeight = 841
-        ClientWidth = 1095
+        ClientWidth = 1408
         ParentFont = False
         object WaveEditPaintBox: TPaintBox
           AnchorSideTop.Control = WaveEditGroupBox
           AnchorSideTop.Side = asrBottom
           Left = 0
-          Height = 499
+          Height = 636
-          Top = 160
+          Top = 205
-          Width = 1095
+          Width = 1408
           Align = alBottom
           Anchors = [akTop, akLeft, akRight, akBottom]
-          BorderSpacing.Top = 13
+          BorderSpacing.Top = 17
           ParentFont = False
           PopupMenu = WaveEditPopup
           OnMouseDown = WaveEditPaintBoxMouseDown
           OnPaint = WaveEditPaintBoxPaint
         end
         object WaveEditGroupBox: TGroupBox
-          Left = 8
+          Left = 10
-          Height = 139
+          Height = 178
-          Top = 8
+          Top = 10
-          Width = 568
+          Width = 728
           Caption = 'Wave Editor'
-          ClientHeight = 119
+          ClientHeight = 174
-          ClientWidth = 564
+          ClientWidth = 724
           ParentFont = False
           TabOrder = 0
           object Label20: TLabel
-            Left = 16
+            Left = 20
-            Height = 15
+            Height = 22
-            Top = 16
+            Top = 20
-            Width = 29
+            Width = 40
             Caption = 'Wave'
             ParentColor = False
             ParentFont = False
           end
           object WaveEditNumberSpinner: TSpinEdit
-            Left = 64
+            Left = 82
-            Height = 23
+            Height = 32
-            Top = 8
+            Top = 10
-            Width = 80
+            Width = 102
             MaxValue = 15
             OnChange = WaveEditNumberSpinnerChange
             ParentFont = False
             TabOrder = 0
           end
           object ImportWaveButton: TButton
-            Left = 16
+            Left = 20
-            Height = 25
+            Height = 32
             Hint = 'Import a wave'
-            Top = 48
+            Top = 62
-            Width = 147
+            Width = 188
             Caption = 'Import'
             OnClick = ImportWaveButtonClick
             ParentFont = False
             TabOrder = 1
           end
           object ExportWaveButton: TButton
-            Left = 16
+            Left = 20
-            Height = 25
+            Height = 32
             Hint = 'Export a wave'
-            Top = 80
+            Top = 102
-            Width = 147
+            Width = 188
             Caption = 'Export'
             OnClick = ExportWaveButtonClick
             ParentFont = False
             TabOrder = 2
           end
           object HexWaveEdit: TEdit
-            Left = 288
+            Left = 369
-            Height = 23
+            Height = 32
-            Top = 8
+            Top = 10
-            Width = 264
+            Width = 338
             MaxLength = 32
             OnChange = HexWaveEditEditingDone
             OnEditingDone = HexWaveEditEditingDone
             TabOrder = 3
           end
           object Label13: TLabel
-            Left = 176
+            Left = 226
-            Height = 15
+            Height = 22
-            Top = 16
+            Top = 20
-            Width = 100
+            Width = 140
             Caption = 'Hex representation'
             ParentColor = False
             ParentFont = False
           end
           object PlayWaveWhileDrawingCheckbox: TCheckBox
-            Left = 176
+            Left = 226
-            Height = 19
+            Height = 24
-            Top = 40
+            Top = 51
-            Width = 149
+            Width = 201
             Caption = 'Play wave while drawing'
             ParentFont = False
             TabOrder = 4
       end
       object CommentsTabSheet: TTabSheet
         Caption = 'Comments'
-        ClientHeight = 659
+        ClientHeight = 841
-        ClientWidth = 1095
+        ClientWidth = 1408
         ParentFont = False
         object CommentMemo: TMemo
           AnchorSideTop.Control = Label17
           AnchorSideTop.Side = asrBottom
           Left = 0
-          Height = 623
+          Height = 792
           Hint = 'The comments section for your song. Greetings/links/etc'
-          Top = 36
+          Top = 49
-          Width = 1095
+          Width = 1408
           Align = alBottom
           Anchors = [akTop, akLeft, akRight, akBottom]
-          BorderSpacing.Top = 13
+          BorderSpacing.Top = 17
           MaxLength = 255
           OnChange = CommentMemoChange
           ParentFont = False
           TabOrder = 0
         end
         object Label17: TLabel
-          Left = 8
+          Left = 10
-          Height = 15
+          Height = 22
-          Top = 8
+          Top = 10
-          Width = 333
+          Width = 463
           Caption = 'This is an area to write comments for anyone editing your tune.'
           ParentColor = False
           ParentFont = False
       end
       object RoutinesTabSheet: TTabSheet
         Caption = 'Routines'
-        ClientHeight = 659
+        ClientHeight = 841
-        ClientWidth = 1095
+        ClientWidth = 1408
         ParentFont = False
         inline RoutineSynedit: TSynEdit
           AnchorSideTop.Control = Label19
           AnchorSideTop.Side = asrBottom
           Left = 0
-          Height = 531
+          Height = 685
-          Top = 128
+          Top = 156
-          Width = 1095
+          Width = 1408
           Align = alBottom
-          BorderSpacing.Top = 13
+          BorderSpacing.Top = 17
           Anchors = [akTop, akLeft, akRight, akBottom]
-          Font.Height = -13
+          Font.Height = -17
           Font.Name = 'Courier New'
           Font.Pitch = fpFixed
           Font.Quality = fqNonAntialiased
           ParentColor = False
           ParentFont = False
           TabOrder = 0
-          Gutter.Width = 57
+          Gutter.Width = 73
           Gutter.MouseActions = <>
           RightGutter.Width = 0
           RightGutter.MouseActions = <>
           OnChange = RoutineSyneditChange
           inline SynLeftGutterPartList1: TSynGutterPartList
             object SynGutterMarks1: TSynGutterMarks
-              Width = 24
+              Width = 31
               MouseActions = <>
             end
             object SynGutterLineNumber1: TSynGutterLineNumber
-              Width = 17
+              Width = 21
               MouseActions = <>
               MarkupInfo.Background = clBtnFace
               MarkupInfo.Foreground = clNone
               LeadingZeros = False
             end
             object SynGutterChanges1: TSynGutterChanges
-              Width = 4
+              Width = 5
               MouseActions = <>
               ModifiedColor = 59900
               SavedColor = clGreen
             end
             object SynGutterSeparator1: TSynGutterSeparator
-              Width = 2
+              Width = 3
               MouseActions = <>
               MarkupInfo.Background = clWhite
               MarkupInfo.Foreground = clGray
             end
             object SynGutterCodeFolding1: TSynGutterCodeFolding
+              Width = 13
               MouseActions = <>
               MarkupInfo.Background = clNone
               MarkupInfo.Foreground = clGray
           end
         end
         object Label18: TLabel
-          Left = 8
+          Left = 10
-          Height = 15
+          Height = 22
-          Top = 16
+          Top = 20
-          Width = 41
+          Width = 58
           Caption = 'Routine'
           ParentColor = False
           ParentFont = False
         end
         object RoutineNumberSpinner: TSpinEdit
-          Left = 64
+          Left = 82
-          Height = 23
+          Height = 32
-          Top = 8
+          Top = 10
-          Width = 176
+          Width = 226
           MaxValue = 15
           OnChange = RoutineNumberSpinnerChange
           ParentFont = False
           Value = 1
         end
         object Label19: TLabel
-          Left = 8
+          Left = 10
-          Height = 75
+          Height = 88
-          Top = 40
+          Top = 51
-          Width = 506
+          Width = 695
           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!'
           ParentColor = False
           ParentFont = False
   end
   object ScopesPanel: TPanel
     Left = 0
-    Height = 64
+    Height = 82
-    Top = 25
+    Top = 34
-    Width = 1301
+    Width = 1667
     Align = alTop
     BevelOuter = bvNone
-    ClientHeight = 64
+    ClientHeight = 82
-    ClientWidth = 1301
+    ClientWidth = 1667
     ParentFont = False
     TabOrder = 3
     object LEDMeter1: TLEDMeter
       AnchorSideRight.Control = Duty1Visualizer
       Left = 0
-      Height = 32
+      Height = 41
-      Top = 32
+      Top = 41
-      Width = 513
+      Width = 659
       Anchors = [akTop, akLeft, akRight]
       BevelStyle = bvLowered
       Colors.Border = 2168839
     object LEDMeter2: TLEDMeter
       AnchorSideRight.Control = Duty1Visualizer
       Left = 0
-      Height = 32
+      Height = 41
       Top = 0
-      Width = 513
+      Width = 659
       Anchors = [akTop, akLeft, akRight]
       BevelStyle = bvLowered
       Colors.Border = 2168839
       Section3Value = 48
     end
     object Duty1Visualizer: TPaintBox
-      Left = 513
+      Left = 659
-      Height = 64
+      Height = 82
       Top = 0
-      Width = 197
+      Width = 252
       Align = alRight
       ParentFont = False
       OnClick = Duty1VisualizerClick
       OnPaint = Duty1VisualizerPaint
     end
     object Duty2Visualizer: TPaintBox
-      Left = 710
+      Left = 911
-      Height = 64
+      Height = 82
       Top = 0
-      Width = 197
+      Width = 252
       Align = alRight
       ParentFont = False
       OnClick = Duty1VisualizerClick
       OnPaint = Duty2VisualizerPaint
     end
     object WaveVisualizer: TPaintBox
-      Left = 907
+      Left = 1163
-      Height = 64
+      Height = 82
       Top = 0
-      Width = 197
+      Width = 252
       Align = alRight
       ParentFont = False
       OnClick = Duty1VisualizerClick
       OnPaint = WaveVisualizerPaint
     end
     object NoiseVisualizer: TPaintBox
-      Left = 1104
+      Left = 1415
-      Height = 64
+      Height = 82
       Top = 0
-      Width = 197
+      Width = 252
       Align = alRight
       ParentFont = False
       OnClick = Duty1VisualizerClick
   end
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 23
+    Height = 26
-    Top = 776
+    Top = 997
-    Width = 1301
+    Width = 1667
     AutoHint = True
     Panels = <
       item
-        Width = 467
+        Width = 598
       end
       item
-        Width = 200
+        Width = 256
       end
       item
-        Width = 200
+        Width = 256
       end>
     ParentFont = False
     ParentShowHint = False
   end
   object ToolBar1: TToolBar
     Left = 0
-    Height = 25
+    Height = 34
     Top = 0
-    Width = 1301
+    Width = 1667
     AutoSize = True
     Caption = 'ToolBar1'
     EdgeBorders = [ebBottom]
       ParentShowHint = False
     end
     object PanicToolButton: TToolButton
-      Left = 482
+      Left = 589
       Hint = 'Stops all sound output'
       Top = 0
       AutoSize = True
       ShowHint = True
     end
     object ToolButton2: TToolButton
-      Left = 116
+      Left = 140
       Top = 0
       Action = PlayCursorAction
     end
     object ToolButton4: TToolButton
-      Left = 145
+      Left = 171
       Top = 0
       Action = StopAction
     end
     object ExportGBButton: TToolButton
-      Left = 213
+      Left = 245
       Hint = 'Export the song as a standalone ROM'
       Top = 0
       AutoSize = True
       OnClick = ExportGBButtonClick
     end
     object ToolButton8: TToolButton
-      Left = 82
+      Left = 103
-      Height = 22
+      Height = 28
       Top = 0
       Caption = 'ToolButton8'
       Style = tbsDivider
     end
     object ToolButton6: TToolButton
-      Left = 174
+      Left = 202
-      Height = 22
+      Height = 28
       Top = 0
       Caption = 'ToolButton6'
       Style = tbsDivider
     end
     object ToolButton7: TToolButton
-      Left = 1025
+      Left = 1280
-      Height = 22
+      Height = 28
       Top = 0
       Caption = 'ToolButton7'
       Style = tbsSeparator
     end
     object OctaveSpinEdit: TSpinEdit
-      Left = 591
+      Left = 724
-      Height = 23
+      Height = 32
       Hint = 'The octave offset for entering new notes'
       Top = 0
-      Width = 65
+      Width = 83
       MaxValue = 5
       OnChange = OctaveSpinEditChange
       ParentFont = False
       TabOrder = 0
     end
     object ToolButton9: TToolButton
-      Left = 540
+      Left = 659
-      Height = 22
+      Height = 28
       Top = 0
       Caption = 'ToolButton9'
       Style = tbsSeparator
     end
     object Label22: TLabel
-      Left = 548
+      Left = 669
-      Height = 22
+      Height = 28
       Top = 0
-      Width = 43
+      Width = 55
       AutoSize = False
       Caption = 'Octave  '
       Layout = tlCenter
       ParentFont = False
     end
     object Label23: TLabel
-      Left = 656
+      Left = 807
-      Height = 22
+      Height = 28
       Top = 0
-      Width = 70
+      Width = 90
       AutoSize = False
       Caption = '  Instrument  '
       Layout = tlCenter
       ParentFont = False
     end
     object InstrumentComboBox: TComboBox
-      Left = 726
+      Left = 897
-      Height = 23
+      Height = 30
       Hint = 'The selected instrument for new notes'
       Top = 0
-      Width = 214
+      Width = 274
       DropDownCount = 999
-      ItemHeight = 15
+      ItemHeight = 0
       ItemIndex = 0
       Items.Strings = (
         '(no instrument)'
       Text = '(no instrument)'
     end
     object Label24: TLabel
-      Left = 940
+      Left = 1171
-      Height = 22
+      Height = 28
       Top = 0
-      Width = 35
+      Width = 45
       AutoSize = False
       Caption = '  Step  '
       Layout = tlCenter
       ParentFont = False
     end
     object StepSpinEdit: TSpinEdit
-      Left = 975
+      Left = 1216
-      Height = 23
+      Height = 32
       Hint = 'How many rows to step down after entering a new note'
       Top = 0
-      Width = 50
+      Width = 64
       MaxValue = 63
       OnChange = StepSpinEditChange
       ParentFont = False
       TabOrder = 2
     end
     object ToolButton3: TToolButton
-      Left = 87
+      Left = 109
       Top = 0
       Action = PlayStartAction
     end
     object ExportGBSButton: TToolButton
-      Left = 294
+      Left = 348
       Hint = 'Export the song as a GBS soundtrack'
       Top = 0
       Caption = 'Export GBS'
       OnClick = ExportGBSButtonClick
     end
     object ToolButton5: TToolButton
-      Left = 477
+      Left = 583
-      Height = 22
+      Height = 28
       Top = 0
       Caption = 'ToolButton5'
       Style = tbsDivider
     end
     object ToolButton10: TToolButton
-      Left = 381
+      Left = 459
       Hint = 'Export the song as WAV or MP3'
       Top = 0
       Caption = 'Render Song'
       OnClick = ToolButton10Click
     end
     object ToolButton11: TToolButton
-      Left = 208
+      Left = 239
-      Height = 22
+      Height = 28
       Top = 0
       Caption = 'ToolButton11'
       Style = tbsDivider
     end
     object LoopSongToolButton: TToolButton
-      Left = 179
+      Left = 208
       Top = 0
       ImageIndex = 87
       OnClick = LoopSongToolButtonClick
   end
   object MainMenu1: TMainMenu
     Images = ImageList1
-    Left = 40
+    Left = 51
-    Top = 32
+    Top = 41
     object MenuItem1: TMenuItem
       Caption = 'File'
       object MenuItem33: TMenuItem
   end
   object MenuBarActionList: TActionList
     Images = ImageList1
-    Left = 104
+    Left = 133
-    Top = 72
+    Top = 92
     object FileOpen1: TFileOpen
       Category = 'File'
       Caption = '&Open ...'
     end
   end
   object ImageList1: TImageList
-    Left = 152
+    Left = 195
-    Top = 32
+    Top = 41
     Bitmap = {
       4C7A5C0000001000000010000000132900000000000078DAED5D077C1545FE9F
       24A89CA2A814B1DC5FEE3C3D15C1029E200A51BA078228081A44AAC22145448A
   end
   object OpenDialog1: TOpenDialog
     Filter = 'hUGETracker Instruments|*.ugi'
-    Left = 80
+    Left = 103
-    Top = 56
+    Top = 72
   end
   object InstrumentSaveDialog: TSaveDialog
     Filter = 'hUGETracker Instruments|*.ugi'
-    Left = 80
+    Left = 103
-    Top = 56
+    Top = 72
   end
   object OrderEditPopup: TPopupMenu
-    Left = 128
+    Left = 164
-    Top = 40
+    Top = 51
     object MenuItem17: TMenuItem
       Caption = 'Insert new row'
       Hint = 'Insert a new row filled with brand new patterns'
   object ImageList2: TImageList
     Height = 32
     Width = 32
-    Left = 48
+    Left = 62
-    Top = 86
+    Top = 110
     Bitmap = {
       4C7A020000002000000020000000400200000000000078DAED98818EC3200886
       7DF4BED9F666DE6CA54504048BBDE572246659B7F503A4C8BF94662CE77EAD34
     Enabled = False
     Interval = 200
     OnTimer = OscilloscopeUpdateTimerTimer
-    Left = 88
+    Left = 113
-    Top = 48
+    Top = 62
   end
   object GBSSaveDialog: TSaveDialog
     Filter = 'Gameboy Soundtrack|*.gbs'
-    Left = 288
+    Left = 369
-    Top = 24
+    Top = 31
   end
   object WaveSaveDialog: TSaveDialog
     Filter = 'hUGETracker Waves|*.ugw'
-    Left = 368
+    Left = 472
-    Top = 24
+    Top = 31
   end
   object GBSaveDialog: TSaveDialog
     Filter = 'Gameboy ROM|*.gb'
-    Left = 328
+    Left = 420
-    Top = 24
+    Top = 31
   end
   object NoteHaltTimer: TTimer
     Enabled = False
     OnTimer = NoteHaltTimerTimer
-    Left = 80
+    Left = 103
-    Top = 86
+    Top = 110
   end
   object TrackerGridPopup: TPopupMenu
-    Left = 96
+    Left = 123
-    Top = 24
+    Top = 31
     object TrackerPopupEditEffect: TMenuItem
       Caption = 'Edit effect ...'
       OnClick = TrackerPopupEditEffectClick
   object WavSaveDialog: TSaveDialog
     DefaultExt = '.wav'
     Filter = 'Wave files|*.wav'
-    Left = 408
+    Left = 523
-    Top = 24
+    Top = 31
   end
   object SynAnySyn1: TSynAnySyn
     Enabled = False
     Entity = False
     DollarVariables = False
     ActiveDot = False
-    Left = 8
+    Left = 10
-    Top = 86
+    Top = 110
   end
   object MODOpenDialog: TOpenDialog
     DefaultExt = '.mod'
     Filter = 'GBT Player MOD files|*.mod'
-    Left = 472
+    Left = 605
-    Top = 24
+    Top = 31
   end
   object WaveEditPopup: TPopupMenu
-    Left = 8
+    Left = 10
-    Top = 32
+    Top = 41
     object MenuItem37: TMenuItem
       Caption = 'Copy'
       OnClick = MenuItem37Click
   end
   object ShortcutsActionList: TActionList
     Images = ImageList1
-    Left = 208
+    Left = 267
-    Top = 32
+    Top = 41
     object PlayStartAction: TAction
       DisableIfNoHandler = False
       Hint = 'Play song from start'
   end
   object GBDKCSaveDialog: TSaveDialog
     Filter = 'GBDK C File|*.c'
-    Left = 248
+    Left = 318
-    Top = 24
+    Top = 31
   end
   object RGBDSAsmSaveDialog: TSaveDialog
     Filter = 'RGBDS Assembly|*.asm'
-    Left = 272
+    Left = 349
-    Top = 48
+    Top = 62
   end
   object VGMSaveDialog: TSaveDialog
     Filter = 'VGM Rip|*.vgm'
-    Left = 356
+    Left = 456
-    Top = 52
+    Top = 67
   end
   object TBMOpenDialog: TOpenDialog
     DefaultExt = '.tbm'
     Filter = 'TrackerBoy TBM files|*.tbm'
-    Left = 472
+    Left = 605
-    Top = 64
+    Top = 82
   end
 end

Modifiedsrc/tracker.pas +12−1

   FileUtil, math, Instruments, Song, Utils, Constants, sound, vars, machine,
   about_hugetracker, TrackerGrid, lclintf, lmessages, Buttons, Grids, DBCtrls,
   HugeDatatypes, LCLType, Clipbrd, RackCtls, Codegen, SymParser, options,
-  bgrabitmap, effecteditor, RenderToWave, modimport, mainloop, strutils, Rtti,
+  bgrabitmap, effecteditor, RenderToWave, modimport, mainloop, strutils,
   Types, Keymap, hUGESettings, vgm, TBMImport, InstrumentPreview, findreplace;
 // TODO: Move to config file?
     procedure MenuItem10Click(Sender: TObject);
     procedure MenuItem26Click(Sender: TObject);
     procedure MenuItem55Click(Sender: TObject);
+    procedure OrderEditStringGridMouseDown(Sender: TObject;
+      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
     procedure RevertMenuItemClick(Sender: TObject);
     procedure TimerDividerSpinEditChange(Sender: TObject);
     procedure TimerEnabledCheckBoxChange(Sender: TObject);
   end;
 end;
+procedure TfrmTracker.OrderEditStringGridMouseDown(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  if Button = mbRight then begin;
+    OrderEditStringGrid.MouseDown(mbLeft, [], X, Y);
+    OrderEditStringGrid.MouseUp(mbLeft, [], X, Y);
+  end;
+end;
 procedure TfrmTracker.RevertMenuItemClick(Sender: TObject);
 begin
   if not CheckUnsavedChanges then Exit;

Commit 2042c07

Commit `2042c07`