Commit `cea31d2`

Nick committed on Dec 23, 2020

Update error message

commit cea31d224718c3f14691eab051024c5a6ba2d028 parent d056479

2 changed files +389−390

Modifiedtracker.lfm +383−385

 object frmTracker: TfrmTracker
   Left = 1038
-  Height = 1143
+  Height = 653
   Top = 285
-  Width = 2156
+  Width = 1232
   AllowDropFiles = True
   Caption = 'hUGETracker'
-  ClientHeight = 1109
+  ClientHeight = 633
-  ClientWidth = 2156
+  ClientWidth = 1232
-  DesignTimePPI = 168
   KeyPreview = True
   Menu = MainMenu1
   OnCloseQuery = FormCloseQuery
   LCLVersion = '2.0.11.0'
   object TreeView1: TTreeView
     Left = 0
-    Height = 913
+    Height = 521
-    Top = 153
+    Top = 89
-    Width = 338
+    Width = 193
     Align = alLeft
     ParentFont = False
     ReadOnly = True
     }
   end
   object Splitter1: TSplitter
-    Left = 338
+    Left = 193
-    Height = 913
+    Height = 521
-    Top = 153
+    Top = 89
-    Width = 9
+    Width = 5
   end
   object Panel1: TPanel
-    Left = 347
+    Left = 198
-    Height = 913
+    Height = 521
-    Top = 153
+    Top = 89
-    Width = 1809
+    Width = 1034
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 913
+    ClientHeight = 521
-    ClientWidth = 1809
+    ClientWidth = 1034
     ParentFont = False
     TabOrder = 2
     object PageControl1: TPageControl
       Left = 0
-      Height = 913
+      Height = 521
       Top = 0
-      Width = 1809
+      Width = 1034
       ActivePage = GeneralTabSheet
       Align = alClient
       ParentFont = False
       TabOrder = 0
       object GeneralTabSheet: TTabSheet
         Caption = 'General'
-        ClientHeight = 870
+        ClientHeight = 493
-        ClientWidth = 1801
+        ClientWidth = 1026
         ParentFont = False
         object SongInformationGroupbox: TGroupBox
-          Left = 14
+          Left = 8
-          Height = 238
+          Height = 136
-          Top = 14
+          Top = 8
-          Width = 534
+          Width = 305
           Caption = 'Song information'
-          ClientHeight = 203
+          ClientHeight = 116
-          ClientWidth = 530
+          ClientWidth = 301
           ParentFont = False
           TabOrder = 0
           object Label15: TLabel
-            Left = 14
+            Left = 8
-            Height = 30
+            Height = 15
-            Top = 28
+            Top = 16
-            Width = 47
+            Width = 27
             Caption = 'Song'
             ParentColor = False
             ParentFont = False
           end
           object Label16: TLabel
-            Left = 12
+            Left = 7
-            Height = 30
+            Height = 15
-            Top = 84
+            Top = 48
-            Width = 49
+            Width = 28
             Caption = 'Artist'
             ParentColor = False
             ParentFont = False
           end
           object SongEdit: TEdit
-            Left = 98
+            Left = 56
-            Height = 38
+            Height = 23
             Hint = 'The name of your composition'
-            Top = 14
+            Top = 8
-            Width = 378
+            Width = 216
             OnChange = SongEditChange
             ParentFont = False
             TabOrder = 0
           end
           object ArtistEdit: TEdit
-            Left = 98
+            Left = 56
-            Height = 38
+            Height = 23
             Hint = 'Your name or handle'
-            Top = 70
+            Top = 40
-            Width = 378
+            Width = 216
             OnChange = ArtistEditChange
             ParentFont = False
             TabOrder = 1
           end
           object Label21: TLabel
-            Left = 14
+            Left = 8
-            Height = 30
+            Height = 15
-            Top = 136
+            Top = 78
-            Width = 197
+            Width = 114
             Caption = 'Tempo (ticks per row)'
             ParentColor = False
             ParentFont = False
           end
           object TicksPerRowSpinEdit: TSpinEdit
-            Left = 233
+            Left = 133
-            Height = 38
+            Height = 23
             Hint = 'How many ticks should happen before the row changes. Higher means slower'
-            Top = 128
+            Top = 73
-            Width = 88
+            Width = 50
             MaxValue = 20
             MinValue = 1
             OnChange = TicksPerRowSpinEditChange
           TabOrder = 0
           object HeaderControl1: THeaderControl
             Left = 1
-            Height = 52
+            Height = 30
             Hint = 'Left click to mute, right click to solo'
             Top = 1
             Width = 1407
             Sections = <
               item
                 Alignment = taLeftJustify
-                Width = 56
+                Width = 32
                 Visible = True
               end
               item
                 Alignment = taCenter
                 ImageIndex = 1
                 Text = 'Duty 1'
-                Width = 233
+                Width = 133
                 Visible = True
               end
               item
                 Alignment = taCenter
                 ImageIndex = 1
                 Text = 'Duty 2'
-                Width = 233
+                Width = 133
                 Visible = True
               end
               item
                 Alignment = taCenter
                 ImageIndex = 1
                 Text = 'Wave'
