aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-08-08 11:48:26 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-08-08 11:48:26 +0000
commit92dbb3dba759bff7a9f41957a673345d214f546c (patch)
tree5c5db419dab7eba7d5720c9fc4bbe7fadfbe60fe
parent13d8779f9ccb09a5ce4171387d0598d6266618bb (diff)
downloadusdx-92dbb3dba759bff7a9f41957a673345d214f546c.tar.gz
usdx-92dbb3dba759bff7a9f41957a673345d214f546c.tar.xz
usdx-92dbb3dba759bff7a9f41957a673345d214f546c.zip
warnings suppressed
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1233 b956fd51-792f-4845-bead-9b4dfca2ff2c
-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