Commit `96d5dd2`

Nick committed on Dec 31, 2020

Changes to manual, some textbox lenghts

commit 96d5dd2b641515fb0433d6007e06d2b7fbfc21d0 parent ea59125

3 changed files +161−158

Modifiedrendertowave.lfm +56−57

 object frmRenderToWave: TfrmRenderToWave
   Left = 1086
-  Height = 548
+  Height = 313
   Top = 105
-  Width = 789
+  Width = 451
   BorderStyle = bsSingle
   Caption = 'Render song'
-  ClientHeight = 548
+  ClientHeight = 313
-  ClientWidth = 789
+  ClientWidth = 451
-  DesignTimePPI = 168
   OnShow = FormShow
   Position = poDefault
-  LCLVersion = '2.0.9.0'
+  LCLVersion = '2.0.11.0'
   object RenderButton: TButton
-    Left = 30
+    Left = 17
-    Height = 44
+    Height = 25
-    Top = 476
+    Top = 272
-    Width = 462
+    Width = 264
     Caption = 'Render'
     Enabled = False
     OnClick = RenderButtonClick
     TabOrder = 0
   end
   object FileNameEdit1: TFileNameEdit
-    Left = 126
+    Left = 72
-    Height = 38
+    Height = 23
-    Top = 14
+    Top = 8
-    Width = 634
+    Width = 362
     OnAcceptFileName = FileNameEdit1AcceptFileName
     Filter = 'Wave Files|*.wav|MP3 Files|*.mp3'
     FilterIndex = 0
     HideDirectories = False
-    ButtonWidth = 40
+    ButtonWidth = 23
     NumGlyphs = 1
     MaxLength = 0
     ParentFont = False
     OnChange = FileNameEdit1Change
   end
   object Label1: TLabel
-    Left = 14
+    Left = 8
-    Height = 30
+    Height = 15
-    Top = 28
+    Top = 16
-    Width = 83
+    Width = 48
     Caption = 'Filename'
     ParentColor = False
     ParentFont = False
   end
   object RadioGroup1: TRadioGroup
-    Left = 14
+    Left = 8
-    Height = 102
+    Height = 58
-    Top = 70
+    Top = 40
-    Width = 338
+    Width = 193
     AutoFill = True
     Caption = 'Duration'
     ChildSizing.LeftRightSpacing = 6
     ChildSizing.ShrinkVertical = crsScaleChilds
     ChildSizing.Layout = cclLeftToRightThenTopToBottom
     ChildSizing.ControlsPerLine = 2
