From 52eeec05d021df5334934f50dfafff981cbca33b Mon Sep 17 00:00:00 2001
From: eddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 29 Oct 2007 21:40:14 +0000
Subject: Just adding first  MacOSX version. This does not compile yet.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@540 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/MacOSX/Wrapper/MacClasses.pas | 57 +++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100755 Game/Code/MacOSX/Wrapper/MacClasses.pas

(limited to 'Game/Code/MacOSX/Wrapper/MacClasses.pas')

diff --git a/Game/Code/MacOSX/Wrapper/MacClasses.pas b/Game/Code/MacOSX/Wrapper/MacClasses.pas
new file mode 100755
index 00000000..c494e6df
--- /dev/null
+++ b/Game/Code/MacOSX/Wrapper/MacClasses.pas
@@ -0,0 +1,57 @@
+unit MacClasses;
+
+{$INCLUDE ../Platform.inc}
+
+interface
+
+uses
+    Classes, GlueWindows, SysUtils;
+
+type
+
+  TMemoryStream = Classes.TMemoryStream;
+
+  TResourceStream = class(TFileStream)
+  private
+  public
+    constructor Create(Instance: THandle; const ResName: string; ResType: PChar);
+  end;
+
+{$IFDEF MACOS}
+  TWndMethod = procedure of object;
+{$ENDIF}
+
+  function AllocateHWnd(Method: TWndMethod): HWND;
+
+implementation
+
+uses UPliki;
+
+{ TResourceStream }
+
+constructor TResourceStream.Create(Instance: THandle; const ResName: string; ResType: PChar);
+var
+    sFileName : String;
+begin
+    if ResType = 'FNT' then
+        sFileName := GetResourcesPath + 'Fonts/' + ResName + '.dat'
+    else
+        sFileName := GetResourcesPath + 'Fonts/' + ResName + '.' + ResType;
+
+    if FileExists(sFileName) then
+        inherited Create( sFileName, fmOpenReadWrite)
+    else
+        inherited Create( sFileName, fmCreate);
+end;
+
+function AllocateHWnd(Method: TWndMethod): HWND;
+begin
+{$IFDEF MSWINDOWS}
+    Result := Classes.AllocateHWnd(Method);
+{$ENDIF}
+{$IFDEF MACOS}
+    Result := 0;
+{$ENDIF}
+end;
+
+end.
-- 
cgit v1.2.3