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/MIDIDEFS.PAS | 55 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 Medley/src/lib/midi/MIDIDEFS.PAS

(limited to 'Medley/src/lib/midi/MIDIDEFS.PAS')

diff --git a/Medley/src/lib/midi/MIDIDEFS.PAS b/Medley/src/lib/midi/MIDIDEFS.PAS
new file mode 100644
index 00000000..4afe56ef
--- /dev/null
+++ b/Medley/src/lib/midi/MIDIDEFS.PAS
@@ -0,0 +1,55 @@
+{ $Header: /MidiComp/MIDIDEFS.PAS 2     10/06/97 7:33 Davec $ }
+
+{ Written by David Churcher <dchurcher@cix.compulink.co.uk>,
+  released to the public domain. }
+
+
+{ Common definitions used by DELPHMID.DPR and the MIDI components.
+  This must be a separate unit to prevent large chunks of the VCL being
+  linked into the DLL. }
+unit Mididefs;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+  {$H+} // use long strings
+{$ENDIF}
+
+uses
+  Windows,
+  MMsystem,
+  Circbuf;
+
+type
+
+	{-------------------------------------------------------------------}
+	{ This is the information about the control that must be accessed by
+	  the MIDI input callback function in the DLL at interrupt time }
+	PMidiCtlInfo = ^TMidiCtlInfo;
+	TMidiCtlInfo = record
+		hMem: THandle; 				{ Memory handle for this record }
+		PBuffer: PCircularBuffer;	{ Pointer to the MIDI input data buffer }
+		hWindow: HWnd;					{ Control's window handle }
+		SysexOnly: Boolean;			{ Only process System Exclusive input }
+	end;
+
+	{ Information for the output timer callback function, also required at
+	  interrupt time. }
+	PMidiOutTimerInfo = ^TMidiOutTimerInfo;
+	TMidiOutTimerInfo = record
+		hMem: THandle;				{ Memory handle for this record }
+		PBuffer: PCircularBuffer;	{ Pointer to MIDI output data buffer }
+		hWindow: HWnd;				{ Control's window handle }
+		TimeToNextEvent: DWORD;	{ Delay to next event after timer set }
+		MIDIHandle: HMidiOut;		{ MIDI handle to send output to 
+									(copy of component's FMidiHandle property) }
+		PeriodMin: Word;			{ Multimedia timer minimum period supported }
+		PeriodMax: Word;			{ Multimedia timer maximum period supported }
+		TimerId: Word;				{ Multimedia timer ID of current event }
+	end;
+
+implementation
+
+
+end.
-- 
cgit v1.2.3