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

#include "About.h"
#include "Define.h"
//---------------------------------------------------------------------
#pragma link "RzButton"
#pragma link "RzGroupBar"
#pragma link "RzEdit"
#pragma link "RzLabel"
#pragma link "RzPanel"
#pragma resource "*.dfm"
//---------------------------------------------------------------------
TAboutBox *AboutBox;
//---------------------------------------------------------------------
__fastcall TAboutBox::TAboutBox(TComponent *Owner)
	: TForm(Owner)
{
#ifdef TRIAL
  TrialGroupBar->BringToFront();
  TrialGroupBar->Visible = true;
  Width = 320;  
  Height = 237;
  RzRichEdit1->Width = RzGroup2->Width - 2;
  RzRichEdit2->Width = RzGroup2->Width - 2;
#else
  TrialGroupBar->Visible = false; 
  Width = 320;
  Height = 203;
  DefaultPanel->Left = 3;
  DefaultPanel->Top = 8;
  OKButton->Left = 114;
  OKButton->Top = 131;
#endif
}
//---------------------------------------------------------------------
void __fastcall TAboutBox::FormCreate(TObject *Sender)
{
  SetFont();

lbSystem->Caption = "TexStylist Design CAD System " + TexStylistVersion;
#if defined(TEXSTYLIST)
	#ifdef NETHASP
		lbType->Caption = "TexStylist NetHASP Design CAD System";
	#else
		#ifdef TRIAL
		lbType->Caption = "TexPro Design (Trial)";
		#else
			#ifdef SK_SMART
				lbType->Caption = "TexPro Design For SK SMART";
			#else
				lbType->Caption = "TexPro Design";
			#endif
		#endif
	#endif
#endif

#ifndef TRIAL
  ProgramIcon->Picture->Icon = Application->Icon;
  OKButton->Caption = IDS_COMMON_BUTTONOK;
#else
  TrialImage->Picture->Icon = Application->Icon;
  OKRzButton->Caption = IDS_COMMON_BUTTONOK;
  SystemLabel->Caption = lbSystem->Caption;
  TypeLabel->Caption = lbType->Caption;
  CopyrightLabel->Caption = Copyright->Caption;
#endif

}
//---------------------------------------------------------------------------
void __fastcall TAboutBox::SetFont()
{
  SetSmallFont(Font);
}
//---------------------------------------------------------------------------

void __fastcall TAboutBox::RzGroup2Close(TObject *Sender)
{
  if (RzGroup3->Opened) {
    Height = 400;
  }
  else {
    Height = 237;
  }
}
//---------------------------------------------------------------------------

void __fastcall TAboutBox::RzGroup2Open(TObject *Sender)
{
  if (RzGroup3->Opened) {
    Height = 556;
  }
  else {
    Height = 394;
  }
}
//---------------------------------------------------------------------------

void __fastcall TAboutBox::RzGroup3Close(TObject *Sender)
{
  if (RzGroup2->Opened) {
    Height = 394;
  }
  else {
    Height = 237;
  }
}
//---------------------------------------------------------------------------

void __fastcall TAboutBox::RzGroup3Open(TObject *Sender)
{
  if (RzGroup2->Opened) {
    Height = 556;
  }
  else {
    Height = 400;
	}
}
//---------------------------------------------------------------------------