-    ClientHeight = 67
+    ClientHeight = 38
-    ClientWidth = 334
+    ClientWidth = 189
     Columns = 2
     ItemIndex = 0
     Items.Strings = (
     TabOrder = 2
   end
   object Notebook1: TNotebook
-    Left = 14
+    Left = 8
-    Height = 196
+    Height = 112
-    Top = 182
+    Top = 104
-    Width = 744
+    Width = 425
     PageIndex = 0
     TabOrder = 3
     object Page1: TPage
       object Label2: TLabel
-        Left = 28
+        Left = 16
-        Height = 30
+        Height = 15
-        Top = 42
+        Top = 24
-        Width = 77
+        Width = 44
         Caption = 'Seconds'
         ParentColor = False
         ParentFont = False
       end
       object SecondsSpinEdit: TSpinEdit
-        Left = 126
+        Left = 72
-        Height = 38
+        Height = 23
-        Top = 28
+        Top = 16
-        Width = 602
+        Width = 344
         MaxValue = 0
         ParentFont = False
         TabOrder = 0
     end
     object Page2: TPage
       object Label3: TLabel
-        Left = 28
+        Left = 16
         Height = 15
-        Top = 28
+        Top = 16
         Width = 129
         Caption = 'Stop playing when order'
         ParentColor = False
         ParentFont = False
       end
       object OrderSpinEdit: TSpinEdit
-        Left = 280
+        Left = 160
         Height = 23
-        Top = 14
+        Top = 8
-        Width = 434
+        Width = 248
         MaxValue = 0
         ParentFont = False
         TabOrder = 0
       end
       object Label4: TLabel
-        Left = 28
+        Left = 16
         Height = 15
-        Top = 84
+        Top = 48
         Width = 92
         Caption = 'has been reached'
         ParentColor = False
         ParentFont = False
       end
       object LoopTimesSpinEdit: TSpinEdit
-        Left = 280
+        Left = 160
         Height = 23
-        Top = 70
+        Top = 40
-        Width = 434
+        Width = 248
         MaxValue = 0
         ParentFont = False
         TabOrder = 1
       end
       object Label5: TLabel
-        Left = 28
+        Left = 16
         Height = 15
-        Top = 140
+        Top = 80
         Width = 29
         Caption = 'times'
         ParentColor = False
     end
   end
   object ProgressBar1: TProgressBar
-    Left = 30
+    Left = 17
-    Height = 49
+    Height = 28
-    Top = 406
+    Top = 232
-    Width = 730
+    Width = 417
     ParentFont = False
     TabOrder = 4
   end
   object CancelButton: TButton
-    Left = 504
+    Left = 288
-    Height = 44
+    Height = 25
-    Top = 476
+    Top = 272
-    Width = 256
+    Width = 146
     Caption = 'Cancel'
     Enabled = False
     OnClick = CancelButtonClick

Modifiedtracker.lfm +105−101

       Height = 521
       Top = 0
       Width = 1034
-      ActivePage = GeneralTabSheet
+      ActivePage = RoutinesTabSheet
       Align = alClient
       ParentFont = False
-      TabIndex = 0
+      TabIndex = 5
       TabOrder = 0
       object GeneralTabSheet: TTabSheet
         Caption = 'General'
             Hint = 'The name of your composition'
             Top = 8
             Width = 216
+            MaxLength = 255
             OnChange = SongEditChange
             ParentFont = False
             TabOrder = 0
             Hint = 'Your name or handle'
             Top = 40
             Width = 216
+            MaxLength = 255
             OnChange = ArtistEditChange
             ParentFont = False
             TabOrder = 1
       end
       object PatternTabSheet: TTabSheet
         Caption = 'Patterns'
-        ClientHeight = 869
+        ClientHeight = 493
-        ClientWidth = 1801
+        ClientWidth = 1026
         ParentFont = False
         object Panel3: TPanel
-          Left = 392
+          Left = 224
-          Height = 869
+          Height = 493
           Top = 0
-          Width = 1409
+          Width = 802
           Align = alClient
-          ClientHeight = 869
+          ClientHeight = 493
-          ClientWidth = 1409
+          ClientWidth = 802
           ParentFont = False
           TabOrder = 0
           object HeaderControl1: THeaderControl
             Height = 30
             Hint = 'Left click to mute, right click to solo'
             Top = 1
-            Width = 1407
+            Width = 800
             DragReorder = False
             Images = ImageList2
             Sections = <
           end
           object ScrollBox1: TScrollBox
             Left = 1
-            Height = 815
+            Height = 461
-            Top = 53
+            Top = 31
-            Width = 1407
+            Width = 800
-            HorzScrollBar.Increment = 5
+            HorzScrollBar.Increment = 3
-            HorzScrollBar.Page = 56
+            HorzScrollBar.Page = 32
             HorzScrollBar.Smooth = True
             HorzScrollBar.Tracking = True
-            VertScrollBar.Page = 88
+            VertScrollBar.Increment = 5
+            VertScrollBar.Page = 50
             VertScrollBar.Smooth = True
             VertScrollBar.Tracking = True
             Align = alClient
             BorderStyle = bsNone
-            ClientHeight = 815
+            ClientHeight = 461
-            ClientWidth = 1407
+            ClientWidth = 800
             ParentFont = False
             TabOrder = 1
             OnMouseWheelDown = ScrollBox1MouseWheelDown
             OnMouseWheelUp = ScrollBox1MouseWheelUp
             object RowNumberStringGrid: TStringGrid
               Left = 0
-              Height = 815
+              Height = 461
               Top = 0
               Width = 32
               Align = alLeft
         end
         object OrderEditStringGrid: TStringGrid
           Left = 0
-          Height = 869
+          Height = 493
           Top = 0
           Width = 224
           Align = alLeft
       end
       object InstrumentTabSheet: TTabSheet
         Caption = 'Instruments'
-        ClientHeight = 870
+        ClientHeight = 493
-        ClientWidth = 1801
+        ClientWidth = 1026
         ParentFont = False
         object PaintBox1: TPaintBox
           AnchorSideTop.Control = FlowPanel1
           Left = 0
           Height = 0
           Hint = 'Preview of how the resulting waveform will look with envelope applied'
-          Top = 870
+          Top = 493
-          Width = 1801
+          Width = 1026
           Align = alClient
           Color = clBlack
           ParentColor = False
         end
         object FlowPanel1: TFlowPanel
           Left = 0
-          Height = 1180
+          Height = 675
           Top = 0
-          Width = 1801
+          Width = 1026
           Align = alTop
           AutoSize = True
           BevelOuter = bvNone
           ParentFont = False
           TabOrder = 0
           object InstrumentGroupBox: TGroupBox
-            Left = 12
+            Left = 7
             Height = 241
-            Top = 12
+            Top = 7
             Width = 271
             Anchors = []
             BorderSpacing.Left = 7
             TabOrder = 0
             object InstrumentNumberSpinner: TSpinEdit
               Left = 80
-              Height = 38
+              Height = 23
               Hint = 'What instrument to edit'
               Top = 38
               Width = 176
             end
             object Label1: TLabel
               Left = 8
-              Height = 30
+              Height = 15
               Top = 46
-              Width = 101
+              Width = 58
               Caption = 'Instrument'
               ParentColor = False
               ParentFont = False
             end
             object Label2: TLabel
               Left = 8
-              Height = 30
+              Height = 15
               Top = 78
-              Width = 56
+              Width = 32
               Caption = 'Name'
               ParentColor = False
               ParentFont = False
             end
             object InstrumentNameEdit: TEdit
               Left = 80
-              Height = 38
+              Height = 23
               Hint = 'The name of the instrument'
               Top = 70
               Width = 176
+              MaxLength = 255
               OnChange = InstrumentNameEditChange
               ParentFont = False
               TabOrder = 1
             end
             object Label3: TLabel
               Left = 8
-              Height = 30
+              Height = 15
               Top = 16
-              Width = 80
+              Width = 44
               Caption = 'Channel'
               Font.Style = [fsBold]
               ParentColor = False
             end
             object LengthEnabledCheckbox: TCheckBox
               Left = 12
-              Height = 34
+              Height = 19
               Hint = 'Cut the sound after a certain length of time'
               Top = 118
-              Width = 98
+              Width = 57
               Caption = 'Length'
               OnChange = LengthEnabledCheckboxChange
               ParentFont = False
             end
           end
           object EnvelopeGroupBox: TGroupBox
-            Left = 510
+            Left = 292
             Height = 136
-            Top = 12
+            Top = 7
             Width = 582
             Anchors = []
             BorderSpacing.Left = 7
             TabOrder = 1
             object Label4: TLabel
               Left = 8
-              Height = 30
+              Height = 15
               Top = 9
-              Width = 80
+              Width = 46
               Caption = 'Start vol.'
               ParentColor = False
               ParentFont = False
             end
             object Label5: TLabel
               Left = 8
-              Height = 30
+              Height = 15
               Top = 48
-              Width = 84
+              Width = 48
               Caption = 'Direction'
               ParentColor = False
               ParentFont = False
             end
             object Label6: TLabel
               Left = 8
-              Height = 30
+              Height = 15
               Top = 86
-              Width = 71
+              Width = 41
               Caption = 'Change'
               ParentColor = False
               ParentFont = False
               TabOrder = 1
               object EnvelopePaintbox: TPaintBox
                 Left = 1
-                Height = 180
+                Height = 102
                 Hint = 'Preview of the volume envelope'
                 Top = 1
-                Width = 470
+                Width = 268
                 Align = alClient
                 ParentFont = False
                 OnPaint = EnvelopePaintboxPaint
             end
           end
           object SquareGroupBox: TGroupBox
-            Left = 12
+            Left = 7
             Height = 169
-            Top = 458
+            Top = 262
             Width = 319
             Anchors = []
             BorderSpacing.Left = 7
             TabOrder = 2
             object Label7: TLabel
               Left = 8
-              Height = 30
+              Height = 15
               Top = 16
-              Width = 107
+              Width = 61
               Caption = 'Sweep time'
               ParentColor = False
               ParentFont = False
             end
             object Label8: TLabel
               Left = 8
-              Height = 30
+              Height = 15
               Top = 48
-              Width = 147
+              Width = 84
               Caption = 'Sweep direction'
               ParentColor = False
               ParentFont = False
             end
             object Label9: TLabel
               Left = 8
-              Height = 30
+              Height = 15
               Top = 84
-              Width = 101
+              Width = 56
               Caption = 'Sweep size'
               ParentColor = False
               ParentFont = False
             end
             object Label10: TLabel
               Left = 8
-              Height = 30
+              Height = 15
               Top = 120
-              Width = 44
+              Width = 25
               Caption = 'Duty'
               ParentColor = False
               ParentFont = False
             end
           end
           object WaveGroupBox: TGroupBox
-            Left = 594
+            Left = 340
             Height = 169
-            Top = 458
+            Top = 262
             Width = 297
             Anchors = []
             BorderSpacing.Left = 7
             TabOrder = 3
             object Label11: TLabel
               Left = 8
-              Height = 30
+              Height = 15
               Top = 16
-              Width = 70
+              Width = 40
               Caption = 'Volume'
               ParentColor = False
               ParentFont = False
             end
             object Label12: TLabel
               Left = 8
-              Height = 30
+              Height = 15
               Top = 48
-              Width = 95
+              Width = 55
               Caption = 'Waveform'
               ParentColor = False
               ParentFont = False
               TabOrder = 1
               object WavePaintbox: TPaintBox
                 Left = 1
-                Height = 101
+                Height = 57
                 Hint = 'Preview of the waveform associated with this instrument'
                 Top = 1
-                Width = 474
+                Width = 270
                 Align = alClient
                 Color = clBlack
                 ParentColor = False
             end
           end
           object NoiseGroupBox: TGroupBox
-            Left = 12
+            Left = 7
             Height = 223
-            Top = 778
+            Top = 445
             Width = 397
             Anchors = []
             BorderSpacing.Left = 7
             TabOrder = 4
             object SevenBitCounterCheckbox: TCheckBox
               Left = 8
-              Height = 34
+              Height = 19
               Hint = 'Select LFSR width. When checked, output will sound like a tone rather than noise'
               Top = 8
-              Width = 373
+              Width = 215
               Alignment = taLeftJustify
               Caption = '7 bit counter (more tone-like output)'
               OnChange = SevenBitCounterCheckboxChange
               TabOrder = 1
               object NoiseMacroPaintbox: TPaintBox
                 Left = 1
-                Height = 264
+                Height = 150
                 Top = 1
-                Width = 656
+                Width = 374
                 Align = alClient
                 ParentFont = False
                 OnMouseDown = NoiseMacroPaintboxMouseDown
       end
       object WavesTabSheet: TTabSheet
         Caption = 'Waves'
-        ClientHeight = 641
+        ClientHeight = 493
-        ClientWidth = 1064
+        ClientWidth = 1026
         ParentFont = False
         object WaveEditPaintBox: TPaintBox
           AnchorSideTop.Control = WaveEditGroupBox
           AnchorSideTop.Side = asrBottom
           Left = 0
-          Height = 481
+          Height = 333
           Top = 160
-          Width = 1064
+          Width = 1026
           Align = alBottom
           Anchors = [akTop, akLeft, akRight, akBottom]
           BorderSpacing.Top = 13
       end
       object CommentsTabSheet: TTabSheet
         Caption = 'Comments'
-        ClientHeight = 502
+        ClientHeight = 493
-        ClientWidth = 939
+        ClientWidth = 1026
         ParentFont = False
         object CommentMemo: TMemo
           AnchorSideTop.Control = Label17
           AnchorSideTop.Side = asrBottom
           Left = 0
-          Height = 466
+          Height = 457
           Hint = 'The comments section for your song. Greetings/links/etc'
           Top = 36
-          Width = 939
+          Width = 1026
           Align = alBottom
           Anchors = [akTop, akLeft, akRight, akBottom]
           BorderSpacing.Top = 13
       end
       object RoutinesTabSheet: TTabSheet
         Caption = 'Routines'
-        ClientHeight = 483
+        ClientHeight = 493
-        ClientWidth = 1063
+        ClientWidth = 1026
         ParentFont = False
         inline RoutineSynedit: TSynEdit
           AnchorSideTop.Control = Label19
           AnchorSideTop.Side = asrBottom
           Left = 0
-          Height = 355
+          Height = 365
           Top = 128
-          Width = 1063
+          Width = 1026
           Align = alBottom
           BorderSpacing.Top = 13
           Anchors = [akTop, akLeft, akRight, akBottom]
       ParentShowHint = False
     end
     object PanicToolButton: TToolButton
-      Left = 551
+      Left = 557
       Hint = 'Stops all sound output'
       Top = 0
       AutoSize = True
       ShowHint = True
     end
     object ToolButton2: TToolButton
-      Left = 145
+      Left = 147
       Top = 0
       Action = PlayCursorAction
     end
     object ToolButton4: TToolButton
-      Left = 219
+      Left = 221
       Top = 0
       Action = StopAction
     end
     object ExportGBButton: TToolButton
-      Left = 287
+      Left = 291
       Hint = 'Export the song as a standalone ROM'
       Top = 0
       AutoSize = True
       Style = tbsDivider
     end
     object ToolButton6: TToolButton
-      Left = 284
+      Left = 286
       Height = 22
       Top = 0
       Caption = 'ToolButton6'
       Style = tbsDivider
     end
     object ToolButton7: TToolButton
-      Left = 1088
+      Left = 1097
       Height = 22
       Top = 0
       Caption = 'ToolButton7'
       Style = tbsSeparator
     end
     object OctaveSpinEdit: TSpinEdit
-      Left = 654
+      Left = 663
       Height = 23
       Hint = 'The octave offset for entering new notes'
       Top = 0
       TabOrder = 0
     end
     object ToolButton9: TToolButton
-      Left = 606
+      Left = 612
       Height = 22
       Top = 0
       Caption = 'ToolButton9'
       Style = tbsSeparator
     end
     object Label22: TLabel
-      Left = 611
+      Left = 620
       Height = 22
       Top = 0
       Width = 43
       ParentFont = False
     end
     object Label23: TLabel
-      Left = 719
+      Left = 728
       Height = 22
       Top = 0
       Width = 70
       ParentFont = False
     end
     object InstrumentComboBox: TComboBox
-      Left = 789
+      Left = 798
       Height = 23
       Hint = 'The selected instrument for new notes'
       Top = 0
       Text = '(no instrument)'
     end
     object Label24: TLabel
-      Left = 1003
+      Left = 1012
       Height = 22
       Top = 0
       Width = 35
       ParentFont = False
     end
     object StepSpinEdit: TSpinEdit
-      Left = 1038
+      Left = 1047
       Height = 23
       Hint = 'How many rows to step down after entering a new note'
       Top = 0
       TabOrder = 2
     end
     object ToolButton3: TToolButton
-      Left = 82
+      Left = 84
       Top = 0
       Action = PlayStartAction
     end
     object ExportGBSButton: TToolButton
-      Left = 368
+      Left = 372
       Hint = 'Export the song as a GBS soundtrack'
       Top = 0
       Caption = 'Export .GBS'
       OnClick = ExportGBSButtonClick
     end
     object ToolButton5: TToolButton
-      Left = 548
+      Left = 552
       Height = 22
       Top = 0
       Caption = 'ToolButton5'
       Style = tbsDivider
     end
     object ToolButton10: TToolButton
-      Left = 455
+      Left = 459
       Hint = 'Export the song as WAV or MP3'
       Top = 0
       Caption = 'Render Song'

Commit 96d5dd2

Commit `96d5dd2`