aboutsummaryrefslogtreecommitdiffstats
path: root/us_maker_edition/src/lib/midi/Midicons.pas
diff options
context:
space:
mode:
authorwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2010-05-18 20:21:06 +0000
committerwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2010-05-18 20:21:06 +0000
commit394e5e3dec8b507c42de91ca48115e19f66b09e6 (patch)
treed6089f8f03633b3618703f95a53c6c2308a6eb1f /us_maker_edition/src/lib/midi/Midicons.pas
parentfae6b541ae866c6e48172af0726e163ae2992f7f (diff)
downloadusdx-394e5e3dec8b507c42de91ca48115e19f66b09e6.tar.gz
usdx-394e5e3dec8b507c42de91ca48115e19f66b09e6.tar.xz
usdx-394e5e3dec8b507c42de91ca48115e19f66b09e6.zip
branch current trunk to branches/experimental/us_maker_edition to merge editor changes from davidus01
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@2384 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--us_maker_edition/src/lib/midi/Midicons.pas47
1 files changed, 47 insertions, 0 deletions
diff --git a/us_maker_edition/src/lib/midi/Midicons.pas b/us_maker_edition/src/lib/midi/Midicons.pas
new file mode 100644
index 00000000..72259beb
--- /dev/null
+++ b/us_maker_edition/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.