From 6ca1db26350a589b5bcb3e2eac35a7965d5ab448 Mon Sep 17 00:00:00 2001 From: eddie-0815 Date: Thu, 8 Nov 2007 18:51:40 +0000 Subject: Mac OS X: Added PseudoThread for debugging, because debugging of threaded code causes problems with Xcode and FreePascal. git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@594 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/MacOSX/Wrapper/MidiOut.pas | 62 ------------------------------------ 1 file changed, 62 deletions(-) delete mode 100755 Game/Code/MacOSX/Wrapper/MidiOut.pas (limited to 'Game/Code/MacOSX/Wrapper/MidiOut.pas') diff --git a/Game/Code/MacOSX/Wrapper/MidiOut.pas b/Game/Code/MacOSX/Wrapper/MidiOut.pas deleted file mode 100755 index e57da9d0..00000000 --- a/Game/Code/MacOSX/Wrapper/MidiOut.pas +++ /dev/null @@ -1,62 +0,0 @@ -unit MidiOut; - -{$I switches.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. -- cgit v1.2.3