Commit bb55981

Nick committed on
Fix note preview being offsetted by 1
commit bb559816399db248c8e9d28a61e4300abf858b07 parent d7b6aa2
1 changed files +2−1
Modifiedtracker.pas +2−1
@@ -975,7 +975,7 @@ begin
975 975
976 if not NotesToFreqs.TryGetData(Note, Freq) then Exit; 976 if not NotesToFreqs.TryGetData(Note, Freq) then Exit;
977 977
978 PreviewInstrument(Freq, InstrumentComboBox.ItemIndex-1); 978 PreviewInstrument(Freq, InstrumentComboBox.ItemIndex);
979 PreviewingInstrument := Note; 979 PreviewingInstrument := Note;
980 end; 980 end;
981 981
@@ -1238,6 +1238,7 @@ end;
1238 procedure TfrmTracker.DebugPlayNoteButtonClick(Sender: TObject); 1238 procedure TfrmTracker.DebugPlayNoteButtonClick(Sender: TObject);
1239 begin 1239 begin
1240 PreviewInstrument(C_5, InstrumentNumberSpinner.Value); 1240 PreviewInstrument(C_5, InstrumentNumberSpinner.Value);
1241 //PreviewInstrument(NotesToFreqs.KeyData[C_5], InstrumentComboBox.ItemIndex);
1241 end; 1242 end;
1242 1243
1243 procedure TfrmTracker.DebugShiteButtonClick(Sender: TObject); 1244 procedure TfrmTracker.DebugShiteButtonClick(Sender: TObject);