aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/lib/midi/Midiout.pas
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-02-20 17:46:34 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-02-20 17:46:34 +0000
commite2fea8646f72081d75fbad367be6ced68c82fb4c (patch)
tree146558b630d0cdeea1153ec6463c962e194936bb /Game/Code/lib/midi/Midiout.pas
parentb4d9e59f54100db2cbfc18368004f28f34aee11b (diff)
downloadusdx-e2fea8646f72081d75fbad367be6ced68c82fb4c.tar.gz
usdx-e2fea8646f72081d75fbad367be6ced68c82fb4c.tar.xz
usdx-e2fea8646f72081d75fbad367be6ced68c82fb4c.zip
Made the midi-stuff FPC (for windows) compatible.
Now (in windows) FPC contains all functionalities of the delphi build. git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@872 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--Game/Code/lib/midi/Midiout.pas27
1 files changed, 23 insertions, 4 deletions
diff --git a/Game/Code/lib/midi/Midiout.pas b/Game/Code/lib/midi/Midiout.pas
index 91b75073..7cab5c09 100644
--- a/Game/Code/lib/midi/Midiout.pas
+++ b/Game/Code/lib/midi/Midiout.pas
@@ -96,9 +96,28 @@ unit MidiOut;
interface
+{$IFDEF FPC}
+ {$MODE Delphi}
+{$ENDIF}
+
uses
- SysUtils, WinTypes, WinProcs, Messages, Classes, Controls, Forms,
- MMSystem, Circbuf, MidiType, MidiDefs, Delphmcb;
+ SysUtils,
+ Windows,
+ Messages,
+ Classes,
+ //Controls,
+ MMSystem,
+ {$IFDEF LCL}
+ LCLIntf, // used for AllocateHWnd
+ {$ENDIF}
+ Circbuf,
+ MidiType,
+ MidiDefs,
+ Delphmcb;
+
+{$IFDEF FPC}
+type TmidioutCaps = MIDIOUTCAPS;
+{$ENDIF}
type
midioutputState = (mosOpen, mosClosed);
@@ -136,7 +155,7 @@ type
FError: Word; { Last MMSYSTEM error }
{ Stuff from midioutCAPS }
- FDriverVersion: Version; { Driver version from midioutGetDevCaps }
+ FDriverVersion: MMVERSION; { Driver version from midioutGetDevCaps }
FProductName: string; { product name }
FTechnology: OutPortTech; { Type of MIDI output device }
FVoices: Word; { Number of voices (internal synth) }
@@ -159,7 +178,7 @@ type
public
{ Properties }
property MIDIHandle: Hmidiout read FMIDIHandle;
- property DriverVersion: Version { Driver version from midioutGetDevCaps }
+ property DriverVersion: MMVERSION { Driver version from midioutGetDevCaps }
read FDriverVersion;
property Technology: OutPortTech { Type of MIDI output device }
read FTechnology