From e2fea8646f72081d75fbad367be6ced68c82fb4c Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 20 Feb 2008 17:46:34 +0000
Subject: 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
---
 Game/Code/lib/midi/Midiout.pas | 27 +++++++++++++++++++++++----
 1 file changed, 23 insertions(+), 4 deletions(-)

(limited to 'Game/Code/lib/midi/Midiout.pas')

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
-- 
cgit v1.2.3