/
stud_22-365
/
GLXEngine
Обзор
Документация
Войти
/
stud_22-365
/
GLXEngine
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
Examples/Demos/behaviours/PathControl/fcPathControl.h
48 строк
2 KB
glscene
HappyNewYear!
28 дек 2025, 23:42
28 дек 2025, 23:42
5ab1194
Код
Авторство
О чём код?
//--------------------------------------------------------------------------- #ifndef fcPathControlH #define fcPathControlH //--------------------------------------------------------------------------- #include <System.Classes.hpp> #include <Vcl.Controls.hpp> #include <Vcl.StdCtrls.hpp> #include <Vcl.Forms.hpp> #include <Vcl.Buttons.hpp> #include "GLS.BaseClasses.hpp" #include "GLS.Cadencer.hpp" #include "GLS.Coordinates.hpp" #include "GLS.Objects.hpp" #include "GLS.Scene.hpp" #include "GLS.SimpleNavigation.hpp" #include "GLS.SceneViewer.hpp" #include "GLS.Movement.hpp" //--------------------------------------------------------------------------- class TFormPathControl : public TForm { __published: // IDE-managed Components TGLSceneViewer *GLSceneViewer1; TBitBtn *MoveBtn; TGLScene *GLScene1; TGLDummyCube *dcModel; TGLCube *Cube; TGLLightSource *LightSource; TGLSphere *Planet; TGLCamera *Camera; TGLCadencer *GLCadencer1; TGLSimpleNavigation *GLSimpleNavigation1; TGLSphere *Sun; void __fastcall FormActivate(TObject *Sender); void __fastcall MoveBtnClick(TObject *Sender); private: // User declarations void PathTravelStop(TObject *Sender, TGLMovementPath *Path, bool Looped); void PathAllTravelledOver(TObject *Sender); public: // User declarations __fastcall TFormPathControl(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TFormPathControl *FormPathControl; //--------------------------------------------------------------------------- #endif