aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/lib/midi/MidiFile.pas
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/lib/midi/MidiFile.pas')
-rw-r--r--Game/Code/lib/midi/MidiFile.pas4
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