Lab3/FormUnit_L3.cpp - patch - ArtemSls/O3DM

Lab3/FormUnit_L3.cpp
39 строк2 KB
ArtemSls
upload files
24 янв 2025, 03:18
24 янв 2025, 03:187d6a4f3
//---------------------------------------------------------------------------

#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"
TForm_L3 *Form_L3;
//---------------------------------------------------------------------------
__fastcall TForm_L3::TForm_L3(TComponent* Owner)
	: TForm(Owner)
{
	GLTeapot1->Material->FrontProperties->Diffuse->Alpha = 0.8; // ������������� �����-����� �� 80% ��������������
	GLTeapot1->Material->Texture->MappingMode = tmmCubeMapReflection; // ������������� ����� ����������� �������� �� ��������� ���������� �����
}
//---------------------------------------------------------------------------
void __fastcall TForm_L3::GLCadencer1Progress(TObject *Sender, const double DeltaTime, const double NewTime)
{
	GLTeapot1->Turn(DeltaTime*10);; // �������� �������
}
//---------------------------------------------------------------------------
void __fastcall TForm_L3::Button1Click(TObject *Sender)
{
	if(OpenDialog1->Execute()) {
		GLTeapot1->Material->Texture->Image->LoadFromFile(OpenDialog1->FileName); // ��������� �����������
		GLTeapot1->Material->Texture->Disabled = false; // �������� ����������� ���������
	}
}
//---------------------------------------------------------------------------