From 9cd462b34d5d839f8addfdf6a9f4469c99a8e653 Mon Sep 17 00:00:00 2001 From: k-m_schindler Date: Sun, 1 Dec 2013 00:31:54 +0000 Subject: 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 --- src/lib/midi/MidiDefs.pas | 53 +++++++++++++++++++++++------------------------ 1 file changed, 26 insertions(+), 27 deletions(-) (limited to 'src/lib/midi/MidiDefs.pas') 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. -- cgit v1.2.3