Лабы / Тельминов / набор_1 / лабы.3(1,2,3) / Part3 / Unit1

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
	Sinusoid = new CSinusoid(Image1);
  LClick = 0;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
	delete Sinusoid;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
  Form1->Cursor = crDefault;
  switch (Sinusoid->InMarker(X,Y))
  {
  	case 1: Form1->Cursor = crSizeNS;break;
  	case 2: Form1->Cursor = crSizeWE;break;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
	LClick = Sinusoid->InMarker(X,Y);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
	switch(LClick)
  {
  	case 1: Sinusoid->SetAmplitude((Sinusoid->GetImageHeight()-1-Y)/2);break;
  	case 2: Sinusoid->SetPeriod(X/1.5);break;
  }
  Sinusoid->ReDraw();
	LClick = 0;
}
//---------------------------------------------------------------------------