-                Width = 233
+                Width = 133
                 Visible = True
               end
               item
                 Alignment = taCenter
                 ImageIndex = 1
                 Text = 'Noise'
-                Width = 233
+                Width = 133
                 Visible = True
               end>
             OnSectionClick = HeaderControl1SectionClick
               Left = 0
               Height = 815
               Top = 0
-              Width = 56
+              Width = 32
               Align = alLeft
               BorderStyle = bsNone
               ColCount = 1
-              DefaultColWidth = 56
+              DefaultColWidth = 32
               Enabled = False
               ParentFont = False
               RowCount = 64
           Left = 0
           Height = 869
           Top = 0
-          Width = 392
+          Width = 224
           Align = alLeft
           AutoEdit = False
           AutoFillColumns = True
           Columns = <
             item
               Alignment = taCenter
-              MinSize = 58
+              MinSize = 33
-              MaxSize = 58
+              MaxSize = 33
               Title.Caption = 'Dty1'
-              Width = 61
+              Width = 34
             end
             item
               Alignment = taCenter
-              MinSize = 58
+              MinSize = 33
-              MaxSize = 58
+              MaxSize = 33
               Title.Caption = 'Dty2'
-              Width = 61
+              Width = 34
             end
             item
               Alignment = taCenter
-              MinSize = 58
+              MinSize = 33
-              MaxSize = 58
+              MaxSize = 33
               Title.Caption = 'Wav'
-              Width = 61
+              Width = 34
             end
             item
               Alignment = taCenter
-              MinSize = 58
+              MinSize = 33
-              MaxSize = 58
+              MaxSize = 33
               Title.Caption = 'Nse'
-              Width = 63
+              Width = 37
             end>
-          DefaultColWidth = 30
+          DefaultColWidth = 17
-          DefaultRowHeight = 37
+          DefaultRowHeight = 21
           ExtendedSelect = False
           Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goRangeSelect, goRowMoving, goEditing, goTabs, goSmoothScroll, goFixedRowNumbering, goRowHighlight]
           ParentFont = False
           OnKeyDown = OrderEditStringGridKeyDown
           OnValidateEntry = OrderEditStringGridValidateEntry
           ColWidths = (
-            112
+            64
-            61
+            34
-            61
+            34
-            61
+            34
-            63
+            37
           )
         end
       end
           TabOrder = 0
           object InstrumentGroupBox: TGroupBox
             Left = 12
-            Height = 422
+            Height = 241
             Top = 12
-            Width = 474
+            Width = 271
             Anchors = []
-            BorderSpacing.Left = 12
+            BorderSpacing.Left = 7
-            BorderSpacing.Top = 12
+            BorderSpacing.Top = 7
-            BorderSpacing.Right = 12
+            BorderSpacing.Right = 7
-            BorderSpacing.Bottom = 12
+            BorderSpacing.Bottom = 7
             Caption = 'Instrument'
-            ClientHeight = 387
+            ClientHeight = 221
-            ClientWidth = 470
+            ClientWidth = 267
             ParentFont = False
             TabOrder = 0
             object InstrumentNumberSpinner: TSpinEdit
-              Left = 140
+              Left = 80
               Height = 38
               Hint = 'What instrument to edit'
-              Top = 66
+              Top = 38
-              Width = 308
+              Width = 176
               MaxValue = 15
               MinValue = 1
               OnChange = InstrumentNumberSpinnerChange
               Value = 1
             end
             object Label1: TLabel
-              Left = 14
+              Left = 8
               Height = 30
-              Top = 80
+              Top = 46
               Width = 101
               Caption = 'Instrument'
               ParentColor = False
               ParentFont = False
             end
             object Label2: TLabel
-              Left = 14
+              Left = 8
               Height = 30
-              Top = 136
+              Top = 78
               Width = 56
               Caption = 'Name'
               ParentColor = False
               ParentFont = False
             end
             object InstrumentNameEdit: TEdit
-              Left = 140
+              Left = 80
               Height = 38
               Hint = 'The name of the instrument'
-              Top = 122
+              Top = 70
-              Width = 308
+              Width = 176
               OnChange = InstrumentNameEditChange
               ParentFont = False
               TabOrder = 1
             end
             object Label3: TLabel
-              Left = 14
+              Left = 8
               Height = 30
-              Top = 28
+              Top = 16
               Width = 80
               Caption = 'Channel'
               Font.Style = [fsBold]
               ParentFont = False
             end
             object InstrumentTypeCombobox: TComboBox
-              Left = 136
+              Left = 78
-              Height = 38
+              Height = 23
               Hint = 'What type of channel this instrument will be played on'
