36 lines
1.3 KiB
ObjectPascal
36 lines
1.3 KiB
ObjectPascal
unit cde_lang;
|
|
{$mode delphi}
|
|
{$codepage UTF8}
|
|
interface
|
|
uses Classes, SysUtils, VersionControl, SimplyJSON, cde_dir, cde_types;
|
|
{stdcalls}
|
|
function GetLanguage: String; STDCALL;
|
|
function GetLocalizedString (const AMessageID: String): String; OVERLOAD; STDCALL;
|
|
function GetLanguageInfo (const ALanguageName: String): TCDELanguageInfo; STDCALL;
|
|
{Language consts}
|
|
{$I cde_lang_const.inc}
|
|
implementation
|
|
function GetLanguage: String;
|
|
begin
|
|
Result:= JSReadString('/interface/language', 'russian', GetCDEPath + 'configs\configs.json');
|
|
end;
|
|
function GetLocalizedString (const AMessageID: String): String;
|
|
begin
|
|
Result:= JSReadString(AMessageID, 'String_is_not_localized...', GetCDEPath + 'languages\' + GetLanguage + '.json');
|
|
end;
|
|
function GetLanguageInfo (const ALanguageName: String): TCDELanguageInfo;
|
|
const CDefStr: String = '<Undefined>';
|
|
CDefVersion: String = '0.0.0.0';
|
|
var FileName: string;
|
|
begin
|
|
FileName:= GetCDEPath + 'languages\' + ALanguageName + '.json';
|
|
with Result do
|
|
begin
|
|
liName:= JSReadString('/languageinfo/name', CDefStr, FileName);
|
|
liAuthor:= JSReadString('/languageinfo/author', CDefStr, FileName);
|
|
liVersion:= StrToVersionInfo(JSReadString('/languageinfo/version', CDefVersion, FileName));
|
|
liCDEVersion:= StrToVersionInfo(JSReadString('/languageinfo/cde_version', CDefVersion, FileName));
|
|
end;
|
|
end;
|
|
end.
|