Unit1.h 2.8 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394
  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.Graph.hpp"
  13. #include "GLS.Objects.hpp"
  14. #include "GLS.Scene.hpp"
  15. #include "GLS.SceneViewer.hpp"
  16. #include <Vcl.ComCtrls.hpp>
  17. #include <Vcl.ExtCtrls.hpp>
  18. //---------------------------------------------------------------------------
  19. class TForm1 : public TForm
  20. {
  21. __published: // IDE-managed Components
  22. TGLSceneViewer *Viewer;
  23. TPanel *Panel2;
  24. TLabel *Label5;
  25. TLabel *Label3;
  26. TLabel *Label4;
  27. TLabel *Label1;
  28. TLabel *Label7;
  29. TCheckBox *CheckBox06;
  30. TCheckBox *CheckBox04;
  31. TCheckBox *CheckBox05;
  32. TCheckBox *CheckBox07;
  33. TEdit *Edit1;
  34. TEdit *Edit2;
  35. TEdit *Edit3;
  36. TUpDown *UpDown1;
  37. TUpDown *UpDown2;
  38. TUpDown *UpDown3;
  39. TEdit *Edit4;
  40. TEdit *Edit5;
  41. TEdit *Edit6;
  42. TUpDown *UpDown4;
  43. TUpDown *UpDown5;
  44. TUpDown *UpDown6;
  45. TEdit *Edit7;
  46. TEdit *Edit8;
  47. TEdit *Edit9;
  48. TUpDown *UpDown7;
  49. TUpDown *UpDown8;
  50. TUpDown *UpDown9;
  51. TEdit *Edit10;
  52. TUpDown *UpDown10;
  53. TButton *Button3;
  54. TButton *Button4;
  55. TGLScene *GLScene;
  56. TGLDummyCube *DCCamTarget;
  57. TGLLightSource *GLLightSource1;
  58. TGLLightSource *GLLightSource2;
  59. TGLCube *GLCube1;
  60. TGLDummyCube *DCCube1;
  61. TGLSphere *GLSphere1;
  62. TGLSphere *GLSphere2;
  63. TGLXYZGrid *GLXYZGrid1;
  64. TGLLines *GLLines1;
  65. TGLLines *GLLines3;
  66. TGLCamera *GLCamera1;
  67. TGLCadencer *GLCadencer;
  68. void __fastcall Button4Click(TObject *Sender);
  69. void __fastcall FormCreate(TObject *Sender);
  70. void __fastcall CheckBox04Click(TObject *Sender);
  71. void __fastcall Edit1Change(TObject *Sender);
  72. void __fastcall Button3Click(TObject *Sender);
  73. void __fastcall ViewerMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
  74. int X, int Y);
  75. void __fastcall GLCadencerProgress(TObject *Sender, const double deltaTime, const double newTime);
  76. void __fastcall ViewerMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
  77. void __fastcall FormMouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta,
  78. TPoint &MousePos, bool &Handled);
  79. private: // User declarations
  80. int mdx, mdy;
  81. TAffineVector intersPoint, ResNormal, BoxScale, SpherePos;
  82. Gls::Vectorgeometry::TMatrix BoxMatrix;
  83. float SphereRadius;
  84. public: // User declarations
  85. __fastcall TForm1(TComponent* Owner);
  86. };
  87. //---------------------------------------------------------------------------
  88. extern PACKAGE TForm1 *Form1;
  89. //---------------------------------------------------------------------------
  90. #endif