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

#include <vcl.h>
#include <tchar.h>
#pragma hdrstop

#include "fcPick.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "GLS.BaseClasses"
#pragma link "GLS.Coordinates"

#pragma link "GLS.GeomObjects"
#pragma link "GLS.Objects"
#pragma link "GLS.Scene"
#pragma link "GLS.SceneViewer"
#pragma resource "*.dfm"
TFormPick *FormPick;
//---------------------------------------------------------------------------
__fastcall TFormPick::TFormPick(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormPick::glsViewerMouseMove(TObject *Sender, TShiftState Shift,
		  int X, int Y)
{

	TGLCustomSceneObject *pick;

	// find what's under the mouse
	pick = (TGLCustomSceneObject *) glsViewer->Buffer->GetPickedObject(X, Y);
	// if it has changed since last MouseMove...
	if (pick != oldPick)
	{
		// ...turn to black previous "hot" object...
		if (oldPick)
			oldPick->Material->FrontProperties->Emission->Color = clrBlack;
		// ...and heat up the new selection...
		if  (pick)
			pick->Material->FrontProperties->Emission->Color = clrRed;
		// ...and don't forget it !
		oldPick = pick;
	}
}
//---------------------------------------------------------------------------
void __fastcall TFormPick::glsViewerMouseDown(TObject *Sender, TMouseButton Button,
		  TShiftState Shift, int X, int Y)
{

	TGLCustomSceneObject *pick;
	// if an object is picked...
	pick = (TGLCustomSceneObject *) glsViewer->Buffer->GetPickedObject(X, Y);
	if (pick)
		// ...turn it to yellow and show its name
		pick->Material->FrontProperties->Emission->Color = clrYellow;
		ShowMessage("You clicked the " + pick->Name);

}
//---------------------------------------------------------------------------