aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens/UScreenEditSub.pas
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Screens/UScreenEditSub.pas')
-rw-r--r--Game/Code/Screens/UScreenEditSub.pas6
1 files changed, 5 insertions, 1 deletions
diff --git a/Game/Code/Screens/UScreenEditSub.pas b/Game/Code/Screens/UScreenEditSub.pas
index 8ff9d0e7..8443b233 100644
--- a/Game/Code/Screens/UScreenEditSub.pas
+++ b/Game/Code/Screens/UScreenEditSub.pas
@@ -906,6 +906,7 @@ begin
MidiStop := GetTimeFromBeat(Czesci[CP].Czesc[Czesci[CP].Akt].Koniec);
LastClick := Czesci[CP].Czesc[Czesci[CP].Akt].StartNote-1;
+ Click := true;
end;
// one line midi + mp3
@@ -3093,6 +3094,9 @@ begin
MidiOut.PutShort($91, Czesci[CP].Czesc[Czesci[CP].Akt].Nuta[Pet].Ton + 60, 127);
MidiLastNote := Pet;
end;
+
+ if Click and not PlaySentence then
+ Music.PlayClick;
end;
end; // if PlaySentenceMidi
@@ -3113,7 +3117,7 @@ begin
EditorLyric[CP].Selected := AktNuta[CP];
end;
- if (Click) and (PlaySentence) then
+ if Click then
begin
Text[TextDebug].Text := IntToStr(AktBeat);
if PlayClick then