/
MikeLight
/
Lab
Обзор
Документация
Войти
/
MikeLight
/
Lab
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
CI/CD
Аналитика
Безопасность
master
lab4/fL4.h
58 строк
2 KB
MikeLight
upload files
25 ноя 2025, 20:19
25 ноя 2025, 20:19
fa45b3a
Код
Авторство
О чём код?
//--------------------------------------------------------------------------- #ifndef fL4H #define fL4H //--------------------------------------------------------------------------- #include <System.Classes.hpp> #include <FMX.Controls.hpp> #include <FMX.Forms.hpp> #include <FMX.Ani.hpp> #include <FMX.Controls3D.hpp> #include <FMX.Dialogs.hpp> #include <FMX.MaterialSources.hpp> #include <FMX.Objects3D.hpp> #include <FMX.Types.hpp> #include <FMX.Types3D.hpp> #include <FMX.Viewport3D.hpp> #include <System.Math.Vectors.hpp> #include <FMX.Controls.Presentation.hpp> #include <FMX.StdCtrls.hpp> //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE-managed Components TViewport3D *Viewport3D1; TCamera *Camera1; TLight *Light1; TDummy *DummySun; TSphere *SphereSun; TSphere *SphereEarth; TTextureMaterialSource *TextureMaterialEarth; TFloatAnimation *FloatAnimationSun; TText3D *Text3DEarth; TOpenDialog *OpenDialog1; TDummy *DummyEarthOrbit; TFloatAnimation *FloatAnimationOrbit; TText3D *Text3DSun; TDummy *DummyEarth; TColorMaterialSource *ColorMaterialSource1; TButton *LoadEarthTexture; TButton *ToggleAnimation; TButton *LoadSunTexture; TFloatAnimation *FloatAnimationEarth; TTextureMaterialSource *TextureMaterialSource1; void __fastcall LoadEarthTextureClick(TObject *Sender); void __fastcall LoadSunTextureClick(TObject *Sender); void __fastcall ToggleAnimationClick(TObject *Sender); void __fastcall Viewport3D1MouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta, bool &Handled); void __fastcall FormCreate(TObject *Sender); private: // User declarations bool AnimationsRunning; public: // User declarations __fastcall TForm1(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif