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

#include <vcl.h>
#pragma hdrstop

#include "SimulationAdvSet_F.h"
#include "Simulation_F.h"
#include "common.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
//---------------------------------------------------------------------------
#define IDS_SIMULATION_ADV_SET      StringTable[0]
#define IDS_OPTIMIZE                StringTable[1]
#define IDS_NO_OPTIMIZE             StringTable[2]
#define IDS_SPANDEX_SET             StringTable[3]
#define IDS_EFFECT                  StringTable[4]
#define IDS_NONE                    StringTable[5]
#define IDS_SOLID                   StringTable[6]
#define IDS_WAVE                    StringTable[7]
#define IDS_INTENSITY               StringTable[8]
#define IDS_INVERT_SHADE            StringTable[9]
//---------------------------------------------------------------------------
TSimulationAdvSetForm *SimulationAdvSetForm;
//---------------------------------------------------------------------------
__fastcall TSimulationAdvSetForm::TSimulationAdvSetForm(TComponent* Owner)
  : TForm(Owner)
{
  StringTable.Create(BaseDir, Language, "Simulation Adv");
  Caption=IDS_SIMULATION_ADV_SET;
  gbOptimize->Caption=IDS_OPTIMIZE;
  cbNoOptimize->Caption=IDS_NO_OPTIMIZE;
  gbSpandexSet->Caption=IDS_SPANDEX_SET;
  rgEffect->Caption=IDS_EFFECT;
  rgEffect->Items->Clear();
  rgEffect->Items->Add(IDS_NONE);
  rgEffect->Items->Add(IDS_SOLID);
  rgEffect->Items->Add(IDS_WAVE);
  lbPower->Caption=IDS_INTENSITY;
  cbInvert->Caption=IDS_INVERT_SHADE;

  SetFont();
}
//---------------------------------------------------------------------------
void __fastcall TSimulationAdvSetForm::SetFont(){
  SetSmallFont(Font);
}
//---------------------------------------------------------------------------
void __fastcall TSimulationAdvSetForm::SetData(){
  cbNoOptimize->Checked=!SimulationForm->sd.optimization;
  rgEffect->ItemIndex=SimulationForm->sd.span_effect;
  tbPower->Position=SimulationForm->sd.span_power;
  cbInvert->Checked=SimulationForm->sd.span_invert;
}
//---------------------------------------------------------------------------
void __fastcall TSimulationAdvSetForm::cbNoOptimizeClick(TObject *Sender)
{
  SimulationForm->sd.optimization=!cbNoOptimize->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TSimulationAdvSetForm::rgEffectClick(TObject *Sender)
{
  SimulationForm->sd.span_effect=rgEffect->ItemIndex;
}
//---------------------------------------------------------------------------

void __fastcall TSimulationAdvSetForm::tbPowerChange(TObject *Sender)
{
  SimulationForm->sd.span_power=tbPower->Position;
}
//---------------------------------------------------------------------------

void __fastcall TSimulationAdvSetForm::cbInvertClick(TObject *Sender)
{
  SimulationForm->sd.span_invert=cbInvert->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TSimulationAdvSetForm::FormActivate(TObject *Sender)
{
  SetData();
}
//---------------------------------------------------------------------------

void __fastcall TSimulationAdvSetForm::FormPaint(TObject *Sender)
{
  SetData();
}
//---------------------------------------------------------------------------