ООП / ООП / 3-1 / Unit1

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
// ---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
double a;
// ---------------------------------------------------------------------------
__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;
	if (true) {

	}
	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()/2 - Y);
		break;
	case 2:
		Sinusoid->SetPeriod(X/2);
		break;
	}
	Sinusoid->ReDraw();
	LClick = 0;
}
// ---------------------------------------------------------------------------