mirror of https://github.com/red-prig/fpPS4.git
26 lines
369 B
Plaintext
26 lines
369 B
Plaintext
unit shaders;
|
|
|
|
{$mode ObjFPC}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
LResources,
|
|
Classes,
|
|
SysUtils;
|
|
|
|
function GetResourceStream(const ResName:string;ResType:PChar=nil):TStream;
|
|
|
|
implementation
|
|
|
|
function GetResourceStream(const ResName:string;ResType:PChar=nil):TStream;
|
|
begin
|
|
Result:=TLazarusResourceStream.Create(ResName,ResType);
|
|
end;
|
|
|
|
initialization
|
|
{$I shaders.lrs}
|
|
|
|
end.
|
|
|