First multi platform version, works on Linux and Windows

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.1@855 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 30 insertions, 0 deletions

diff --git a/Game/Code/MacOSX/Wrapper/Messages.pas b/Game/Code/MacOSX/Wrapper/Messages.pas
new file mode 100644
index 00000000..e1c8e6aa
--- /dev/null
+++ b/Game/Code/MacOSX/Wrapper/Messages.pas
@@ -0,0 +1,30 @@
+unit Messages;
+
+{$I switches.inc}
+
+interface
+
+uses Windows;
+
+type
+
+  TMessage = packed record
+    Msg: Cardinal;
+    case Integer of
+      0: (
+        WParam: Longint;
+        LParam: Longint;
+        Result: Longint);
+      1: (
+        WParamLo: Word;
+        WParamHi: Word;
+        LParamLo: Word;
+        LParamHi: Word;
+        ResultLo: Word;
+        ResultHi: Word);
+  end;
+  PMessage = ^TMessage;
+
+implementation
+
+end.
\ No newline at end of file