From 1e1329e77c498d550d12b8ad0d2325fdae2f4afa Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 1 Dec 2013 15:32:29 +0000
Subject: enable MidiCons.pas for all platforms, part 2

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3014 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/lib/midi/MidiCons.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/lib')

diff --git a/src/lib/midi/MidiCons.pas b/src/lib/midi/MidiCons.pas
index aa8462c3..1e9076f8 100644
--- a/src/lib/midi/MidiCons.pas
+++ b/src/lib/midi/MidiCons.pas
@@ -3,7 +3,6 @@
 { Written by David Churcher <dchurcher@cix.compulink.co.uk>,
   released to the public domain. }
 
-
 { Midi Constants }
 unit MidiCons;
 
@@ -14,8 +13,10 @@ interface
   {$H+} // use long strings
 {$ENDIF}
 
+{$IFNDEF FPC}
 uses
   Messages;
+{$ENDIF}
 
 const
   MIDI_ALLNOTESOFF     = $7B;
@@ -39,6 +40,10 @@ const
   MIDI_ACTIVESENSING   = $FE;
   MIDI_SYSTEMRESET     = $FF;
 
+{$IFDEF FPC}
+  WM_USER              = $400;        { standard WM_USER value }
+{$ENDIF}
+
   MIM_OVERFLOW         = WM_USER;     { Input buffer overflow }
   MOM_PLAYBACK_DONE    = WM_USER + 1; { Timed playback complete }
 
-- 
cgit v1.2.3