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

#include "YarnUnit_F.h"
#include "common.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RzButton"
#pragma link "RzRadChk"
#pragma link "RzPanel"
#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)
{
//=========================================== 20051117 by lhskys tdw ΌφΑ€ 
  StringTable.Create(BaseDir, Language, "YarnUnit");
  SetSmallFont(Font);                       
  Caption                         = IDS_YARNKIND;
  btnOK->Caption                  = IDS_OK;
  btnCancel->Caption              = IDS_CANCEL;
  rb0->Caption                    = IDS_TEX;
  rb1->Caption                    = IDS_DENIER;
  rb2->Caption                    = IDS_COTTON;
  rb3->Caption                    = IDS_WORSTED;
  rb4->Caption                    = IDS_YSW;
  rb5->Caption                    = IDS_LINEN;
  gbUnit->Caption                 = IDS_YARNKIND;
//===========================================
}

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

void __fastcall TYarnUnitForm::FormShow(TObject *Sender)
{
  TRadioButton *rb = NULL;
  int index = 0;
  index = FindUnitIndex(FYarnUnit);

  for (int i = 0; i < 6; i++)
  {
    rb = (TRadioButton *) FindComponent("rb" + IntToStr(i));
    if ((vsble[i] == true) || (i == 0)){
      rb->Enabled = true;
      if (i == index) {
        rb->Checked = true;
      }
    } else rb->Enabled = false;
  }
}
//---------------------------------------------------------------------------

// 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;
      }
    }
    */
  }
}
//---------------------------------------------------------------------------


void __fastcall TYarnUnitForm::btnOKClick(TObject *Sender)
{
  int i;
  TRzRadioButton *rb = NULL;

  for (i = 0; i < 6; i++)
  {
    vsble[i] = false;
    rb = (TRzRadioButton *) FindComponent("rb" + IntToStr(i));
    if (rb->Checked) break;
  }
  FYarnUnit = IndexToUnit(i);
}
//---------------------------------------------------------------------------