mirror of
https://github.com/n5ac/mmsstv.git
synced 2026-01-20 23:30:19 +01:00
34 lines
782 B
C++
34 lines
782 B
C++
|
//---------------------------------------------------------------------
|
||
|
|
#include <vcl.h>
|
||
|
|
#pragma hdrstop
|
||
|
|
|
||
|
|
#include "About.h"
|
||
|
|
#include "ComLib.h"
|
||
|
|
//---------------------------------------------------------------------
|
||
|
|
#pragma resource "*.dfm"
|
||
|
|
//TAboutDlg *AboutDlg;
|
||
|
|
#if UseHWND
|
||
|
|
__fastcall TAboutDlg::TAboutDlg(HWND hWnd)
|
||
|
|
: TForm(hWnd)
|
||
|
|
#else
|
||
|
|
__fastcall TAboutDlg::TAboutDlg(TComponent* AOwner)
|
||
|
|
: TForm(AOwner)
|
||
|
|
#endif
|
||
|
|
{
|
||
|
|
if( sys.m_MsgEng ){
|
||
|
|
Font->Name = "Arial";
|
||
|
|
Font->Charset = ANSI_CHARSET;
|
||
|
|
Caption = TTL;
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
Caption = TTLJ;
|
||
|
|
}
|
||
|
|
LVer->Caption = VER" "AUT;
|
||
|
|
HICON hIcon = ::LoadIcon(HInstance, (LPCSTR)8000);
|
||
|
|
TIcon *pIcon = new TIcon;
|
||
|
|
pIcon->Handle = hIcon;
|
||
|
|
Image->Picture->Icon = pIcon;
|
||
|
|
}
|
||
|
|
//---------------------------------------------------------------------
|
||
|
|
|