//---------------------------------------------------------------------
#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();
#if defined(JAPAN)
  lbSystem->Caption = "YUKA and ALPHA's AlphaGear " + TexProVersion;
  #if defined(TEXTILE)
    lbType->Caption = "Design" ;
  #elif defined(WEAVE)
    lbType->Caption = "Weave";
  #elif defined(KNIT)
    lbType->Caption = "Knit";
  #endif
#else
  lbSystem->Caption = "TexPro Design CAD System " + TexProVersion;
  #if defined(TEXTILE)
    #if defined(CARPET)
    lbType->Caption = "Carpet Design";
    #else
    lbType->Caption = "Textile Design";
    #endif
  #elif defined(WEAVE)
    lbType->Caption = "Weave Design";
  #elif defined(KNIT)
    lbType->Caption = "Knit Design";
  #elif defined(PILE)
    lbType->Caption = "Pile Design";
  #endif
#endif
  ProgramIcon->Picture->Icon = Application->Icon;
  OKButton->Caption = IDS_COMMON_BUTTONOK;
}
//---------------------------------------------------------------------------
void __fastcall TAboutBox::SetFont()
{
  SetSmallFont(Font);
}
//---------------------------------------------------------------------------