//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Environment.h"
#include "Main.h"
#include "SheafManager.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RXSpin"
#pragma resource "*.dfm"
TEnvironmentForm *EnvironmentForm;
//---------------------------------------------------------------------------
__fastcall TEnvironmentForm::TEnvironmentForm(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TEnvironmentForm::FormCreate(TObject *Sender)
{

//======================================== made by hjs

  TexPathEdit->Text = MainForm->Texpro_Path ;
  SewPathEdit->Text = MainForm->SewingTerm_Path ;

//========================================
  if (Width>Screen->Width) Left = 100;
  else Left = (Screen->Width-Width)/2;
  if (Height>Screen->Height) Top = 100;
  else Top = (Screen->Height-Height)/2;

  if (SheafManagerForm && SheafManagerForm->Sheaf)
    Edit->Text = SheafManagerForm->Sheaf->Title;
  else
    Edit->Text = "";
  rxGrid->Value = MainForm->ReportDoc->GridSpace;

  if (MainForm->Decimal)
    cbNumExp->ItemIndex = 0;
  else
    cbNumExp->ItemIndex = 1;

  stName->Caption = MainForm->DefaultFont->Name;
  stSize->Caption = MainForm->DefaultFont->Size;
  bFont = false;

  rgLanguage->ItemIndex = MainForm->ReportDoc->lang;
}
//---------------------------------------------------------------------------
void __fastcall TEnvironmentForm::sbFontClick(TObject *Sender)
{
  if (FontDialog->Execute()) {
    stName->Caption = FontDialog->Font->Name;
    stSize->Caption = FontDialog->Font->Size;
    bFont = true;
  }
}
//---------------------------------------------------------------------------
void __fastcall TEnvironmentForm::rgLanguageClick(TObject *Sender)               //dog
{
  MainForm->ReportDoc->lang = rgLanguage->ItemIndex;
  MainForm->ReportDoc->Repaint();      
}
//---------------------------------------------------------------------------