From 92dbb3dba759bff7a9f41957a673345d214f546c Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
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/lib')

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