78 lines
2.2 KiB
C++
78 lines
2.2 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include "AboutFormUnit.h"
|
|
#include "GlobalUnit.h"
|
|
//---------------------------------------------------------------------------
|
|
#pragma package(smart_init)
|
|
#pragma link "PNGButton"
|
|
#pragma resource "*.dfm"
|
|
TAboutForm *AboutForm;
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TAboutForm::TAboutForm(TComponent* Owner)
|
|
: TForm(Owner)
|
|
{
|
|
Font->Color = RGB(60,43,23);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAboutForm::FormCreate(TObject *Sender)
|
|
{
|
|
SetTransparent( this );
|
|
|
|
m_lblVersion->Caption = g_strCurrentVersion;
|
|
|
|
int wMaj, wMin, wMod, wBld;
|
|
sscanf( g_strCurrentVersion, "%d.%d.%d.%d", &wMaj, &wMin, &wMod, &wBld );
|
|
|
|
if( wMaj==0 )
|
|
m_lblType->Caption = L"测试版";
|
|
else
|
|
m_lblType->Caption = L"正式版";
|
|
|
|
m_lblType->Left = m_lblVersion->Left + m_lblVersion->Width + 3;
|
|
|
|
int nOnline, nLocal;
|
|
f_CS_GetStyleNums( nOnline, nLocal );
|
|
char strNums[64];
|
|
sprintf( strNums, "在线/已下载风格数： %d/%d", nOnline, nLocal );
|
|
m_lblStyleNums->Caption = strNums;
|
|
|
|
m_lblURL->Caption = g_strServerURL;
|
|
|
|
//绘制圆角窗体
|
|
HRGN hRgn = CreateRoundRectRgn( 0, 0, Width+1, Height+2, 20, 20 );
|
|
SetWindowRgn( Handle, hRgn, false );
|
|
DeleteObject( hRgn );
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAboutForm::WMNCHitTest(TWMNCHitTest &Msg)
|
|
{
|
|
TForm::Dispatch(&Msg);
|
|
|
|
if( Msg.Result==HTCLIENT && Msg.YPos<Top+24 && Msg.XPos<Left+275 )
|
|
Msg.Result = HTCAPTION;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAboutForm::URLClick(TObject *Sender)
|
|
{
|
|
if( m_lblURL->Caption.Length()>0 ){
|
|
ShellExecute(Handle,NULL, m_lblURL->Caption.c_str(), NULL,NULL,SW_SHOWNORMAL);
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TAboutForm::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
|
|
{
|
|
switch( Key ){
|
|
case VK_RETURN:
|
|
case VK_ESCAPE:
|
|
case ' ':
|
|
ModalResult = mrCancel;
|
|
break;
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|