Commit `05e51d2`

Nick committed on Jan 9, 2020

Menu item stuff, trying to fix random crash

commit 05e51d21d64528bbd5aabea738e30de521e3f886 parent 0f7755b

4 changed files +114−40

Modifiedabout_hugetracker.lfm +22−20

`@@ -1,25 +1,25 @@`
1	`object frmAboutHugetracker: TfrmAboutHugetracker`	1	`object frmAboutHugetracker: TfrmAboutHugetracker`
2	`Left = 1198`	2	`Left = 710`
3	`Height = 430`	3	`Height = 502`
4	`Top = 827`	4	`Top = 325`
5	`Width = 786`	5	`Width = 917`
6	`BorderStyle = bsNone`	6	`BorderStyle = bsNone`
7	`Caption = 'About hUGETracker'`	7	`Caption = 'About hUGETracker'`
8	`ClientHeight = 430`	8	`ClientHeight = 502`
9	`ClientWidth = 786`	9	`ClientWidth = 917`
10	`Color = clMoneyGreen`	10	`Color = clMoneyGreen`
11	`DesignTimePPI = 144`	11	`DesignTimePPI = 168`
12	`Position = poDesktopCenter`	12	`Position = poDesktopCenter`
13	`LCLVersion = '2.0.6.0'`	13	`LCLVersion = '2.0.6.0'`
14	`object Panel1: TPanel`	14	`object Panel1: TPanel`
15	`Left = 40`	15	`Left = 47`
16	`Height = 192`	16	`Height = 224`
17	`Top = 40`	17	`Top = 47`
18	`Width = 704`	18	`Width = 821`
19	`Caption = 'hUGETracker'`	19	`Caption = 'hUGETracker'`
20	`Font.CharSet = ANSI_CHARSET`	20	`Font.CharSet = ANSI_CHARSET`
21	`Font.Color = clBlack`	21	`Font.Color = clBlack`
22	`Font.Height = -96`	22	`Font.Height = -112`
23	`Font.Name = 'Gill Sans MT'`	23	`Font.Name = 'Gill Sans MT'`
24	`Font.Pitch = fpVariable`	24	`Font.Pitch = fpVariable`
25	`Font.Quality = fqDraft`	25	`Font.Quality = fqDraft`
`@@ -28,22 +28,24 @@ object frmAboutHugetracker: TfrmAboutHugetracker`
28	`TabOrder = 0`	28	`TabOrder = 0`
29	`end`	29	`end`
30	`object Label1: TLabel`	30	`object Label1: TLabel`
31	`Left = 84`	31	`Left = 98`
32	`Height = 88`	32	`Height = 103`
33	`Top = 264`	33	`Top = 308`
34	`Width = 587`	34	`Width = 685`
35	`Alignment = taCenter`	35	`Alignment = taCenter`
36	`AutoSize = False`	36	`AutoSize = False`
37	`Caption = 'Created by Nick "SuperDisk" Faro and Eldred "ISSOtm" Habert'#13#10#13#10'Soundchip emulator written by Christian Hackbart and Rusty Wagner'`	37	`Caption = 'Created by Nick "SuperDisk" Faro and Eldred "ISSOtm" Habert'#13#10#13#10'Soundchip emulator written by Christian Hackbart and Rusty Wagner'`
38	`ParentColor = False`	38	`ParentColor = False`
		39	`ParentFont = False`
39	`end`	40	`end`
40	`object Button1: TButton`	41	`object Button1: TButton`
41	`Left = 292`	42	`Left = 341`
42	`Height = 38`	43	`Height = 44`
43	`Top = 368`	44	`Top = 429`
44	`Width = 202`	45	`Width = 236`
45	`Caption = 'Close'`	46	`Caption = 'Close'`
46	`OnClick = Button1Click`	47	`OnClick = Button1Click`
		48	`ParentFont = False`
47	`TabOrder = 1`	49	`TabOrder = 1`
48	`end`	50	`end`
49	`end`	51	`end`

Modifiedtracker.lfm +33−11

 object frmTracker: TfrmTracker
-  Left = 1156
+  Left = 892
   Height = 1275
-  Top = 228
+  Top = 168
   Width = 2056
   Caption = 'hUGETracker'
   ClientHeight = 1241
       Height = 845
       Top = 0
       Width = 1709
-      ActivePage = WavesTabSheet
+      ActivePage = PatternTabSheet
       Align = alClient
       ParentFont = False
-      TabIndex = 3
+      TabIndex = 1
       TabOrder = 0
       object GeneralTabSheet: TTabSheet
         Caption = 'General'
       end
       object MenuItem14: TMenuItem
         Action = FileExit1
