From e4f413fdcf003ac0ad20d145f61dd370994e79db Mon Sep 17 00:00:00 2001
From: brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 9 Dec 2009 18:35:28 +0000
Subject: just a first experimental version

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@2011 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Medley/src/lib/midi/Midicons.pas | 47 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100644 Medley/src/lib/midi/Midicons.pas

(limited to 'Medley/src/lib/midi/Midicons.pas')

diff --git a/Medley/src/lib/midi/Midicons.pas b/Medley/src/lib/midi/Midicons.pas
new file mode 100644
index 00000000..72259beb
--- /dev/null
+++ b/Medley/src/lib/midi/Midicons.pas
@@ -0,0 +1,47 @@
+{ $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}
+
+uses Messages;
+
+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;
+
+	MIM_OVERFLOW         = WM_USER;	{ Input buffer overflow }
+	MOM_PLAYBACK_DONE    = WM_USER+1; { Timed playback complete }
+
+
+implementation
+
+end.
-- 
cgit v1.2.3