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

1 files changed, 0 insertions, 57 deletions

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.