//---------------------------------------------------------------------
#include <vcl.h>
#include <sysinit.hpp>
#include "Common.h"
#pragma hdrstop

#include "About.h"
#include "Define.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
//---------------------------------------------------------------------
TAboutBox *AboutBox;
//---------------------------------------------------------------------
__fastcall TAboutBox::TAboutBox(TComponent *Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------
void __fastcall TAboutBox::FormCreate(TObject *Sender)
{
  SetFont();
  lbSystem->Caption = "Pattern Editor" + Tex3DVersion;
  #ifdef NETHASP
    lbType->Caption = "NetHASP Tex3D";
  #else
    lbType->Caption = "Tex3D";
  #endif
  ProgramIcon->Picture->Icon = Application->Icon;
  OKButton->Caption = IDS_COMMON_BUTTONOK;
}
//---------------------------------------------------------------------------
void __fastcall TAboutBox::SetFont()
{
  SetSmallFont(Font);
}
//---------------------------------------------------------------------------