update ui to allow 255 waves

SuperDisk · Dec 31, 2024 · 1b6f5ef · 1b6f5ef
1 parent 157b640
commit 1b6f5ef
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 7 deletions.
diff --git a/src/hugedatatypes.pas b/src/hugedatatypes.pas
@@ -304,7 +304,8 @@   TRegisters = record
 
   TWaveBankV1 = packed array[0..15] of TWaveV1;
   TWaveBankV2 = packed array[0..15] of TWaveV2;
-  TWaveBank = TWaveBankV2;
+  TWaveBankV3 = packed array[0..255] of TWaveV2;
+  TWaveBank = TWaveBankV3;
   TRoutineBank = packed array[0..15] of TRoutine;
 
   TOrderMatrix = packed array[0..3] of array of Integer;

diff --git a/src/tracker.lfm b/src/tracker.lfm
@@ -62,10 +62,10 @@ object frmTracker: TfrmTracker
       Height = 598
       Top = 0
       Width = 936
-      ActivePage = GeneralTabSheet
+      ActivePage = WavesTabSheet
       Align = alClient
       ParentFont = False
-      TabIndex = 0
+      TabIndex = 3
       TabOrder = 0
       object GeneralTabSheet: TTabSheet
         Caption = 'General'
@@ -1112,7 +1112,7 @@ object frmTracker: TfrmTracker
           Top = 8
           Width = 568
           Caption = 'Wave Editor'
-          ClientHeight = 135
+          ClientHeight = 120
           ClientWidth = 564
           ParentFont = False
           TabOrder = 0
@@ -1130,7 +1130,7 @@ object frmTracker: TfrmTracker
             Height = 27
             Top = 8
             Width = 80
-            MaxValue = 15
+            MaxValue = 255
             OnChange = WaveEditNumberSpinnerChange
             ParentFont = False
             TabOrder = 0

diff --git a/src/tracker.pas b/src/tracker.pas
@@ -1494,11 +1494,11 @@ procedure TfrmTracker.FormCreate(Sender: TObject);
     TreeView1.Items.AddChild(DutyInstrumentsNode, IntToStr(PUI)+':').Data := {%H-}Pointer(PUI);
     TreeView1.Items.AddChild(WaveInstrumentsNode, IntToStr(PUI)+':').Data := {%H-}Pointer(PUI);
     TreeView1.Items.AddChild(NoiseInstrumentsNode, IntToStr(PUI)+':').Data := {%H-}Pointer(PUI);
+    TreeView1.Items.AddChild(RoutinesNode, 'Routine '+IntToStr(PUI)).Data := {%H-}Pointer(PUI);
   end;
 
-  for PUI := 0 to 15 do begin
+  for PUI := 0 to 255 do begin
     TreeView1.Items.AddChild(WavesNode, 'Wave '+IntToStr(PUI)).Data := {%H-}Pointer(PUI);
-    TreeView1.Items.AddChild(RoutinesNode, 'Routine '+IntToStr(PUI)).Data := {%H-}Pointer(PUI);
   end;
 
   InitializeSong(Song);