Lab1_BaseObjects/fcCubeFmx.cpp - master - daria_bel/VRLabs

Lab1_BaseObjects/fcCubeFmx.cpp
55 строк2 KB
glscene
Update
18 ноя 2025, 15:25
18 ноя 2025, 15:256207ee2
//---------------------------------------------------------------------------

#include <fmx.h>
#pragma hdrstop

#include "fcCubeFmx.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "GBE.CubeExtend"
#pragma link "GBE.Viewport3D"
#pragma resource "*.fmx"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CheckBox1Change(TObject *Sender)
{
	GBECubeExtend1->FaceFrontVisible = CheckBox1->IsChecked;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox2Change(TObject *Sender)
{
	GBECubeExtend1->FaceRightVisible = CheckBox2->IsChecked;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox3Change(TObject *Sender)
{
	GBECubeExtend1->FaceBackVisible = CheckBox3->IsChecked;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox4Change(TObject *Sender)
{
	GBECubeExtend1->FaceLeftVisible = CheckBox4->IsChecked;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox5Change(TObject *Sender)
{
	GBECubeExtend1->FaceTopVisible = CheckBox5->IsChecked;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox6Change(TObject *Sender)
{
	GBECubeExtend1->FaceBottomVisible = CheckBox6->IsChecked;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FloatAnimation1Process(TObject *Sender)
{
	GBECubeExtend1->RotationAngle->X = GBECubeExtend1->RotationAngle->X + 1;
	GBECubeExtend1->RotationAngle->Z = GBECubeExtend1->RotationAngle->Z + 1;
}
//---------------------------------------------------------------------------