diff options
| -rw-r--r-- | Game/Code/lib/midi/MidiFile.pas | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Game/Code/lib/midi/MidiFile.pas b/Game/Code/lib/midi/MidiFile.pas index 57c9a161..11b1ca0b 100644 --- a/Game/Code/lib/midi/MidiFile.pas +++ b/Game/Code/lib/midi/MidiFile.pas @@ -481,6 +481,7 @@ begin // end; end; +{$WARNINGS OFF} procedure TMidifile.MidiTimer(Sender: TObject); begin if playing then @@ -489,6 +490,7 @@ begin if assigned(FOnUpdateEvent) then FOnUpdateEvent(self); end; end; +{$WARNINGS ON} procedure TMidifile.StartPlaying; var @@ -506,6 +508,7 @@ begin currentTime := 0; end; +{$WARNINGS OFF} procedure TMidifile.ContinuePlaying; begin PlayStartTime := GetTickCount - currentTime; @@ -515,6 +518,7 @@ begin SetMIDITimer; end; +{$WARNINGS ON} procedure TMidifile.StopPlaying; begin |