diff options
| author | eddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-10-29 21:40:14 +0000 |
|---|---|---|
| committer | eddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-10-29 21:40:14 +0000 |
| commit | 52eeec05d021df5334934f50dfafff981cbca33b (patch) | |
| tree | a5f459e4b3065312820250e6c4ecbc1c7fcc6e0d /Game/Code/MacOSX/Wrapper/MidiOut.pas | |
| parent | e779d4f8a8ca13215895338f71e6929dc795cf60 (diff) | |
| download | usdx-52eeec05d021df5334934f50dfafff981cbca33b.tar.gz usdx-52eeec05d021df5334934f50dfafff981cbca33b.tar.xz usdx-52eeec05d021df5334934f50dfafff981cbca33b.zip | |
Just adding first MacOSX version. This does not compile yet.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@540 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/MacOSX/Wrapper/MidiOut.pas')
| -rwxr-xr-x | Game/Code/MacOSX/Wrapper/MidiOut.pas | 62 |
1 files changed, 62 insertions, 0 deletions
diff --git a/Game/Code/MacOSX/Wrapper/MidiOut.pas b/Game/Code/MacOSX/Wrapper/MidiOut.pas new file mode 100755 index 00000000..249cb88b --- /dev/null +++ b/Game/Code/MacOSX/Wrapper/MidiOut.pas @@ -0,0 +1,62 @@ +unit MidiOut;
+
+{$INCLUDE ../Platform.inc}
+
+interface
+
+type
+
+ TMidiOutput = class
+ public
+ ProductName : String;
+ Constructor Create(AParent : TObject);
+ procedure PutShort(MidiMessage: Byte; Data1: Byte; Data2: Byte); virtual;
+ function Open: Boolean; virtual;
+ function Close: Boolean; virtual;
+ {property MIDIHandle: Hmidiout read FMIDIHandle;
+ property DriverVersion: Version read FDriverVersion;
+ property Technology: OutPortTech read FTechnology write SetTechnology default opt_Synth;
+ property Voices: Word read FVoices;
+ property Notes: Word read FNotes;
+ property ChannelMask: Word read FChannelMask;
+ property Support: DWORD read FSupport;
+ property Error: Word read FError;
+ property Numdevs: Word read FNumdevs;
+
+ procedure PutMidiEvent(theEvent: TMyMidiEvent); virtual;
+ procedure PutLong(TheSysex: Pointer; msgLength: Word); virtual;
+ procedure SetVolume(Left: Word; Right: Word);
+ constructor Create(AOwner: TComponent); override;
+ destructor Destroy; override;
+
+ property ProductName: string read FProductName write SetProductName;
+
+ property DeviceID: Integer read FDeviceID write SetDeviceID default 0;
+ property Onmidioutput: TNotifyEvent read FOnmidioutput write FOnmidioutput;}
+ end;
+
+implementation
+
+{ TMidiOutput }
+
+function TMidiOutput.Close: Boolean;
+begin
+
+end;
+
+constructor TMidiOutput.Create(AParent: TObject);
+begin
+ ProductName := 'UltraStar MidiOut Wrapper';
+end;
+
+function TMidiOutput.Open: Boolean;
+begin
+
+end;
+
+procedure TMidiOutput.PutShort(MidiMessage, Data1, Data2: Byte);
+begin
+
+end;
+
+end.
|