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

#include "YarnUnit_F.h"
#include "common.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
//---------------------------------------------------------------------------

#define IDS_YARNUNIT        StringTable[0]
#define IDS_DIRECTSYSTEM    StringTable[1]
#define IDS_TEX             StringTable[2]
#define IDS_DENIER          StringTable[3]
#define IDS_INDIRECTSYSTEM  StringTable[4]
#define IDS_COTTON          StringTable[5]
#define IDS_WORSTED         StringTable[6]
#define IDS_YSW             StringTable[7]
#define IDS_LINEN           StringTable[8]
#define IDS_OK              StringTable[9]
#define IDS_CANCEL          StringTable[10]
//---------------------------------------------------------------------------

TYarnUnitForm *YarnUnitForm;
//---------------------------------------------------------------------------
__fastcall TYarnUnitForm::TYarnUnitForm(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TYarnUnitForm::FormCreate(TObject *Sender)
{
//===========================================
  StringTable.Create(DirectoryBin, Language, "YarnUnit");
  SetSmallFont(Font);
  Caption                         = IDS_YARNUNIT;
  rgDirect->Caption               = IDS_DIRECTSYSTEM;
  rgDirect->Items->Strings[0]     = IDS_TEX;
  rgDirect->Items->Strings[1]     = IDS_DENIER;
  rgIndirect->Caption             = IDS_INDIRECTSYSTEM;
  rgIndirect->Items->Strings[0]   = IDS_COTTON;
  rgIndirect->Items->Strings[1]   = IDS_WORSTED;
  rgIndirect->Items->Strings[2]   = IDS_YSW;
  rgIndirect->Items->Strings[3]   = IDS_LINEN;
  btnOK->Caption                  = IDS_OK;
  btnCancel->Caption              = IDS_CANCEL;
//===========================================

	FYarnUnit.Method = YU_DIRECT;
	FYarnUnit.System = YU_TEX;
}
//---------------------------------------------------------------------------
void __fastcall TYarnUnitForm::rgDirectClick(TObject *Sender)
{
	FYarnUnit.Method = YU_DIRECT;
	FYarnUnit.System = rgDirect->ItemIndex;
 	rgIndirect->ItemIndex = -1;
}
//---------------------------------------------------------------------------
void __fastcall TYarnUnitForm::rgIndirectClick(TObject *Sender)
{
	FYarnUnit.Method = YU_INDIRECT;
	FYarnUnit.System = rgIndirect->ItemIndex;
 	rgDirect->ItemIndex = -1;
}
//---------------------------------------------------------------------------
// Private Method
//---------------------------------------------------------------------------
void __fastcall TYarnUnitForm::SetYarnUnit(TYarnUnit Value)
{
	if (Value.Method!=FYarnUnit.Method ||	Value.System!=FYarnUnit.System) {
		FYarnUnit.Method = Value.Method;
    FYarnUnit.System = Value.System;
    if (FYarnUnit.Method==YU_DIRECT) {
    	switch (FYarnUnit.System) {
      	case YU_TEX: rgDirect->ItemIndex = 0; break;
      	case YU_DENIER: rgDirect->ItemIndex = 1; break;
      }
     	rgIndirect->ItemIndex = -1;
    } else {
    	switch (FYarnUnit.System) {
      	case YU_COTTON: rgIndirect->ItemIndex = 0; break;
      	case YU_WORSTED: rgIndirect->ItemIndex = 1; break;
      	case YU_Y_S_W: rgIndirect->ItemIndex = 2; break;
      	case YU_LINEN: rgIndirect->ItemIndex = 3; break;
      }
     	rgDirect->ItemIndex = -1;
    }
  }
}
//---------------------------------------------------------------------------