40 lines
1.3 KiB
C++
40 lines
1.3 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#ifndef AboutFormUnitH
|
|
#define AboutFormUnitH
|
|
//---------------------------------------------------------------------------
|
|
#include <System.Classes.hpp>
|
|
#include <Vcl.Controls.hpp>
|
|
#include <Vcl.StdCtrls.hpp>
|
|
#include <Vcl.Forms.hpp>
|
|
#include "PNGButton.hpp"
|
|
#include <Vcl.ExtCtrls.hpp>
|
|
#include <Vcl.Imaging.jpeg.hpp>
|
|
//---------------------------------------------------------------------------
|
|
class TAboutForm : public TForm
|
|
{
|
|
__published: // IDE-managed Components
|
|
TImage *m_imgBkgrnd;
|
|
TLabel *m_lblVersion;
|
|
TLabel *m_lblTitle;
|
|
TLabel *m_lblURL;
|
|
TPNGButton *m_btnClose;
|
|
TLabel *m_lblStyleNums;
|
|
TLabel *m_lblType;
|
|
void __fastcall FormCreate(TObject *Sender);
|
|
void __fastcall URLClick(TObject *Sender);
|
|
void __fastcall FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
|
|
private: // User declarations
|
|
void __fastcall WMNCHitTest(TWMNCHitTest &Msg);
|
|
|
|
BEGIN_MESSAGE_MAP
|
|
MESSAGE_HANDLER(WM_NCHITTEST, TWMNCHitTest, WMNCHitTest)
|
|
END_MESSAGE_MAP(TForm)
|
|
public: // User declarations
|
|
__fastcall TAboutForm(TComponent* Owner);
|
|
};
|
|
//---------------------------------------------------------------------------
|
|
extern PACKAGE TAboutForm *AboutForm;
|
|
//---------------------------------------------------------------------------
|
|
#endif
|