{ $Header: /MidiComp/MidiCons.pas 2     10/06/97 7:33 Davec $ }

{ Written by David Churcher <dchurcher@cix.compulink.co.uk>,
  released to the public domain. }

{ Midi Constants }
unit MidiCons;

interface

{$IFDEF FPC}
  {$MODE Delphi}
  {$H+} // use long strings
{$ENDIF}

{$IFNDEF FPC}
uses
  Messages;
{$ENDIF}

const
  MIDI_ALLNOTESOFF     = $7B;
  MIDI_NOTEON          = $90;
  MIDI_NOTEOFF         = $80;
  MIDI_KEYAFTERTOUCH   = $a0;
  MIDI_CONTROLCHANGE   = $b0;
  MIDI_PROGRAMCHANGE   = $c0;
  MIDI_CHANAFTERTOUCH  = $d0;
  MIDI_PITCHBEND       = $e0;
  MIDI_SYSTEMMESSAGE   = $f0;
  MIDI_BEGINSYSEX      = $f0;
  MIDI_MTCQUARTERFRAME = $f1;
  MIDI_SONGPOSPTR      = $f2;
  MIDI_SONGSELECT      = $f3;
  MIDI_ENDSYSEX        = $F7;
  MIDI_TIMINGCLOCK     = $F8;
  MIDI_START           = $FA;
  MIDI_CONTINUE        = $FB;
  MIDI_STOP            = $FC;
  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 }

implementation

end.