aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/MacOSX/Wrapper/MacClasses.pas
diff options
context:
space:
mode:
Diffstat (limited to '')
-rwxr-xr-xGame/Code/MacOSX/Wrapper/MacClasses.pas57
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.