//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Environment_F.h"
#include "Main_F.h"
#include "common.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RzCmboBx"
#pragma link "RzButton"
#pragma link "RzPanel"
#pragma link "RzRadGrp"
#pragma resource "*.dfm"
//---------------------------------------------------------------------------
#define IDS_ENVIRONMENT             StringTable[0]
#define IDS_ENVIRONMENT_LANGUAGE    StringTable[1]
#define IDS_ENVIRONMENT_FONT        StringTable[2]
#define IDS_ENVIRONMENT_FONT_CHANGE StringTable[3]
#define IDS_ENVIRONMENT_NEEDLE      StringTable[4]
#define IDS_ENVIRONMENT_LayerMode   StringTable[5]
//---------------------------------------------------------------------------
TEnvironment *Environment;
//---------------------------------------------------------------------------
__fastcall TEnvironment::TEnvironment(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TEnvironment::LanguageComboBoxChange(TObject *Sender)
{
  if(LanguageComboBox->Text=="") return;
  AnsiString language = LanguageComboBox->Text;
  if(language=="Korean") language = "Korean";
  if(language=="Chinese") language = "Chinese";
  if(language=="English") language = "English";  

   TIniFile *IniFile = new TIniFile(BaseDir + "\\Environment.ini");
   if (IniFile) {
    IniFile->WriteString("Environment", "Language", language);
    delete IniFile;
  }
  ShowMessage(IDS_MESSAGE_RERUN_TO_UPDATE);
}
//---------------------------------------------------------------------------
void __fastcall TEnvironment::FormCreate(TObject *Sender)
{
  SetFont();
  Left=100;
  Top=100;

  AnsiString language = Language;
  if(language=="Korean") language = "Korean";
  if(language=="Chinese") language = "Chinese";
  LanguageComboBox->Text = language;

  StringTable.Create(BaseDir, Language, "Environment");
  Caption=IDS_ENVIRONMENT;
  lbLanguage->Caption=IDS_ENVIRONMENT_LANGUAGE;
  lbFont->Caption=IDS_ENVIRONMENT_FONT;
  sbFont->Caption=IDS_ENVIRONMENT_FONT_CHANGE;
  lbMaxWidth->Caption=IDS_ENVIRONMENT_NEEDLE;
  LayerMode->Caption = IDS_ENVIRONMENT_LayerMode;
}
//---------------------------------------------------------------------------
void __fastcall TEnvironment::SetFont(){
  SetSmallFont(Font);
  SetSmallFont(lbFont->Font);
  SetSmallFont(sbFont->Font);
  SetSmallFont(lbLanguage->Font);
  SetSmallFont(lbMaxWidth->Font);
}
//---------------------------------------------------------------------------
void __fastcall TEnvironment::sbFontClick(TObject *Sender)
{
   FontDialog->Font->Assign(SmallFont);
  if (FontDialog->Execute()) {
    SmallFont->Assign(FontDialog->Font);
    TIniFile *IniFile = new TIniFile(BaseDir + "\\Environment.ini");
     if (IniFile) {
       SaveFont(IniFile, SmallFont, "Font");
      delete IniFile;
    }
    ShowMessage(IDS_MESSAGE_RERUN_TO_UPDATE);
  }
}
//---------------------------------------------------------------------------

void __fastcall TEnvironment::cbMaxWidthChange(TObject *Sender)
{
  if(cbMaxWidth->Text=="") return;
  int maxwidth = StrToInt(cbMaxWidth->Text);

   TIniFile *IniFile = new TIniFile(BaseDir + "\\Environment.ini");
   if (IniFile) {
    IniFile->WriteInteger("Environment", "TexMaxWidth", maxwidth);
    delete IniFile;
  }
  ShowMessage(IDS_MESSAGE_RERUN_TO_UPDATE);
}
//---------------------------------------------------------------------------

void __fastcall TEnvironment::FormShow(TObject *Sender)
{
  TIniFile *IniFile = new TIniFile(BaseDir + "\\Environment.ini");
  if (IniFile) {
    int index = 0;
    index = IniFile->ReadInteger("Environment", "LayerMode", 0);
    LayerMode->ItemIndex = index;
    delete IniFile;
  }
}
//---------------------------------------------------------------------------

void __fastcall TEnvironment::LayerModeClick(TObject *Sender)
{
  TIniFile *IniFile = new TIniFile(BaseDir + "\\Environment.ini");
  if (IniFile) {
   IniFile->WriteInteger("Environment", "LayerMode", LayerMode->ItemIndex);
   delete IniFile;
  }
}
//---------------------------------------------------------------------------