Lab13/fxVR.h - master - MikeLight/Lab

Lab13/fxVR.h
58 строк2 KB
MikeLight
upload files
18 дек 2025, 14:45
18 дек 2025, 14:45385fc10
//---------------------------------------------------------------------------

#ifndef fxVRH
#define fxVRH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <System.Math.Vectors.hpp>
#include <Execute.StereoViewPort.hpp>
#include <FMX.Controls.hpp>
#include <FMX.Forms.hpp>
#include <FMX.Controls3D.hpp>
#include <FMX.Objects3D.hpp>
#include <FMX.Types.hpp>
#include <FMX.Viewport3D.hpp>
#include <FMX.Types3D.hpp>
#include <FMX.MaterialSources.hpp>
#include "GBE.Cubemap.hpp"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
	Execute::Stereoviewport::TViewport3D *Viewport3D1;
	TDummy *Dummy1;
	TDummy *Dummy2;
	TDummy *Dummy3;
	TLight *Light1;
	TGrid3D *Grid3D1;
	TPlane *Plane1;
	TModel3D *Model3D1;
	TDummy *Dummy4;
	TLightMaterialSource *LightMaterialSource1;
	TLightMaterialSource *LightMaterialSource2;
	TLightMaterialSource *LightMaterialSource3;
	TLightMaterialSource *Model3D1Mat01;
	TGBECubemap *GBECubemap1;
	TTextureMaterialSource *TextureMaterialSource1;
	TCube *Cube1;
	TCube *Cube2;
	TLightMaterialSource *LightMaterialSource4;
	void __fastcall FormCreate(TObject *Sender);
	void __fastcall Viewport3D1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          float X, float Y);
	void __fastcall Viewport3D1MouseMove(TObject *Sender, TShiftState Shift, float X,
          float Y);
	void __fastcall FormKeyDown(TObject *Sender, WORD &Key, System::WideChar &KeyChar,
          TShiftState Shift);
	void __fastcall Viewport3D1MouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta,
          bool &Handled);

private:	// User declarations
	float mx, my;
public:		// User declarations
	__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif