You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
47 lines
1.4 KiB
Plaintext
47 lines
1.4 KiB
Plaintext
{
|
|
This file is part of R&Q.
|
|
Under same license
|
|
}
|
|
unit aboutDlg;
|
|
{$I RnQConfig.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, SysUtils, Sciter, SciterApi;
|
|
|
|
{$I PubRTTI.inc}
|
|
|
|
type
|
|
TAboutInfo = record
|
|
ver, build, sciterver, opensslver, bassver, icsver, treeviewver, synopsever: String;
|
|
end;
|
|
|
|
procedure GetAboutInfo(tag: Pointer; argc: UINT; argv: PSciterValue; retval: PSciterValue); cdecl;
|
|
|
|
implementation
|
|
|
|
uses
|
|
RQUtil, RnQLangs, RnQGlobal, globalLib, SciterLib, CLBox,
|
|
SynCommons, OverbyteIcsSSLEAY, VirtualTrees;
|
|
|
|
procedure GetAboutInfo(tag: Pointer; argc: UINT; argv: PSciterValue; retval: PSciterValue); cdecl;
|
|
var
|
|
AboutInfo: TAboutInfo;
|
|
begin
|
|
AboutInfo.ver := IntToStr(RnQBuild) + ' ' + GetTranslation('Build') + ' ' + IntToStr(RnQBuildCustom);
|
|
{$IFDEF CPUX64}
|
|
AboutInfo.ver := AboutInfo.ver + ' x64';
|
|
{$ENDIF CPUX64}
|
|
AboutInfo.build := GetTranslation('Built at') + ' ' + DateTimeToStr(builtTime) + ' [Mikanoshi]';
|
|
AboutInfo.sciterver := GetLibVersion(SCITER_DLL_DIR + 'sciter.dll');
|
|
AboutInfo.opensslver := GetLibVersion(GSSL_DLL_DIR + GSSLEAY_110DLL_Name);
|
|
AboutInfo.bassver := GetLibVersion(modulesPath + 'bass.dll');
|
|
AboutInfo.icsver := IntToStr(IcsSSLEAYVersion);
|
|
AboutInfo.treeviewver := VTVersion;
|
|
AboutInfo.synopsever := SYNOPSE_FRAMEWORK_VERSION;
|
|
V2S(TSciterEx(tag).RecordToVar(AboutInfo), retval);
|
|
end;
|
|
|
|
end.
|