+        OnClick = MenuItem14Click
       end
     end
     object MenuItem2: TMenuItem
         Caption = '-'
       end
       object MenuItem10: TMenuItem
-        Action = EditSelectAll1
+        Caption = 'Select &All'
+        Hint = 'Select All'
+        ImageIndex = 39
+        ShortCut = 16449
+        OnClick = MenuItem10Click
       end
       object MenuItem8: TMenuItem
-        Action = EditDelete1
+        Caption = '&Delete'
+        Hint = 'Delete'
+        ImageIndex = 13
+        ShortCut = 46
+        OnClick = MenuItem8Click
       end
       object N2: TMenuItem
         Caption = '-'
       end
       object MenuItem11: TMenuItem
-        Action = EditUndo1
+        Caption = '&Undo'
+        Hint = 'Undo'
+        ImageIndex = 66
+        ShortCut = 16474
+        OnClick = MenuItem11Click
       end
     end
     object MenuItem3: TMenuItem
       Caption = 'Help'
       object MenuItem15: TMenuItem
         Action = HelpLookupManual
+        Enabled = False
       end
       object N3: TMenuItem
         Caption = '-'
       end
       object MenuItem4: TMenuItem
         Caption = 'Example Songs'
+        Enabled = False
       end
       object MenuItem5: TMenuItem
         Caption = 'About hUGETracker'
         OnClick = MenuItem5Click
       end
     end
-    object DebugButton: TMenuItem
+    object DebugPlayNoteButton: TMenuItem
       Caption = 'Debug play note'
-      OnClick = DebugButtonClick
+      Visible = False
+      OnClick = DebugPlayNoteButtonClick
     end
-    object MenuItem16: TMenuItem
+    object DebugShiteButton: TMenuItem
       Caption = 'Debug shite'
-      OnClick = MenuItem16Click
+      Visible = False
+      OnClick = DebugShiteButtonClick
     end
   end
   object ActionList1: TActionList
     object EditUndo1: TEditUndo
       Category = 'Edit'
       Caption = '&Undo'
+      DisableIfNoHandler = False
       Hint = 'Undo'
       ImageIndex = 66
       ShortCut = 16474
     object EditDelete1: TEditDelete
       Category = 'Edit'
       Caption = '&Delete'
+      DisableIfNoHandler = False
       Hint = 'Delete'
       ImageIndex = 13
+      OnExecute = EditDelete1Execute
       ShortCut = 46
     end
     object EditSelectAll1: TEditSelectAll
       Category = 'Edit'
       Caption = 'Select &All'
+      DisableIfNoHandler = False
       Hint = 'Select All'
       ImageIndex = 39
       ShortCut = 16449
     object EditCut1: TEditCut
       Category = 'Edit'
       Caption = 'Cu&t'
+      DisableIfNoHandler = False
       Hint = 'Cut'
       ShortCut = 16472
     end

Modifiedtracker.pas +44−8

     MenuItem13: TMenuItem;
     MenuItem14: TMenuItem;
     MenuItem15: TMenuItem;
-    MenuItem16: TMenuItem;
+    DebugShiteButton: TMenuItem;
     N3: TMenuItem;
     N2: TMenuItem;
     N1: TMenuItem;
     WaveEditNumberSpinner: TSpinEdit;
     WaveEditGroupBox: TGroupBox;
     Label19: TLabel;
-    DebugButton: TMenuItem;
+    DebugPlayNoteButton: TMenuItem;
     WaveEditPaintBox: TPaintBox;
     RoutineNumberSpinner: TSpinEdit;
     Label17: TLabel;
     DivRatioSpinner: TECSpinPosition;
     TreeView1: TTreeView;
     TrackerGrid: TTrackerGrid;
+    procedure EditDelete1Execute(Sender: TObject);
     procedure InstrumentComboBoxChange(Sender: TObject);
     procedure CopyActionExecute(Sender: TObject);
     procedure CutActionExecute(Sender: TObject);
     procedure InstrumentNameEditChange(Sender: TObject);
     procedure InstrumentNumberSpinnerChange(Sender: TObject);
     procedure LengthSpinnerChange(Sender: TObject);
-    procedure DebugButtonClick(Sender: TObject);
+    procedure DebugPlayNoteButtonClick(Sender: TObject);
-    procedure MenuItem16Click(Sender: TObject);
+    procedure DebugShiteButtonClick(Sender: TObject);
+    procedure MenuItem10Click(Sender: TObject);
+    procedure MenuItem11Click(Sender: TObject);
+    procedure MenuItem14Click(Sender: TObject);
     procedure MenuItem17Click(Sender: TObject);
     procedure MenuItem18Click(Sender: TObject);
     procedure MenuItem19Click(Sender: TObject);
     procedure MenuItem21Click(Sender: TObject);
     procedure MenuItem22Click(Sender: TObject);
     procedure MenuItem5Click(Sender: TObject);
