diff options
| author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-08 11:48:26 +0000 |
|---|---|---|
| committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-08 11:48:26 +0000 |
| commit | 92dbb3dba759bff7a9f41957a673345d214f546c (patch) | |
| tree | 5c5db419dab7eba7d5720c9fc4bbe7fadfbe60fe | |
| parent | 13d8779f9ccb09a5ce4171387d0598d6266618bb (diff) | |
| download | usdx-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.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 |