Commit 7d280ba

CluckFox committed on
more natural rolling note previews 
This is a proposed fix for issue #57
commit 7d280ba24c4fc1832c47d621482025fa03d01a3d parent 7d3d50b
1 changed files +6−2
Modifiedtracker.pas +6−2
@@ -432,6 +432,7 @@ type
432 LoadedFileName: String; 432 LoadedFileName: String;
433 433
434 PreviewingInstrument: Integer; 434 PreviewingInstrument: Integer;
435 PreviewingWithKey: Word;
435 DrawingWave, DrawingMacro: Boolean; 436 DrawingWave, DrawingMacro: Boolean;
436 Playing: Boolean; 437 Playing: Boolean;
437 LoadingFile: Boolean; 438 LoadingFile: Boolean;
@@ -504,7 +505,6 @@ implementation
504 {$R *.lfm} 505 {$R *.lfm}
505 506
506 { TfrmTracker } 507 { TfrmTracker }
507
508 procedure TfrmTracker.UpdateUIAfterLoad(FileName: String = ''); 508 procedure TfrmTracker.UpdateUIAfterLoad(FileName: String = '');
509 var 509 var
510 I: Integer; 510 I: Integer;
@@ -1512,13 +1512,17 @@ begin
1512 PreviewInstrument(Note, InstrumentComboBox.ItemIndex, False); 1512 PreviewInstrument(Note, InstrumentComboBox.ItemIndex, False);
1513 1513
1514 PreviewingInstrument := Note; 1514 PreviewingInstrument := Note;
1515 PreviewingWithKey := Key;
1515 end; 1516 end;
1516 1517
1517 procedure TfrmTracker.FormKeyUp(Sender: TObject; var Key: Word; 1518 procedure TfrmTracker.FormKeyUp(Sender: TObject; var Key: Word;
1518 Shift: TShiftState); 1519 Shift: TShiftState);
1519 begin 1520 begin
1520 if PreviewingInstrument <> -1 then 1521 if PreviewingInstrument <> -1 then begin
1522 if PreviewingWithKey <> Key then Exit;
1523 PreviewingWithKey := VK_UNDEFINED;
1521 Panic; 1524 Panic;
1525 end;
1522 PreviewingInstrument := -1; 1526 PreviewingInstrument := -1;
1523 end; 1527 end;
1524 1528