aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/MacOSX/Wrapper/MidiOut.pas
diff options
context:
space:
mode:
authoreddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-11-08 18:51:40 +0000
committereddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-11-08 18:51:40 +0000
commit6ca1db26350a589b5bcb3e2eac35a7965d5ab448 (patch)
tree37f4d6bef02b3bbeccefbaafa5eeb94a3942a7f8 /Game/Code/MacOSX/Wrapper/MidiOut.pas
parenta5ca459937cf9f08d47ca6aca16e777153821f25 (diff)
downloadusdx-6ca1db26350a589b5bcb3e2eac35a7965d5ab448.tar.gz
usdx-6ca1db26350a589b5bcb3e2eac35a7965d5ab448.tar.xz
usdx-6ca1db26350a589b5bcb3e2eac35a7965d5ab448.zip
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
Diffstat (limited to 'Game/Code/MacOSX/Wrapper/MidiOut.pas')
-rwxr-xr-xGame/Code/MacOSX/Wrapper/MidiOut.pas62
1 files changed, 0 insertions, 62 deletions
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.