-              Top = 14
+              Top = 8
-              Width = 312
+              Width = 178
-              ItemHeight = 30
+              ItemHeight = 15
               ItemIndex = 0
               Items.Strings = (
                 'Square'
               Text = 'Square'
             end
             object LengthEnabledCheckbox: TCheckBox
-              Left = 21
+              Left = 12
               Height = 34
               Hint = 'Cut the sound after a certain length of time'
-              Top = 206
+              Top = 118
               Width = 98
               Caption = 'Length'
               OnChange = LengthEnabledCheckboxChange
               TabOrder = 3
             end
             object InstrumentImportButton: TButton
-              Left = 21
+              Left = 12
-              Height = 44
+              Height = 25
-              Top = 322
+              Top = 184
-              Width = 203
+              Width = 116
               Caption = 'Import'
               OnClick = InstrumentImportButtonClick
               ParentFont = False
               TabOrder = 4
             end
             object InstrumentExportButton: TButton
-              Left = 242
+              Left = 138
-              Height = 44
+              Height = 25
-              Top = 322
+              Top = 184
-              Width = 203
+              Width = 116
               Caption = 'Export'
               OnClick = InstrumentExportButtonClick
               ParentFont = False
               TabOrder = 5
             end
             object Button1: TButton
-              Left = 21
+              Left = 12
-              Height = 44
+              Height = 25
               Hint = 'Test out the instrument with a C-5 note'
-              Top = 266
+              Top = 152
-              Width = 424
+              Width = 242
               Caption = 'Test C-5'
               OnClick = Button1Click
               ParentFont = False
               TabOrder = 6
             end
             object LengthTrackbar: TTrackBar
-              Left = 133
+              Left = 76
-              Height = 44
+              Height = 25
-              Top = 196
+              Top = 112
-              Width = 312
+              Width = 178
               Max = 63
               OnChange = LengthSpinnerChange
               Position = 0
           end
           object EnvelopeGroupBox: TGroupBox
             Left = 510
-            Height = 238
+            Height = 136
             Top = 12
-            Width = 1018
+            Width = 582
             Anchors = []
-            BorderSpacing.Left = 12
+            BorderSpacing.Left = 7
-            BorderSpacing.Top = 12
+            BorderSpacing.Top = 7
-            BorderSpacing.Right = 12
+            BorderSpacing.Right = 7
-            BorderSpacing.Bottom = 12
+            BorderSpacing.Bottom = 7
             Caption = 'Envelope'
-            ClientHeight = 203
+            ClientHeight = 116
-            ClientWidth = 1014
+            ClientWidth = 578
             ParentFont = False
             TabOrder = 1
             object Label4: TLabel
-              Left = 14
+              Left = 8
               Height = 30
-              Top = 16
+              Top = 9
               Width = 80
               Caption = 'Start vol.'
               ParentColor = False
               ParentFont = False
             end
             object Label5: TLabel
-              Left = 14
+              Left = 8
               Height = 30
-              Top = 84
+              Top = 48
               Width = 84
               Caption = 'Direction'
               ParentColor = False
               ParentFont = False
             end
             object DirectionComboBox: TComboBox
-              Left = 144
+              Left = 82
-              Height = 38
+              Height = 23
               Hint = 'Whether to fade the sound in or out'
-              Top = 80
+              Top = 46
-              Width = 346
+              Width = 198
-              ItemHeight = 30
+              ItemHeight = 15
               ItemIndex = 1
               Items.Strings = (
                 'Up'
               Text = 'Down'
             end
             object Label6: TLabel
-              Left = 14
+              Left = 8
               Height = 30
-              Top = 150
+              Top = 86
               Width = 71
               Caption = 'Change'
               ParentColor = False
               ParentFont = False
             end
             object Panel5: TPanel
-              Left = 525
+              Left = 300
-              Height = 182
+              Height = 104
               Top = 0
-              Width = 472
+              Width = 270
               BevelOuter = bvLowered
-              ClientHeight = 182
+              ClientHeight = 104
-              ClientWidth = 472
+              ClientWidth = 270
               ParentFont = False
               TabOrder = 1
               object EnvelopePaintbox: TPaintBox
               end
             end
             object StartVolTrackbar: TTrackBar
-              Left = 144
+              Left = 82
-              Height = 44
+              Height = 25
-              Top = 14
+              Top = 8
-              Width = 343
+              Width = 196
               Max = 15
               OnChange = StartVolSpinnerChange
               Position = 0
               TabOrder = 2
             end
             object EnvChangeTrackbar: TTrackBar
-              Left = 144
+              Left = 82
-              Height = 44
+              Height = 25
-              Top = 144
+              Top = 82
-              Width = 343
+              Width = 196
               Max = 7
               OnChange = EnvChangeSpinnerChange
               Position = 0
           end
           object SquareGroupBox: TGroupBox
             Left = 12
-            Height = 296
+            Height = 169
             Top = 458
-            Width = 558
+            Width = 319
             Anchors = []
-            BorderSpacing.Left = 12
+            BorderSpacing.Left = 7
-            BorderSpacing.Top = 12
+            BorderSpacing.Top = 7
-            BorderSpacing.Right = 12
+            BorderSpacing.Right = 7
-            BorderSpacing.Bottom = 12
+            BorderSpacing.Bottom = 7
             Caption = 'Square'
-            ClientHeight = 261
+            ClientHeight = 149
-            ClientWidth = 554
+            ClientWidth = 315
             ParentFont = False
             TabOrder = 2
             object Label7: TLabel
-              Left = 14
+              Left = 8
               Height = 30
-              Top = 28
+              Top = 16
               Width = 107
               Caption = 'Sweep time'
               ParentColor = False
               ParentFont = False
             end
             object SweepTimeCombobox: TComboBox
-              Left = 182
+              Left = 104
-              Height = 38
+              Height = 23
               Hint = 'How long to sweep'
-              Top = 14
+              Top = 8
-              Width = 350
+              Width = 200
-              ItemHeight = 30
+              ItemHeight = 15
               ItemIndex = 0
               Items.Strings = (
                 'Off - no frequency change'
               Text = 'Off - no frequency change'
             end
             object SweepDirectionCombobox: TComboBox
-              Left = 182
+              Left = 104
-              Height = 38
+              Height = 23
               Hint = 'The direction of the sweep'
-              Top = 70
+              Top = 40
-              Width = 350
+              Width = 200
-              ItemHeight = 30
+              ItemHeight = 15
               ItemIndex = 1
               Items.Strings = (
                 'Up'
               Text = 'Down'
             end
             object Label8: TLabel
-              Left = 14
+              Left = 8
               Height = 30
-              Top = 84
+              Top = 48
               Width = 147
               Caption = 'Sweep direction'
               ParentColor = False
               ParentFont = False
             end
             object Label9: TLabel
-              Left = 14
+              Left = 8
               Height = 30
-              Top = 147
+              Top = 84
               Width = 101
               Caption = 'Sweep size'
               ParentColor = False
               ParentFont = False
             end
             object Label10: TLabel
-              Left = 14
+              Left = 8
               Height = 30
-              Top = 210
+              Top = 120
               Width = 44
               Caption = 'Duty'
               ParentColor = False
               ParentFont = False
             end
             object DutyCombobox: TComboBox
-              Left = 182
+              Left = 104
-              Height = 38
+              Height = 23
               Hint = 'Which duty cycle to use (changes timbre of wave)'
-              Top = 196
+              Top = 112
-              Width = 350
+              Width = 200
-              ItemHeight = 30
+              ItemHeight = 15
               ItemIndex = 2
               Items.Strings = (
                 '12.5%'
               Text = '50% (square)'
             end
             object SweepSizeTrackbar: TTrackBar
-              Left = 184
+              Left = 105
-              Height = 44
+              Height = 25
-              Top = 140
+              Top = 80
-              Width = 343
+              Width = 196
               Max = 7
               OnChange = SweepSizeSpinnerChange
               Position = 0
           end
           object WaveGroupBox: TGroupBox
             Left = 594
-            Height = 296
+            Height = 169
             Top = 458
-            Width = 520
+            Width = 297
             Anchors = []
-            BorderSpacing.Left = 12
+            BorderSpacing.Left = 7
-            BorderSpacing.Top = 12
+            BorderSpacing.Top = 7
-            BorderSpacing.Right = 12
+            BorderSpacing.Right = 7
-            BorderSpacing.Bottom = 12
+            BorderSpacing.Bottom = 7
             Caption = 'Wave'
-            ClientHeight = 261
+            ClientHeight = 149
-            ClientWidth = 516
+            ClientWidth = 293
             ParentFont = False
             TabOrder = 3
             object Label11: TLabel
-              Left = 14
+              Left = 8
               Height = 30
-              Top = 28
+              Top = 16
               Width = 70
               Caption = 'Volume'
               ParentColor = False
               ParentFont = False
             end
             object Label12: TLabel
-              Left = 14
+              Left = 8
               Height = 30
-              Top = 84
+              Top = 48
               Width = 95
               Caption = 'Waveform'
               ParentColor = False
               ParentFont = False
             end
             object WaveformCombobox: TComboBox
-              Left = 182
+              Left = 104
-              Height = 38
+              Height = 23
               Hint = 'Which waveform is associated with this instrument'
-              Top = 70
+              Top = 40
-              Width = 308
+              Width = 176
-              ItemHeight = 30
+              ItemHeight = 15
               ItemIndex = 0
               Items.Strings = (
                 'Wave #0'
               Text = 'Wave #0'
             end
             object Panel4: TPanel
-              Left = 14
+              Left = 8
-              Height = 103
+              Height = 59
-              Top = 140
+              Top = 80
-              Width = 476
+              Width = 272
               BevelOuter = bvLowered
-              ClientHeight = 103
+              ClientHeight = 59
-              ClientWidth = 476
+              ClientWidth = 272
               ParentFont = False
               TabOrder = 1
               object WavePaintbox: TPaintBox
               end
             end
             object WaveVolumeCombobox: TComboBox
-              Left = 182
+              Left = 104
-              Height = 38
+              Height = 23
               Hint = 'The initial volume of the wave'
-              Top = 14
+              Top = 8
-              Width = 308
+              Width = 176
-              ItemHeight = 30
+              ItemHeight = 15
               ItemIndex = 1
               Items.Strings = (
                 'Mute (No sound)'
           end
           object NoiseGroupBox: TGroupBox
             Left = 12
-            Height = 390
+            Height = 223
             Top = 778
-            Width = 695
+            Width = 397
             Anchors = []
-            BorderSpacing.Left = 12
+            BorderSpacing.Left = 7
-            BorderSpacing.Top = 12
+            BorderSpacing.Top = 7
-            BorderSpacing.Right = 12
+            BorderSpacing.Right = 7
-            BorderSpacing.Bottom = 12
+            BorderSpacing.Bottom = 7
             Caption = 'Noise'
-            ClientHeight = 355
+            ClientHeight = 203
-            ClientWidth = 691
+            ClientWidth = 393
             ParentFont = False
             TabOrder = 4
             object SevenBitCounterCheckbox: TCheckBox
-              Left = 14
+              Left = 8
               Height = 34
               Hint = 'Select LFSR width. When checked, output will sound like a tone rather than noise'
-              Top = 14
+              Top = 8
               Width = 373
               Alignment = taLeftJustify
               Caption = '7 bit counter (more tone-like output)'
               TabOrder = 0
             end
             object Panel6: TPanel
-              Left = 14
+              Left = 8
-              Height = 266
+              Height = 152
-              Top = 70
+              Top = 40
-              Width = 658
+              Width = 376
               BevelOuter = bvLowered
-              ClientHeight = 266
+              ClientHeight = 152
-              ClientWidth = 658
+              ClientWidth = 376
               ParentFont = False
               TabOrder = 1
               object NoiseMacroPaintbox: TPaintBox
           Width = 1064
           Align = alBottom
           Anchors = [akTop, akLeft, akRight, akBottom]
-          BorderSpacing.Top = 23
+          BorderSpacing.Top = 13
           ParentFont = False
           PopupMenu = WaveEditPopup
           OnMouseDown = WaveEditPaintBoxMouseDown
           OnPaint = WaveEditPaintBoxPaint
         end
         object WaveEditGroupBox: TGroupBox
-          Left = 14
+          Left = 8
-          Height = 243
+          Height = 139
-          Top = 14
+          Top = 8
-          Width = 994
+          Width = 568
           Caption = 'Wave Editor'
-          ClientHeight = 208
+          ClientHeight = 119
-          ClientWidth = 990
+          ClientWidth = 564
           ParentFont = False
           TabOrder = 0
           object Label20: TLabel
-            Left = 28
+            Left = 16
             Height = 15
-            Top = 28
+            Top = 16
             Width = 29
             Caption = 'Wave'
             ParentColor = False
             ParentFont = False
           end
           object WaveEditNumberSpinner: TSpinEdit
-            Left = 112
+            Left = 64
             Height = 23
-            Top = 14
+            Top = 8
-            Width = 140
+            Width = 80
             MaxValue = 15
             OnChange = WaveEditNumberSpinnerChange
             ParentFont = False
             TabOrder = 0
           end
           object ImportWaveButton: TButton
-            Left = 28
+            Left = 16
-            Height = 44
+            Height = 25
             Hint = 'Import a wave'
-            Top = 84
+            Top = 48
-            Width = 257
+            Width = 147
             Caption = 'Import'
             OnClick = ImportWaveButtonClick
             ParentFont = False
             TabOrder = 1
           end
           object ExportWaveButton: TButton
-            Left = 28
+            Left = 16
-            Height = 44
+            Height = 25
             Hint = 'Export a wave'
-            Top = 140
+            Top = 80
-            Width = 257
+            Width = 147
             Caption = 'Export'
             OnClick = ExportWaveButtonClick
             ParentFont = False
             TabOrder = 2
           end
           object HexWaveEdit: TEdit
-            Left = 504
+            Left = 288
             Height = 23
-            Top = 14
+            Top = 8
-            Width = 462
+            Width = 264
             MaxLength = 32
             OnChange = HexWaveEditEditingDone
             OnEditingDone = HexWaveEditEditingDone
             TabOrder = 3
           end
           object Label13: TLabel
-            Left = 308
+            Left = 176
             Height = 15
-            Top = 28
+            Top = 16
             Width = 100
             Caption = 'Hex representation'
             ParentColor = False
             ParentFont = False
           end
           object PlayWaveWhileDrawingCheckbox: TCheckBox
-            Left = 308
+            Left = 176
             Height = 19
-            Top = 70
+            Top = 40
             Width = 149
             Caption = 'Play wave while drawing'
             ParentFont = False
           Width = 939
           Align = alBottom
           Anchors = [akTop, akLeft, akRight, akBottom]
-          BorderSpacing.Top = 23
+          BorderSpacing.Top = 13
           MaxLength = 255
           OnChange = CommentMemoChange
           ParentFont = False
           TabOrder = 0
         end
         object Label17: TLabel
-          Left = 14
+          Left = 8
           Height = 15
-          Top = 14
+          Top = 8
           Width = 333
           Caption = 'This is an area to write comments for anyone editing your tune.'
           ParentColor = False
           Top = 128
           Width = 1063
           Align = alBottom
-          BorderSpacing.Top = 23
+          BorderSpacing.Top = 13
           Anchors = [akTop, akLeft, akRight, akBottom]
-          Font.Height = -23
+          Font.Height = -13
           Font.Name = 'Courier New'
           Font.Pitch = fpFixed
           Font.Quality = fqNonAntialiased
           ParentColor = False
           ParentFont = False
           TabOrder = 0
-          Gutter.Width = 100
+          Gutter.Width = 57
           Gutter.MouseActions = <>
           RightGutter.Width = 0
           RightGutter.MouseActions = <>
           OnChange = RoutineSyneditChange
           inline SynLeftGutterPartList1: TSynGutterPartList
             object SynGutterMarks1: TSynGutterMarks
-              Width = 42
+              Width = 24
               MouseActions = <>
             end
             object SynGutterLineNumber1: TSynGutterLineNumber
-              Width = 29
+              Width = 17
               MouseActions = <>
               MarkupInfo.Background = clBtnFace
               MarkupInfo.Foreground = clNone
               LeadingZeros = False
             end
             object SynGutterChanges1: TSynGutterChanges
-              Width = 7
+              Width = 4
               MouseActions = <>
               ModifiedColor = 59900
               SavedColor = clGreen
             end
             object SynGutterSeparator1: TSynGutterSeparator
-              Width = 4
+              Width = 2
               MouseActions = <>
               MarkupInfo.Background = clWhite
               MarkupInfo.Foreground = clGray
             end
             object SynGutterCodeFolding1: TSynGutterCodeFolding
-              Width = 18
               MouseActions = <>
               MarkupInfo.Background = clNone
               MarkupInfo.Foreground = clGray
           end
         end
         object Label18: TLabel
-          Left = 14
+          Left = 8
           Height = 15
-          Top = 28
+          Top = 16
           Width = 41
           Caption = 'Routine'
           ParentColor = False
           ParentFont = False
         end
         object RoutineNumberSpinner: TSpinEdit
-          Left = 112
+          Left = 64
           Height = 23
-          Top = 14
+          Top = 8
-          Width = 308
+          Width = 176
           MaxValue = 15
           OnChange = RoutineNumberSpinnerChange
           ParentFont = False
           Value = 1
         end
         object Label19: TLabel
-          Left = 14
+          Left = 8
           Height = 75
-          Top = 70
+          Top = 40
           Width = 506
           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
   end
   object Panel2: TPanel
     Left = 0
-    Height = 112
+    Height = 64
-    Top = 41
+    Top = 25
-    Width = 2156
+    Width = 1232
     Align = alTop
     BevelOuter = bvNone
-    ClientHeight = 112
+    ClientHeight = 64
-    ClientWidth = 2156
+    ClientWidth = 1232
     ParentFont = False
     TabOrder = 3
     object LEDMeter1: TLEDMeter
       AnchorSideRight.Control = Duty1Visualizer
       Left = 0
-      Height = 56
+      Height = 32
-      Top = 56
+      Top = 32
-      Width = 776
+      Width = 444
       Anchors = [akTop, akLeft, akRight]
       BevelStyle = bvLowered
       Colors.Border = 2168839
     object LEDMeter2: TLEDMeter
       AnchorSideRight.Control = Duty1Visualizer
       Left = 0
-      Height = 56
+      Height = 32
       Top = 0
-      Width = 776
+      Width = 444
       Anchors = [akTop, akLeft, akRight]
       BevelStyle = bvLowered
       Colors.Border = 2168839
       Section3Value = 48
     end
     object Duty1Visualizer: TPaintBox
-      Left = 776
+      Left = 444
-      Height = 112
+      Height = 64
       Top = 0
-      Width = 345
+      Width = 197
       Align = alRight
       ParentFont = False
       OnClick = Duty1VisualizerClick
       OnPaint = Duty1VisualizerPaint
     end
     object Duty2Visualizer: TPaintBox
-      Left = 1121
+      Left = 641
-      Height = 112
+      Height = 64
       Top = 0
-      Width = 345
+      Width = 197
       Align = alRight
       ParentFont = False
       OnClick = Duty1VisualizerClick
       OnPaint = Duty2VisualizerPaint
     end
     object WaveVisualizer: TPaintBox
-      Left = 1466
+      Left = 838
-      Height = 112
+      Height = 64
       Top = 0
-      Width = 345
+      Width = 197
       Align = alRight
       ParentFont = False
       OnClick = Duty1VisualizerClick
       OnPaint = WaveVisualizerPaint
     end
     object NoiseVisualizer: TPaintBox
-      Left = 1811
+      Left = 1035
-      Height = 112
+      Height = 64
       Top = 0
-      Width = 345
+      Width = 197
       Align = alRight
       ParentFont = False
       OnClick = Duty1VisualizerClick
   end
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 43
+    Height = 23
-    Top = 1066
+    Top = 610
-    Width = 2156
+    Width = 1232
     AutoHint = True
     Panels = <
       item
-        Width = 817
+        Width = 467
       end
       item
-        Width = 350
+        Width = 200
       end
       item
-        Width = 350
+        Width = 200
       end>
     ParentFont = False
     ParentShowHint = False
   end
   object ToolBar1: TToolBar
     Left = 0
-    Height = 41
+    Height = 25
     Top = 0
-    Width = 2156
+    Width = 1232
     AutoSize = True
     Caption = 'ToolBar1'
     EdgeBorders = [ebBottom]
       ParentShowHint = False
     end
     object PanicToolButton: TToolButton
-      Left = 839
+      Left = 551
       Hint = 'Stops all sound output'
       Top = 0
       AutoSize = True
       ShowHint = True
     end
     object ToolButton2: TToolButton
-      Left = 217
+      Left = 145
       Top = 0
       Action = PlayCursorAction
     end
     object ToolButton4: TToolButton
-      Left = 327
+      Left = 219
       Top = 0
       Action = StopAction
     end
     object ExportGBButton: TToolButton
-      Left = 434
+      Left = 287
       Hint = 'Export the song as a standalone ROM'
       Top = 0
       AutoSize = True
       OnClick = ExportGBButtonClick
     end
     object ToolButton8: TToolButton
-      Left = 120
+      Left = 79
-      Height = 39
+      Height = 22
       Top = 0
       Caption = 'ToolButton8'
       Style = tbsDivider
     end
     object ToolButton6: TToolButton
-      Left = 429
+      Left = 284
-      Height = 39
+      Height = 22
       Top = 0
       Caption = 'ToolButton6'
       Style = tbsDivider
     end
     object ToolButton7: TToolButton
-      Left = 1757
+      Left = 1088
-      Height = 39
+      Height = 22
       Top = 0
       Caption = 'ToolButton7'
       Style = tbsSeparator
     end
     object OctaveSpinEdit: TSpinEdit
-      Left = 998
+      Left = 654
-      Height = 38
+      Height = 23
       Hint = 'The octave offset for entering new notes'
       Top = 0
-      Width = 114
+      Width = 65
       MaxValue = 5
       OnChange = OctaveSpinEditChange
       ParentFont = False
       TabOrder = 0
     end
     object ToolButton9: TToolButton
-      Left = 915
+      Left = 606
-      Height = 39
+      Height = 22
       Top = 0
       Caption = 'ToolButton9'
       Style = tbsSeparator
     end
     object Label22: TLabel
-      Left = 923
+      Left = 611
-      Height = 39
+      Height = 22
       Top = 0
-      Width = 75
+      Width = 43
       AutoSize = False
       Caption = 'Octave  '
       Layout = tlCenter
       ParentFont = False
     end
     object Label23: TLabel
-      Left = 1112
+      Left = 719
-      Height = 39
+      Height = 22
       Top = 0
-      Width = 122
+      Width = 70
       AutoSize = False
       Caption = '  Instrument  '
       Layout = tlCenter
       ParentFont = False
     end
     object InstrumentComboBox: TComboBox
-      Left = 1234
+      Left = 789
-      Height = 38
+      Height = 23
       Hint = 'The selected instrument for new notes'
       Top = 0
-      Width = 374
+      Width = 214
       DropDownCount = 999
-      ItemHeight = 30
+      ItemHeight = 15
       ItemIndex = 0
       Items.Strings = (
         '(no instrument)'
       Text = '(no instrument)'
     end
     object Label24: TLabel
-      Left = 1608
+      Left = 1003
-      Height = 39
+      Height = 22
       Top = 0
-      Width = 61
+      Width = 35
       AutoSize = False
       Caption = '  Step  '
       Layout = tlCenter
       ParentFont = False
     end
     object StepSpinEdit: TSpinEdit
-      Left = 1669
+      Left = 1038
-      Height = 38
+      Height = 23
       Hint = 'How many rows to step down after entering a new note'
       Top = 0
-      Width = 88
+      Width = 50
       MaxValue = 63
       OnChange = StepSpinEditChange
       ParentFont = False
       TabOrder = 2
     end
     object ToolButton3: TToolButton
-      Left = 125
+      Left = 82
       Top = 0
       Action = PlayStartAction
     end
     object ExportGBSButton: TToolButton
-      Left = 556
+      Left = 368
       Hint = 'Export the song as a GBS soundtrack'
       Top = 0
       Caption = 'Export .GBS'
       OnClick = ExportGBSButtonClick
     end
     object ToolButton5: TToolButton
-      Left = 834
+      Left = 548
-      Height = 39
+      Height = 22
       Top = 0
       Caption = 'ToolButton5'
       Style = tbsDivider
     end
     object ToolButton10: TToolButton
-      Left = 689
+      Left = 455
       Hint = 'Export the song as WAV or MP3'
       Top = 0
       Caption = 'Render Song'
   end
   object MainMenu1: TMainMenu
     Images = ImageList1
-    Left = 70
+    Left = 40
-    Top = 56
+    Top = 32
     object MenuItem1: TMenuItem
       Caption = 'File'
       object MenuItem33: TMenuItem
   end
   object MenuBarActionList: TActionList
     Images = ImageList1
-    Left = 182
+    Left = 104
-    Top = 126
+    Top = 72
     object FileOpen1: TFileOpen
       Category = 'File'
       Caption = '&Open ...'
     end
   end
   object ImageList1: TImageList
-    Left = 266
+    Left = 152
-    Top = 56
+    Top = 32
     Bitmap = {
       4C694E0000001000000010000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
   end
   object OpenDialog1: TOpenDialog
     Filter = 'hUGETracker Instruments|*.ugi'
-    Left = 140
+    Left = 80
-    Top = 98
+    Top = 56
   end
   object InstrumentSaveDialog: TSaveDialog
     Filter = 'hUGETracker Instruments|*.ugi'
-    Left = 140
+    Left = 80
-    Top = 98
+    Top = 56
   end
   object OrderEditPopup: TPopupMenu
-    Left = 224
+    Left = 128
-    Top = 70
+    Top = 40
     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 = 84
+    Left = 48
-    Top = 151
+    Top = 86
     Bitmap = {
       4C69020000002000000020000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
     Enabled = False
     Interval = 200
     OnTimer = OscilloscopeUpdateTimerTimer
-    Left = 154
+    Left = 88
-    Top = 84
+    Top = 48
   end
   object GBSSaveDialog: TSaveDialog
     Filter = 'Gameboy Soundtrack|*.gbs'
-    Left = 504
+    Left = 288
-    Top = 42
+    Top = 24
   end
   object WaveSaveDialog: TSaveDialog
     Filter = 'hUGETracker Waves|*.ugw'
-    Left = 644
+    Left = 368
-    Top = 42
+    Top = 24
   end
   object GBSaveDialog: TSaveDialog
     Filter = 'Gameboy ROM|*.GB'
-    Left = 574
+    Left = 328
-    Top = 42
+    Top = 24
   end
   object NoteHaltTimer: TTimer
     Enabled = False
     OnTimer = NoteHaltTimerTimer
-    Left = 140
+    Left = 80
-    Top = 151
+    Top = 86
   end
   object TrackerGridPopup: TPopupMenu
-    Left = 168
+    Left = 96
-    Top = 42
+    Top = 24
     object TrackerPopupEditEffect: TMenuItem
       Caption = 'Edit effect ...'
       OnClick = TrackerPopupEditEffectClick
   object WavSaveDialog: TSaveDialog
     DefaultExt = '.wav'
     Filter = 'Wave files|*.wav'
-    Left = 714
+    Left = 408
-    Top = 42
+    Top = 24
   end
   object SynAnySyn1: TSynAnySyn
     Enabled = False
     Entity = False
     DollarVariables = False
     ActiveDot = False
-    Left = 14
+    Left = 8
-    Top = 151
+    Top = 86
   end
   object MODOpenDialog: TOpenDialog
     DefaultExt = '.mod'
     Filter = 'GBT Player MOD files|*.mod'
-    Left = 784
+    Left = 448
-    Top = 56
+    Top = 32
   end
   object WaveEditPopup: TPopupMenu
-    Left = 14
+    Left = 8
-    Top = 56
+    Top = 32
     object MenuItem37: TMenuItem
       Caption = 'Copy'
       OnClick = MenuItem37Click
   end
   object ShortcutsActionList: TActionList
     Images = ImageList1
-    Left = 364
+    Left = 208
-    Top = 56
+    Top = 32
     object PlayStartAction: TAction
       Caption = '▶️ Start'
       DisableIfNoHandler = False
   end
   object GBDKCSaveDialog: TSaveDialog
     Filter = 'GBDK C File|*.c'
-    Left = 434
+    Left = 248
-    Top = 42
+    Top = 24
   end
   object RGBDSAsmSaveDialog: TSaveDialog
     Filter = 'RGBDS Assembly|*.asm'
-    Left = 434
+    Left = 248
-    Top = 112
+    Top = 64
   end
 end

Modifiedtracker.pas +6−5

 // TODO: Move to config file?
 const
+  MaintainerEmail = '[email protected]';
+  MaintainerDiscord = 'SuperDisk#5726';
   clGameboyBlack = TColor($211807);
   clGameboyMidGreen = TColor($6CC086);
 // TODO: Move somewhere else...
     'An exception in hUGETracker has occured.' + LineEnding +
     'Your song has been backed up to the hUGETracker folder, so don''t worry!' + LineEnding+LineEnding+
     'Please report this issue on GitHub, or contact me directly via Discord or Email.'+LineEnding+LineEnding+
-    'Email: [email protected]'+LineEnding+
+    'Email: '+MaintainerEmail+LineEnding+
-    'Discord: SuperDisk#5726'+LineEnding+LineEnding+
+    'Discord: '+MaintainerDiscord+LineEnding+LineEnding+
-    'The error is: '+E.ClassName+' with message '+E.Message+LineEnding+LineEnding+
+    'The error is: '+E.ClassName+' with message '+E.Message,
-    'Thank you.',
     mtError,
     [mbOK], 0);
 procedure TfrmTracker.TreeView1DblClick(Sender: TObject);
 begin
-  if TreeView1.Selected = nil then Exit;
+  if not Assigned(TreeView1.Selected) then Exit;
   if TreeView1.Selected.Parent = DutyInstrumentsNode then begin
     LoadInstrument(itSquare, {%H-}PtrUInt(TreeView1.Selected.Data));

Commit cea31d2

Commit `cea31d2`