Unit1.h 1.8 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859
  1. //---------------------------------------------------------------------------
  2. #ifndef Unit1H
  3. #define Unit1H
  4. //---------------------------------------------------------------------------
  5. #include <vcl.h>
  6. #include <tchar.h>
  7. #include <System.Classes.hpp>
  8. #include <Vcl.Controls.hpp>
  9. #include <Vcl.StdCtrls.hpp>
  10. #include <Vcl.Forms.hpp>
  11. #include <Vcl.ExtCtrls.hpp>
  12. #include "GLBaseClasses.hpp"
  13. #include "GLCadencer.hpp"
  14. #include "GLCoordinates.hpp"
  15. #include "GLCrossPlatform.hpp"
  16. #include "GLMaterial.hpp"
  17. #include "GLObjects.hpp"
  18. #include "GLScene.hpp"
  19. #include "GLWin32Viewer.hpp"
  20. #include "GLUtils.hpp"
  21. #include "GLContext.hpp"
  22. #include "GLDynamicTexture.hpp"
  23. //---------------------------------------------------------------------------
  24. class TForm1 : public TForm
  25. {
  26. __published: // IDE-managed Components
  27. TGLSceneViewer *GLSceneViewer1;
  28. TGLScene *GLScene1;
  29. TGLDirectOpenGL *GLDirectOpenGL1;
  30. TGLDummyCube *GLDummyCube1;
  31. TGLCube *GLCube1;
  32. TGLLightSource *GLLightSource1;
  33. TGLCamera *GLCamera1;
  34. TGLMaterialLibrary *GLMaterialLibrary1;
  35. TGLCadencer *GLCadencer1;
  36. TTimer *Timer1;
  37. void __fastcall FormCreate(TObject *Sender);
  38. void __fastcall FormResize(TObject *Sender);
  39. void __fastcall FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
  40. void __fastcall GLCadencer1Progress(TObject *Sender, const double deltaTime, const double newTime);
  41. void __fastcall GLDirectOpenGL1Render(TObject *Sender, TGLRenderContextInfo &rci);
  42. void __fastcall Timer1Timer(TObject *Sender);
  43. private: // User declarations
  44. int frame;
  45. bool partial;
  46. public: // User declarations
  47. __fastcall TForm1(TComponent* Owner);
  48. };
  49. //---------------------------------------------------------------------------
  50. extern PACKAGE TForm1 *Form1;
  51. //---------------------------------------------------------------------------
  52. #endif