Unit1.h 1.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748
  1. //---------------------------------------------------------------------------
  2. #ifndef Unit1H
  3. #define Unit1H
  4. //---------------------------------------------------------------------------
  5. #include <System.Classes.hpp>
  6. #include <Vcl.Controls.hpp>
  7. #include <Vcl.StdCtrls.hpp>
  8. #include <Vcl.Forms.hpp>
  9. #include "GLS.BaseClasses.hpp"
  10. #include "GLS.Cadencer.hpp"
  11. #include "GLS.Coordinates.hpp"
  12. #include "GLS.Material.hpp"
  13. #include "GLS.Objects.hpp"
  14. #include "GLS.Scene.hpp"
  15. #include "GLS.SceneViewer.hpp"
  16. #include <Vcl.ExtCtrls.hpp>
  17. //---------------------------------------------------------------------------
  18. class TForm1 : public TForm
  19. {
  20. __published: // IDE-managed Components
  21. TGLScene *GLScene1;
  22. TGLSceneViewer *GLSceneViewer1;
  23. TGLMaterialLibrary *GLMaterialLibrary1;
  24. TGLCamera *GLCamera1;
  25. TGLCube *Cube1;
  26. TGLLightSource *GLLightSource1;
  27. TGLCadencer *GLCadencer1;
  28. TTimer *Timer1;
  29. TPanel *Panel1;
  30. TButton *Button1;
  31. TCheckBox *CBAnimate;
  32. TLabel *LabelFPS;
  33. void __fastcall Timer1Timer(TObject *Sender);
  34. void __fastcall GLCadencer1Progress(TObject *Sender, const double deltaTime, const double newTime);
  35. void __fastcall Button1Click(TObject *Sender);
  36. void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
  37. private: // User declarations
  38. public: // User declarations
  39. __fastcall TForm1(TComponent* Owner);
  40. double timeToNextFrame;
  41. };
  42. //---------------------------------------------------------------------------
  43. extern PACKAGE TForm1 *Form1;
  44. //---------------------------------------------------------------------------
  45. #endif