// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'sgOrbit3D.pas' rev: 6.00

#ifndef sgOrbit3DHPP
#define sgOrbit3DHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <DXFImage.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Sgorbit3d
{
//-- type declarations -------------------------------------------------------
typedef Types::TPoint TsgTwoPoints[2];

#pragma option push -b-
enum Tsg3DStates { stateX, stateY, stateZ, stateXY };
#pragma option pop

class DELPHICLASS TsgOrbit3D;
class PASCALIMPLEMENTATION TsgOrbit3D : public Controls::TGraphicControl 
{
	typedef Controls::TGraphicControl inherited;
	
private:
	int FBigRadius;
	Controls::TControl* FDrawing;
	Dxfimage::TsgDXFImage* FCADImage;
	Tsg3DStates FCurrentState;
	bool FIsMouseDown;
	#pragma pack(push, 1)
	Types::TPoint FMouseCoords;
	#pragma pack(pop)
	
	#pragma pack(push, 1)
	Types::TPoint FPtCenter;
	#pragma pack(pop)
	
	Types::TPoint FPtHoriz[2];
	Types::TPoint FPtVert[2];
	int FSmallRadius;
	Controls::TMouseMoveEvent FOnMouseMove;
	void __fastcall SetCADImage(const Dxfimage::TsgDXFImage* Value);
	void __fastcall SetCursorState(const int X, const int Y);
	void __fastcall SetPtCenter(const Types::TPoint &Value);
	Types::TPoint __fastcall GetPtCenter();
	
protected:
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall SetParent(Controls::TWinControl* AParent);
	void __fastcall SetDrawing(Controls::TControl* ADrawing);
	DYNAMIC void __fastcall VisibleChanging(void);
	
public:
	__fastcall virtual TsgOrbit3D(Classes::TComponent* AOwner);
	__fastcall virtual ~TsgOrbit3D(void);
	virtual void __fastcall Paint(void);
	__property Types::TPoint PtCenter = {read=GetPtCenter, write=SetPtCenter};
	
__published:
	__property int BigRadius = {read=FBigRadius, nodefault};
	__property Controls::TControl* Drawing = {read=FDrawing, write=SetDrawing};
	__property Dxfimage::TsgDXFImage* CADImage = {read=FCADImage, write=SetCADImage};
	__property int SmallRadius = {read=FSmallRadius, nodefault};
	__property Controls::TMouseMoveEvent OnMouseMove = {read=FOnMouseMove, write=FOnMouseMove};
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Sgorbit3d */
using namespace Sgorbit3d;
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// sgOrbit3D