+    procedure MenuItem8Click(Sender: TObject);
     procedure NoiseVisualizerPaint(Sender: TObject);
     procedure OrderEditStringGridAfterSelection(Sender: TObject; aCol,
       aRow: Integer);
     // Start emulation on the rendered preview binary
     EmulationThread.Terminate;
-    EmulationThread.WaitFor;
+    //EmulationThread.WaitFor;
     EmulationThread.Free;
     EmulationThread := TEmulationThread.Create('hUGEDriver/preview.gb');
     PokeSymbol(SYM_TICKS_PER_ROW, Song.TicksPerRow);
   ToolButton2.ImageIndex := 74;
   EmulationThread.Terminate;
-  EmulationThread.WaitFor;
+  //EmulationThread.WaitFor;
   EmulationThread.Free;
   EmulationThread := TEmulationThread.Create('halt.gb');
   EmulationThread.Start;
   TrackerGrid.SelectedInstrument := InstrumentComboBox.ItemIndex;
 end;
+procedure TfrmTracker.EditDelete1Execute(Sender: TObject);
+begin
+end;
 procedure TfrmTracker.PasteActionExecute(Sender: TObject);
 begin
   PostMessage(Screen.ActiveControl.Handle, LM_PASTE, 0, 0);
   CurrentInstrument^.Length := Round(LengthSpinner.Position);
 end;
-procedure TfrmTracker.DebugButtonClick(Sender: TObject);
+procedure TfrmTracker.DebugPlayNoteButtonClick(Sender: TObject);
 begin
   PreviewInstrument(C_5, InstrumentNumberSpinner.Value);
 end;
-procedure TfrmTracker.MenuItem16Click(Sender: TObject);
+procedure TfrmTracker.DebugShiteButtonClick(Sender: TObject);
 begin
   RenderSongToFile(Song, 'song');
 end;
+procedure TfrmTracker.MenuItem10Click(Sender: TObject);
+begin
+  if (Screen.ActiveControl is TEdit) then
+    (Screen.ActiveControl as TEdit).SelectAll
+  else if (Screen.ActiveControl is TTrackerGrid) then
+    (Screen.ActiveControl as TTrackerGrid).SelectAll;
+end;
+procedure TfrmTracker.MenuItem11Click(Sender: TObject);
+begin
+end;
+procedure TfrmTracker.MenuItem14Click(Sender: TObject);
+begin
+  Halt;
+end;
 procedure TfrmTracker.MenuItem17Click(Sender: TObject);
 var
   X, Highest: Integer;
   AboutForm.Free;
 end;
+procedure TfrmTracker.MenuItem8Click(Sender: TObject);
+begin
+  if (Screen.ActiveControl is TEdit) then
+    (Screen.ActiveControl as TEdit).ClearSelection
+  else if (Screen.ActiveControl is TTrackerGrid) then
+    (Screen.ActiveControl as TTrackerGrid).EraseSelection;
+end;
 procedure TfrmTracker.NoiseVisualizerPaint(Sender: TObject);
 begin
   DrawVizualizer(NoiseVisualizer, 4);

Modifiedtrackergrid.pas +15−1

     procedure NormalizeCursors;
     procedure TransposeSelection(Semitones: Integer);
-    procedure EraseSelection;
     procedure InputNote(Key: Word);
     procedure InputInstrument(Key: Word);
     procedure InputVolume(Key: Word);
     procedure SetAt(SelectionPos: TSelectionPos; Value: Integer);
     procedure ClearAt(SelectionPos: TSelectionPos);
+    procedure SelectAll;
+    procedure EraseSelection;
     constructor Create(
       AOwner: TComponent;
       Parent: TWinControl;
     end;
 end;
+procedure TTrackerGrid.SelectAll;
+begin
+  Cursor.X := 0;
+  Cursor.Y := 0;
+  Cursor.SelectedPart := cpNote;
+  Other.X := High(Patterns);
+  Other.Y := High(TPattern);
+  Other.SelectedPart := cpEffectParams;
+  Invalidate;
+end;
 procedure TTrackerGrid.LoadPattern(Idx: Integer; PatternNumber: Integer);
 begin
   Patterns[Idx] := PatternMap.GetOrCreateNew(PatternNumber);

Commit 05e51d2

Commit `05e51d2`