21 lines
284 B
ObjectPascal
21 lines
284 B
ObjectPascal
|
unit Resources;
|
||
|
|
||
|
interface
|
||
|
const
|
||
|
AssetsPath = 'assets\';
|
||
|
|
||
|
|
||
|
function GetAssetPath(const AAsset: string): string;
|
||
|
|
||
|
implementation
|
||
|
uses
|
||
|
X2UtApp;
|
||
|
|
||
|
|
||
|
function GetAssetPath(const AAsset: string): string;
|
||
|
begin
|
||
|
Result := App.Path + AssetsPath + AAsset;
|
||
|
end;
|
||
|
|
||
|
end.
|