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/Midiin.pas | 24 +++++++++++++++++++-----
 1 file changed, 19 insertions(+), 5 deletions(-)

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

diff --git a/Game/Code/lib/midi/Midiin.pas b/Game/Code/lib/midi/Midiin.pas
index 32a17c51..6820a740 100644
--- a/Game/Code/lib/midi/Midiin.pas
+++ b/Game/Code/lib/midi/Midiin.pas
@@ -101,9 +101,24 @@ unit MidiIn;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 uses
-  Classes, SysUtils, WinTypes, Messages, WinProcs, MMSystem, MidiDefs, MidiType,
-  MidiCons, Circbuf, Delphmcb;
+  Classes,
+  SysUtils,
+  Messages,
+  Windows,
+  MMSystem,
+  {$IFDEF LCL}
+  LCLIntf, // used for AllocateHWnd
+  {$ENDIF}
+  MidiDefs,
+  MidiType,
+  MidiCons,
+  Circbuf,
+  Delphmcb;
 
 type
   MidiInputState = (misOpen, misClosed, misCreating, misDestroying);
@@ -121,7 +136,7 @@ type
     FSysexOnly: Boolean;
 
  { Stuff from MIDIINCAPS }
-    FDriverVersion: Version;
+    FDriverVersion: MMVERSION;
     FProductName: string;
     FMID: Word; { Manufacturer ID }
     FPID: Word; { Product ID }
@@ -161,7 +176,7 @@ type
 
     property MIDIHandle: HMIDIIn read FMIDIHandle;
 
-    property DriverVersion: Version read FDriverVersion;
+    property DriverVersion: MMVERSION read FDriverVersion;
     property MID: Word read FMID; { Manufacturer ID }
     property PID: Word read FPID; { Product ID }
 
@@ -213,7 +228,6 @@ procedure Register;
 implementation
 
 uses Controls,
-     Forms,
      Graphics;
 
 (* Not used in Delphi 3
-- 
cgit v1.2.3