//---------------------------------------------------------------------------
#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_OK              StringTable[9]
#define IDS_CANCEL          StringTable[10]
#define IDS_TEX             StringTable[11]
#define IDS_DENIER          StringTable[12]
#define IDS_COTTON          StringTable[13]
#define IDS_WORSTED         StringTable[14]
#define IDS_YSW             StringTable[15]
#define IDS_LINEN           StringTable[16]
#define IDS_YARNKIND        StringTable[17]

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

TYarnUnitForm *YarnUnitForm;
//---------------------------------------------------------------------------
__fastcall TYarnUnitForm::TYarnUnitForm(TComponent* Owner)
	: TForm(Owner)
{
//===========================================
  StringTable.Create(DirectoryBin, Language, "YarnUnit");
  SetSmallFont(Font);
  Caption                         = IDS_YARNKIND;
  btnOK->Caption                  = IDS_OK;
  btnCancel->Caption              = IDS_CANCEL;

  rgKind->Items->Strings[0]       = IDS_TEX;
  rgKind->Items->Strings[1]       = IDS_DENIER;
  rgKind->Items->Strings[2]       = IDS_COTTON;
  rgKind->Items->Strings[3]       = IDS_WORSTED;
  rgKind->Items->Strings[4]       = IDS_YSW;
  rgKind->Items->Strings[5]       = IDS_LINEN;


//===========================================
}
//---------------------------------------------------------------------------
void __fastcall TYarnUnitForm::FormCreate(TObject *Sender)
{
	FYarnUnit.Method = YU_DIRECT;
 	FYarnUnit.System = YU_TEX;
}
//---------------------------------------------------------------------------
void __fastcall TYarnUnitForm::rgKindClick(TObject *Sender)
{
  switch (rgKind->ItemIndex) {
    case 0:
      FYarnUnit.Method = YU_DIRECT;
    	FYarnUnit.System = YU_TEX;
      break;
    case 1:
      FYarnUnit.Method = YU_DIRECT;
    	FYarnUnit.System = YU_DENIER;
      break;
    case 2:
      FYarnUnit.Method = YU_INDIRECT;
      FYarnUnit.System = YU_COTTON;
      break;
    case 3:
      FYarnUnit.Method = YU_INDIRECT;
      FYarnUnit.System = YU_WORSTED;
      break;
    case 4:
      FYarnUnit.Method = YU_INDIRECT;
      FYarnUnit.System = YU_Y_S_W;
      break;
    case 5:
      FYarnUnit.Method = YU_INDIRECT;
      FYarnUnit.System = YU_LINEN;
      break;
  }
}
//---------------------------------------------------------------------------

// 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: rgKind->ItemIndex = 0; break;
      	case YU_DENIER: rgKind->ItemIndex = 1; break;
      }
    } else {
    	switch (FYarnUnit.System) {
      	case YU_COTTON: rgKind->ItemIndex =2; break;
      	case YU_WORSTED: rgKind->ItemIndex = 3; break;
      	case YU_Y_S_W: rgKind->ItemIndex = 4; break;
      	case YU_LINEN: rgKind->ItemIndex = 5; break;
      }
    }
  }
}
//---------------------------------------------------------------------------