From 92dbb3dba759bff7a9f41957a673345d214f546c Mon Sep 17 00:00:00 2001 From: tobigun Date: Fri, 8 Aug 2008 11:48:26 +0000 Subject: warnings suppressed git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1233 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/lib/midi/MidiFile.pas | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'Game/Code') 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 -- cgit v1.2.3