diff options
author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-10-31 15:55:19 +0000 |
---|---|---|
committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-10-31 15:55:19 +0000 |
commit | b3353a82da64f18f1a7787004a31e45edf40dc87 (patch) | |
tree | 2e36246d58bf5993b17f293b1dbd62c22dd468f3 /unicode/src/lib/midi/MIDIDEFS.PAS | |
parent | 9a513d190c693745328ff5d04b5ad67ea0fc831a (diff) | |
download | usdx-b3353a82da64f18f1a7787004a31e45edf40dc87.tar.gz usdx-b3353a82da64f18f1a7787004a31e45edf40dc87.tar.xz usdx-b3353a82da64f18f1a7787004a31e45edf40dc87.zip |
unicode branch added
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1492 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'unicode/src/lib/midi/MIDIDEFS.PAS')
-rw-r--r-- | unicode/src/lib/midi/MIDIDEFS.PAS | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/unicode/src/lib/midi/MIDIDEFS.PAS b/unicode/src/lib/midi/MIDIDEFS.PAS new file mode 100644 index 00000000..fc8eed26 --- /dev/null +++ b/unicode/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 AnsiString +{$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. |