diff options
| -rw-r--r-- | src/lib/midi/MidiCons.pas | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/lib/midi/MidiCons.pas b/src/lib/midi/MidiCons.pas index aa8462c3..1e9076f8 100644 --- a/src/lib/midi/MidiCons.pas +++ b/src/lib/midi/MidiCons.pas @@ -3,7 +3,6 @@ { Written by David Churcher <dchurcher@cix.compulink.co.uk>, released to the public domain. } - { Midi Constants } unit MidiCons; @@ -14,8 +13,10 @@ interface {$H+} // use long strings {$ENDIF} +{$IFNDEF FPC} uses Messages; +{$ENDIF} const MIDI_ALLNOTESOFF = $7B; @@ -39,6 +40,10 @@ const MIDI_ACTIVESENSING = $FE; MIDI_SYSTEMRESET = $FF; +{$IFDEF FPC} + WM_USER = $400; { standard WM_USER value } +{$ENDIF} + MIM_OVERFLOW = WM_USER; { Input buffer overflow } MOM_PLAYBACK_DONE = WM_USER + 1; { Timed playback complete } |