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

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

#define IDS_YARNBRIGHTNESS  StringTable[0]
#define IDS_OK              StringTable[1]
#define IDS_CANCEL          StringTable[2]
//---------------------------------------------------------------------------
__fastcall TYarnBrightnessForm::TYarnBrightnessForm(TComponent* Owner)
  : TForm(Owner)
{
}
//----------------------------------------------------------------------------
void __fastcall TYarnBrightnessForm::FormCreate(TObject *Sender)
{
  IsDraw = false;
  FNumber = -1;
//===========================================
  StringTable.Create(DirectoryBin, Language, "YarnBrightness");
  SetSmallFont(Font);
  Caption               = IDS_YARNBRIGHTNESS;
  btnOK->Caption        = IDS_OK ;
  btnCancel->Caption    = IDS_CANCEL ;
//===========================================

  Image1->Canvas->Pen->Color = clBlack;
  Image1->Canvas->MoveTo(200, 0),  Image1->Canvas->LineTo(200, 200);
  Image1->Canvas->MoveTo(0, 100),  Image1->Canvas->LineTo(400, 100);
  Image1->Canvas->Pen->Color = clBlack;
  Image1->Canvas->MoveTo(20, 100),  Image1->Canvas->LineTo(20, 95);
  Image1->Canvas->MoveTo(80, 100),  Image1->Canvas->LineTo(80, 95);
  Image1->Canvas->MoveTo(140, 100),  Image1->Canvas->LineTo(140, 95);
  Image1->Canvas->MoveTo(200, 100),  Image1->Canvas->LineTo(200, 95);
  Image1->Canvas->MoveTo(260, 100),  Image1->Canvas->LineTo(260, 95);
  Image1->Canvas->MoveTo(320, 100),  Image1->Canvas->LineTo(320, 95);
  Image1->Canvas->MoveTo(380, 100),  Image1->Canvas->LineTo(380, 95);

  Image1->Canvas->TextOut(14, 105, "-3");
  Image1->Canvas->TextOut(74, 105, "-2");
  Image1->Canvas->TextOut(134, 105, "-1");
  Image1->Canvas->TextOut(190, 105, "0");
  Image1->Canvas->TextOut(256, 105, "1");
  Image1->Canvas->TextOut(316, 105, "2");
  Image1->Canvas->TextOut(376, 105, "3");
  Image1->Canvas->TextOut(190, 10, "Y");
  Image1->Canvas->TextOut(390, 105, "X");

  Image1->Canvas->Pen->Color = clBlue;
  Image1->Canvas->Pen->Mode = pmNotXor;
}
//---------------------------------------------------------------------------
void __fastcall TYarnBrightnessForm::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
	for (int i=0; i<7; i++) {
		if (X>=17+i*60 && X<=23+i*60 && Y>=97-y[i]*800 && Y<=103-y[i]*800) {
    	FNumber = i;
      break;
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TYarnBrightnessForm::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
  if (FNumber>=0 && Y>=20 && Y<=180) {
    if (IsDraw) Draw();
    y[FNumber] = -(Y-100)/800.0;
    Draw();
    IsDraw = true;
  }
}
//---------------------------------------------------------------------------
void __fastcall TYarnBrightnessForm::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  if (FNumber>=0) {
//======================================== À§Ä¡°¡ Image¸¦ ¹þ¾î³ª´Â °æ¿ì
    if (Y < 20) Y = 20;
    if (Y > 180) Y = 180;
//========================================
    if (IsDraw) Draw();
    y[FNumber] = -(Y-100)/800.0;
    Draw();
    FNumber = -1;
  }
}
//---------------------------------------------------------------------------
// Private Method
//---------------------------------------------------------------------------
void __fastcall TYarnBrightnessForm::DrawRectangle(int X, int Y)
{
  Image1->Canvas->Rectangle(X-3, Y-3, X+3, Y+3);
}
//---------------------------------------------------------------------------
void __fastcall TYarnBrightnessForm::Draw()
{
	int i;

  Image1->Canvas->MoveTo(20, 100-y[0]*800);
  for (i=1; i<7; i++) {
	  Image1->Canvas->LineTo(20+i*60, 100-y[i]*800);
  }
  for (i=0; i<7; i++) {
		DrawRectangle(20+i*60, 100-y[i]*800);
  }
  StaticText1->Caption = Format("%5.3f", OPENARRAY(TVarRec, (y[0])));
  StaticText2->Caption = Format("%5.3f", OPENARRAY(TVarRec, (y[1])));
  StaticText3->Caption = Format("%5.3f", OPENARRAY(TVarRec, (y[2])));
  StaticText4->Caption = Format("%5.3f", OPENARRAY(TVarRec, (y[3])));
  StaticText5->Caption = Format("%5.3f", OPENARRAY(TVarRec, (y[4])));
  StaticText6->Caption = Format("%5.3f", OPENARRAY(TVarRec, (y[5])));
  StaticText7->Caption = Format("%5.3f", OPENARRAY(TVarRec, (y[6])));
}
//---------------------------------------------------------------------------
double *__fastcall TYarnBrightnessForm::GetBrightness()
{
	return y;
}
//---------------------------------------------------------------------------
void __fastcall TYarnBrightnessForm::SetBrightness(double *Value)
{
	memcpy(y, Value, 7*sizeof(double));
  Draw();
  IsDraw = true;
}
//---------------------------------------------------------------------------