Unit1.h 2.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566
  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. TGLSceneViewer *Viewer;
  22. TPanel *Panel1;
  23. TLabel *Label1;
  24. TLabel *LabelFPS;
  25. TButton *Button1;
  26. TCheckBox *CheckBox1;
  27. TCheckBox *CheckBox2;
  28. TGLScene *GLScene;
  29. TGLCamera *GLCamera1;
  30. TGLLightSource *GLLightSource1;
  31. TGLLightSource *GLLightSource2;
  32. TGLDummyCube *GLDummyCube1;
  33. TGLDummyCube *DCCamTarg;
  34. TGLDummyCube *DCCube1;
  35. TGLCube *GLCube1;
  36. TGLLines *GLLines1;
  37. TGLPoints *GLPoints1;
  38. TGLCadencer *GLCadencer;
  39. TTimer *Timer1;
  40. TGLMaterialLibrary *GLMaterialLibrary;
  41. void __fastcall FormCreate(TObject *Sender);
  42. void __fastcall Button1Click(TObject *Sender);
  43. void __fastcall CheckBox1Click(TObject *Sender);
  44. void __fastcall GLCadencerProgress(TObject *Sender, const double deltaTime, const double newTime);
  45. void __fastcall Timer1Timer(TObject *Sender);
  46. void __fastcall ViewerMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
  47. void __fastcall FormMouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta,
  48. TPoint &MousePos, bool &Handled);
  49. void __fastcall ViewerMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
  50. int X, int Y);
  51. void __fastcall FormResize(TObject *Sender);
  52. void __fastcall FormKeyPress(TObject *Sender, System::WideChar &Key);
  53. private: // User declarations
  54. int mdx, mdy;
  55. TAffineVector BoxPos, BoxScale, RayStart, RayDir;
  56. public: // User declarations
  57. __fastcall TForm1(TComponent* Owner);
  58. };
  59. //---------------------------------------------------------------------------
  60. extern PACKAGE TForm1 *Form1;
  61. //---------------------------------------------------------------------------
  62. #endif