From 9edc9535e5570807990e39703dca7c05e6758256 Mon Sep 17 00:00:00 2001
From: eddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 4 Nov 2007 15:23:42 +0000
Subject: Added MacResources.pas. Fixed some resource loading issues on OS X.
 The main screen is still not loading.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@581 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/MacOSX/Wrapper/MacClasses.pas | 57 ---------------------------------
 1 file changed, 57 deletions(-)
 delete 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
deleted file mode 100755
index be41ac55..00000000
--- a/Game/Code/MacOSX/Wrapper/MacClasses.pas
+++ /dev/null
@@ -1,57 +0,0 @@
-unit MacClasses;
-
-{$I switches.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