Commit 0d6222e

Nick Faro committed on
Remove debug play note
commit 0d6222e1dbe5ce29af55c5f9a30203ae60525136 parent 2e16683
2 changed files +4−18
Modifiedtracker.lfm +4−10
@@ -1,7 +1,7 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 1218 2 Left = 1701
3 Height = 902 3 Height = 902
4 Top = 132 4 Top = 190
5 Width = 1458 5 Width = 1458
6 AllowDropFiles = True 6 AllowDropFiles = True
7 Caption = 'hUGETracker' 7 Caption = 'hUGETracker'
@@ -61,10 +61,10 @@ object frmTracker: TfrmTracker
61 Height = 770 61 Height = 770
62 Top = 0 62 Top = 0
63 Width = 1260 63 Width = 1260
64 ActivePage = InstrumentTabSheet 64 ActivePage = PatternTabSheet
65 Align = alClient 65 Align = alClient
66 ParentFont = False 66 ParentFont = False
67 TabIndex = 2 67 TabIndex = 1
68 TabOrder = 0 68 TabOrder = 0
69 object GeneralTabSheet: TTabSheet 69 object GeneralTabSheet: TTabSheet
70 Caption = 'General' 70 Caption = 'General'
@@ -235,7 +235,6 @@ object frmTracker: TfrmTracker
235 BorderStyle = bsNone 235 BorderStyle = bsNone
236 ColCount = 1 236 ColCount = 1
237 DefaultColWidth = 32 237 DefaultColWidth = 32
238 Enabled = False
239 ParentFont = False 238 ParentFont = False
240 RowCount = 64 239 RowCount = 64
241 ScrollBars = ssNone 240 ScrollBars = ssNone
@@ -969,7 +968,6 @@ object frmTracker: TfrmTracker
969 BorderStyle = bsNone 968 BorderStyle = bsNone
970 ColCount = 1 969 ColCount = 1
971 DefaultColWidth = 32 970 DefaultColWidth = 32
972 Enabled = False
973 ParentFont = False 971 ParentFont = False
974 RowCount = 64 972 RowCount = 64
975 ScrollBars = ssNone 973 ScrollBars = ssNone
@@ -2082,10 +2080,6 @@ object frmTracker: TfrmTracker
2082 Caption = 'Find problems in song' 2080 Caption = 'Find problems in song'
2083 end 2081 end
2084 end 2082 end
2085 object DebugPlayNoteButton: TMenuItem
2086 Caption = 'Debug play note'
2087 OnClick = DebugPlayNoteButtonClick
2088 end
2089 object DebugButton: TMenuItem 2083 object DebugButton: TMenuItem
2090 Caption = 'Debug button' 2084 Caption = 'Debug button'
2091 OnClick = DebugButtonClick 2085 OnClick = DebugButtonClick
Modifiedtracker.pas +0−8
@@ -202,7 +202,6 @@ type
202 WaveEditNumberSpinner: TSpinEdit; 202 WaveEditNumberSpinner: TSpinEdit;
203 WaveEditGroupBox: TGroupBox; 203 WaveEditGroupBox: TGroupBox;
204 Label19: TLabel; 204 Label19: TLabel;
205 DebugPlayNoteButton: TMenuItem;
206 WaveEditPaintBox: TPaintBox; 205 WaveEditPaintBox: TPaintBox;
207 RoutineNumberSpinner: TSpinEdit; 206 RoutineNumberSpinner: TSpinEdit;
208 Label17: TLabel; 207 Label17: TLabel;
@@ -341,7 +340,6 @@ type
341 procedure InstrumentNameEditChange(Sender: TObject); 340 procedure InstrumentNameEditChange(Sender: TObject);
342 procedure InstrumentNumberSpinnerChange(Sender: TObject); 341 procedure InstrumentNumberSpinnerChange(Sender: TObject);
343 procedure LengthSpinnerChange(Sender: TObject); 342 procedure LengthSpinnerChange(Sender: TObject);
344 procedure DebugPlayNoteButtonClick(Sender: TObject);
345 procedure MenuItem11Click(Sender: TObject); 343 procedure MenuItem11Click(Sender: TObject);
346 procedure MenuItem12Click(Sender: TObject); 344 procedure MenuItem12Click(Sender: TObject);
347 procedure MenuItem14Click(Sender: TObject); 345 procedure MenuItem14Click(Sender: TObject);
@@ -2092,12 +2090,6 @@ begin
2092 EnvelopePaintBox.Invalidate; 2090 EnvelopePaintBox.Invalidate;
2093 end; 2091 end;
2094 2092
2095 procedure TfrmTracker.DebugPlayNoteButtonClick(Sender: TObject);
2096 begin
2097 PreviewInstrument(C_5, InstrumentNumberSpinner.Value);
2098 //PreviewInstrument(NotesToFreqs.KeyData[C_5], InstrumentComboBox.ItemIndex);
2099 end;
2100
2101 procedure TfrmTracker.MenuItem11Click(Sender: TObject); 2093 procedure TfrmTracker.MenuItem11Click(Sender: TObject);
2102 begin 2094 begin
2103 TrackerGrid.DoUndo; 2095 TrackerGrid.DoUndo;