Commit `f3e63d2`

Nick committed on Jan 11, 2020

Fix for header size hack

commit f3e63d221b3f20d64e989eb15fa345205519374c parent 1cece42

2 changed files +53−25

Modifiedtracker.lfm +37−19

 object frmTracker: TfrmTracker
-  Left = 796
+  Left = 825
   Height = 1250
-  Top = 758
+  Top = 233
   Width = 2067
   Caption = 'hUGETracker'
   ClientHeight = 1216
   OnKeyDown = FormKeyDown
   OnKeyUp = FormKeyUp
   OnShow = FormShow
+  Position = poDefault
   ShowHint = True
   LCLVersion = '2.0.6.0'
   object TreeView1: TTreeView
       ParentShowHint = False
     end
     object PanicToolButton: TToolButton
-      Left = 547
+      Left = 694
       Hint = 'Stops all sound output'
       Top = 0
       AutoSize = True
       ShowHint = True
     end
     object ToolButton2: TToolButton
-      Left = 169
+      Left = 217
       Top = 0
-      Caption = '⏯'
+      Caption = '▶️ Cursor'
       ImageIndex = 75
       OnClick = ToolButton2Click
     end
     object ToolButton4: TToolButton
-      Left = 224
+      Left = 327
       Top = 0
-      Caption = '⏹️'
+      Caption = '⏹ Stop'
       ImageIndex = 73
       OnClick = ToolButton4Click
     end
     object ExportGBButton: TToolButton
-      Left = 284
+      Left = 434
       Top = 0
       AutoSize = True
       Caption = 'Export .GB'
       Style = tbsDivider
     end
     object ToolButton6: TToolButton
-      Left = 279
+      Left = 429
       Height = 39
       Top = 0
       Caption = 'ToolButton6'
       Style = tbsDivider
     end
     object ToolButton7: TToolButton
-      Left = 539
+      Left = 1664
       Height = 39
       Top = 0
       Caption = 'ToolButton7'
       Style = tbsSeparator
     end
     object OctaveSpinEdit: TSpinEdit
-      Left = 708
+      Left = 855
       Height = 38
       Top = 0
       Width = 158
       TabOrder = 0
     end
     object ToolButton9: TToolButton
-      Left = 623
+      Left = 770
       Height = 39
       Top = 0
       Caption = 'ToolButton9'
       Style = tbsSeparator
     end
     object Label22: TLabel
-      Left = 631
+      Left = 778
       Height = 30
       Top = 0
       Width = 77
       ParentFont = False
     end
     object Label23: TLabel
-      Left = 866
+      Left = 1013
       Height = 30
       Top = 0
       Width = 125
       ParentFont = False
     end
     object InstrumentComboBox: TComboBox
-      Left = 991
+      Left = 1138
       Height = 38
       Top = 0
       Width = 374
       Text = '(no instrument)'
     end
     object Label24: TLabel
-      Left = 1365
+      Left = 1512
       Height = 30
       Top = 0
       Width = 64
       ParentFont = False
     end
     object StepSpinEdit: TSpinEdit
-      Left = 1429
+      Left = 1576
       Height = 38
       Top = 0
       Width = 88
     object ToolButton3: TToolButton
       Left = 125
       Top = 0
-      Caption = '▶️'
+      Caption = '▶️ Start'
       ImageIndex = 74
       OnClick = ToolButton3Click
     end
     object ExportGBSButton: TToolButton
-      Left = 406
+      Left = 556
       Top = 0
       Caption = 'Export .GBS'
       ImageIndex = 77
       OnClick = ExportGBSButtonClick
     end
+    object ToolButton5: TToolButton
+      Left = 689
+      Height = 39
+      Top = 0
+      Caption = 'ToolButton5'
+      Style = tbsDivider
+    end
   end
   object MainMenu1: TMainMenu
     Images = ImageList1
         OnClick = MenuItem8Click
       end
     end
+    object MenuItem10: TMenuItem
+      Caption = 'View'
+      Visible = False
+      object FontSizeToggleMenuItem: TMenuItem
+        AutoCheck = True
+        Caption = 'Pattern grid small font'
+        OnClick = FontSizeToggleMenuItemClick
+      end
+    end
     object MenuItem3: TMenuItem
       Caption = 'Help'
       object MenuItem15: TMenuItem
     end
     object DebugShiteButton: TMenuItem
       Caption = 'Debug shite'
+      Visible = False
       OnClick = DebugShiteButtonClick
     end
   end

Modifiedtracker.pas +16−6

     ImageList2: TImageList;
     GBSaveDialog: TSaveDialog;
     Label25: TLabel;
+    MenuItem10: TMenuItem;
     MenuItem16: TMenuItem;
     MenuItem23: TMenuItem;
     MenuItem24: TMenuItem;
+    FontSizeToggleMenuItem: TMenuItem;
     MenuItem8: TMenuItem;
     NoteHaltTimer: TTimer;
     StartVolTrackbar: TTrackBar;
     DivRatioTrackbar: TTrackBar;
     LengthTrackbar: TTrackBar;
     SweepSizeTrackbar: TTrackBar;
+    ToolButton5: TToolButton;
     WaveSaveDialog: TSaveDialog;
     Label22: TLabel;
     Label23: TLabel;
     procedure MenuItem19Click(Sender: TObject);
     procedure MenuItem21Click(Sender: TObject);
     procedure MenuItem22Click(Sender: TObject);
+    procedure FontSizeToggleMenuItemClick(Sender: TObject);
     procedure MenuItem5Click(Sender: TObject);
     procedure MenuItem8Click(Sender: TObject);
     procedure NoiseVisualizerPaint(Sender: TObject);
 end;
 procedure TfrmTracker.RecreateTrackerGrid;
+var
+  Section: TCollectionItem;
 begin
   if Assigned(TrackerGrid) then TrackerGrid.Free;
   TrackerGrid := TTrackerGrid.Create(Self, ScrollBox1, Song.Patterns);
+  // Fix the size of the channel headers
+  for Section in HeaderControl1.Sections do
+    (Section as THeaderSection).Width := TrackerGrid.ColumnWidth;
 end;
 procedure TfrmTracker.LoadInstrument(Instr: Integer);
 procedure TfrmTracker.FormCreate(Sender: TObject);
 var
   I: Integer;
-  Section: TCollectionItem;
   F: file;
   Stream: TStream;
 begin
   // Initialize ticks per row
   Song.TicksPerRow := TicksPerRowSpinEdit.Value;
-  // Fix the size of the channel headers
-  for Section in HeaderControl1.Sections do
-    (Section as THeaderSection).Width := TrackerGrid.ColumnWidth;
   LoadInstrument(1);
   LoadWave(0);
   ReloadPatterns;
 end;
+procedure TfrmTracker.FontSizeToggleMenuItemClick(Sender: TObject);
+begin
+end;
 procedure TfrmTracker.MenuItem5Click(Sender: TObject);
 var
   AboutForm: TfrmAboutHugeTracker;
     PokeSymbol(SYM_ROW, TrackerGrid.Cursor.Y);
     EmulationThread.Start;
-  end;
+  end
 end;
 procedure TfrmTracker.ToolButton3Click(Sender: TObject);

Commit f3e63d2

Commit `f3e63d2`