Lab3/FormUnit_L3.cpp - master - Luka_Modrich/O3DM_Labs

Lab3/FormUnit_L3.cpp
39 строк2 KB
Luka_Modrich
upload files
04 дек 2024, 17:36
04 дек 2024, 17:360bef59e
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "FormUnit_L3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "GLS.BaseClasses"
#pragma link "GLS.Scene"
#pragma link "GLS.SceneViewer"
#pragma link "GLS.Coordinates"
#pragma link "GLS.Objects"
#pragma link "GLS.GeomObjects"
#pragma link "GLS.Collision"
#pragma link "GLS.Cadencer"
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
	: TForm(Owner)
{
	GLTeapot1->Material->FrontProperties->Diffuse->Alpha = 0.8; // ������������� �����-����� �� 80% ��������������
	GLTeapot1->Material->Texture->MappingMode = tmmCubeMapReflection; // ������������� ����� ����������� �������� �� ��������� ���������� �����
}
//---------------------------------------------------------------------------
void __fastcall TForm3::GLCadencer1Progress(TObject *Sender, const double DeltaTime, const double NewTime)
{
	GLTeapot1->Turn(DeltaTime*10);; // �������� �������
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
	if(OpenDialog1->Execute()) {
		GLTeapot1->Material->Texture->Image->LoadFromFile(OpenDialog1->FileName); // ��������� �����������
		GLTeapot1->Material->Texture->Disabled = false; // �������� ����������� ���������
	}
}
//---------------------------------------------------------------------------