diff options
| author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2013-12-01 00:31:54 +0000 |
|---|---|---|
| committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2013-12-01 00:31:54 +0000 |
| commit | 9cd462b34d5d839f8addfdf6a9f4469c99a8e653 (patch) | |
| tree | 6924e73d97578431f2047dec0794761e6f7d07d4 /src/lib/midi/MidiDefs.pas | |
| parent | 38d08e1ba24c550540edbda85992c995553648da (diff) | |
| download | usdx-9cd462b34d5d839f8addfdf6a9f4469c99a8e653.tar.gz usdx-9cd462b34d5d839f8addfdf6a9f4469c99a8e653.tar.xz usdx-9cd462b34d5d839f8addfdf6a9f4469c99a8e653.zip | |
formating and beautifying. no actual code change, but needs checks.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3011 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'src/lib/midi/MidiDefs.pas')
| -rw-r--r-- | src/lib/midi/MidiDefs.pas | 53 |
1 files changed, 26 insertions, 27 deletions
diff --git a/src/lib/midi/MidiDefs.pas b/src/lib/midi/MidiDefs.pas index f14b5e77..8ec7626e 100644 --- a/src/lib/midi/MidiDefs.pas +++ b/src/lib/midi/MidiDefs.pas @@ -4,7 +4,7 @@ released to the public domain. } -{ Common definitions used by DELPHMID.DPR and the MIDI components. +{ 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; @@ -23,33 +23,32 @@ uses 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; + {-------------------------------------------------------------------} + { 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. |