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

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