blob: d408a432252715561001f90ad6afb0b71ec06885 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
unit MacResources;
{$I switches.inc}
interface
uses
Classes, Windows, SysUtils;
type
TResourceStream = class(TFileStream)
private
public
constructor Create(Instance: THandle; const ResName: string; ResType: PChar);
end;
Function FindResource( hInstance : THandle; pcIdentifier : PChar; pcResType : PChar) : THandle;
implementation
Function FindResource( hInstance : THandle; pcIdentifier : PChar; pcResType : PChar) : THandle;
begin
Result := 1;
end;
Function GetResourcesPath : String;
var
x,
i : integer;
begin
Result := ExtractFilePath(ParamStr(0));
for x := 0 to 2 do begin
i := Length(Result);
repeat
Delete( Result, i, 1);
i := Length(Result);
until (i = 0) or (Result[i] = '/');
end;
end;
{ TResourceStream }
constructor TResourceStream.Create(Instance: THandle; const ResName: string; ResType: PChar);
var
sResNameLower : string;
sFileName : String;
begin
sResNameLower := LowerCase(string(ResName));
if sResNameLower = 'font' then
sFileName := GetResourcesPath + 'Fonts/Normal/Font Normal 16.png'
else if sResNameLower = 'fontb' then
sFileName := GetResourcesPath + 'Fonts/Bold/Font 1024 Bold 16.png'
else if sResNameLower = 'fonto' then
sFileName := GetResourcesPath + 'Fonts/Outline 1/Outline 1.png'
else if sResNameLower = 'outro_bg' then
sFileName := GetResourcesPath + 'Graphics/outro-bg.png'
else if sResNameLower = 'outro_esc' then
sFileName := GetResourcesPath + 'Graphics/outro-esc.png'
else if sResNameLower = 'outro_exd' then
sFileName := GetResourcesPath + 'Graphics/outro-exit-dark.png'
else if sResNameLower = 'fonto2' then
sFileName := GetResourcesPath + 'Fonts/Outline 2/Outline 2.png';
if FileExists(sFileName) then
inherited Create( sFileName, fmOpenReadWrite)
else
raise Exception.Create('MacResources.TResourceStream.Create: File "' + sFileName + '" not found.');
end;
end.
|
