fix double midi sounds and confused state between space / P midi playing

Author: dgruss

src/screens/UScreenEditSub.pas

@@ -1223,6 +1223,12 @@ procedure TScreenEditSub.HandlePlaySentence(SDL_ModState: word);
 
   if PlaySentenceMidi then
   begin
+    {$IFDEF UseMIDIPort}
+    if PlayOneMidi then
+      StopMidi;
+    {$ENDIF}
+    PlayOneMidi := false;
+    midinotefound := false;
     Text[TextInfo].Text := Language.Translate('EDIT_INFO_PLAY_SENTENCE_AUDIO_AND_MIDI');
     ConfigureMidiPlayback(PlaybackStart, SentenceEndTime);
   end;
@@ -1712,6 +1718,7 @@ procedure TScreenEditSub.PlayNote(SDL_ModState: word);
     PlayMidiTone(NoteTone);
     {$ENDIF}
     Text[TextInfo].Text := Language.Translate('EDIT_INFO_PLAY_NOTE_MIDI');
+    midinotefound := true;
   end
   else
     Text[TextInfo].Text := Language.Translate('EDIT_INFO_PLAY_NOTE_AUDIO');
@@ -3268,16 +3275,16 @@ function TScreenEditSub.GetMidiVolume(): Integer;
 
 procedure TScreenEditSub.PlayMidiTone(const Tone: Integer);
 var
-  MidiTone: Integer;
+  MidiNote: Integer;
 begin
-  MidiTone := EnsureRange(Tone + 60, 0, 127);
+  MidiNote := EnsureRange(Tone + 60, 0, 127);
 
   if MidiActive then
     MidiOut.PutShort(MIDI_NOTEOFF or 1, MidiTone + 60, 0);
 
   MidiOut.PutShort($B1, $7, GetMidiVolume());
-  MidiOut.PutShort($91, MidiTone, 127);
-  MidiTone := MidiTone - 60;
+  MidiOut.PutShort($91, MidiNote, 127);
+  MidiTone := MidiNote - 60;
   MidiActive := true;
 end;
 
@@ -5812,10 +5819,11 @@ function TScreenEditSub.Draw: boolean;
   begin
     MidiPos := AudioPlayback.Position - MidiAnchorPos + MidiStart;
     // stop the music
-    if ((MidiPos > MidiStop))  then // and (midinotefound)
+    if ((MidiPos >= MidiStop))  then // and (midinotefound)
     begin
       StopMidi;
       PlayOneMidi := false;
+      midinotefound := false;
     end;
 
     // click