mirror of
https://github.com/n5ac/mmsstv.git
synced 2026-01-20 23:30:19 +01:00
35 lines
856 B
C++
35 lines
856 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;
|
||
}
|
||
//---------------------------------------------------------------------
|
||
|
||
|