Лабораторные работы3 / KG2 / kg2

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

#include <vcl.h>
#pragma hdrstop

#include "kg2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Tspatial *spatial;
Tcomplex *complex;



//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
	DoubleBuffered = true;
	spatial = new Tspatial(Image1->Canvas);
	spatial->setParams(oX, oY, lenthOS, alpha);
	spatial->change();

	complex = new Tcomplex (Image2->Canvas);
	complex->setParams(oX, oY, lenthOS);
	complex->change();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CameraChange(TObject *Sender)
{
	Label11->Caption="Камера С ("+IntToStr(TrackBar4->Position)+", "+IntToStr(TrackBar5->Position)+", "+IntToStr(TrackBar6->Position)+")";
	spatial->change();
	complex->change();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PointChange(TObject *Sender)
{
	Label4->Caption="Точка Р ("+IntToStr(TrackBar1->Position)+", "+IntToStr(TrackBar2->Position)+", "+IntToStr(TrackBar3->Position)+")";
	spatial->change();
	complex->change();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ProectionChange(TObject *Sender)
{
	spatial->change();
}
//---------------------------------------------------------------------------