Unit1.h 2.3 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970
  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 "GLBaseClasses.hpp"
  10. #include "GLCadencer.hpp"
  11. #include "GLCoordinates.hpp"
  12. #include "GLCrossPlatform.hpp"
  13. #include "GLGeomObjects.hpp"
  14. #include "GLGraph.hpp"
  15. #include "GLObjects.hpp"
  16. #include "GLScene.hpp"
  17. #include "GLWin32Viewer.hpp"
  18. #include <Vcl.ExtCtrls.hpp>
  19. //---------------------------------------------------------------------------
  20. class TForm1 : public TForm
  21. {
  22. __published: // IDE-managed Components
  23. TGLSceneViewer *Viewer;
  24. TPanel *Panel2;
  25. TCheckBox *CheckBox6;
  26. TButton *Button1;
  27. TCheckBox *CheckBox1;
  28. TCheckBox *CheckBox2;
  29. TCheckBox *CheckBox3;
  30. TButton *Button2;
  31. TCheckBox *CheckBox4;
  32. TCheckBox *CheckBox5;
  33. TGLScene *GLScene;
  34. TGLDummyCube *DCCamTarget;
  35. TGLLightSource *GLLightSource1;
  36. TGLLightSource *GLLightSource2;
  37. TGLCube *GLCube1;
  38. TGLXYZGrid *GLXYZGrid1;
  39. TGLPolygon *GLPolygon1;
  40. TGLLines *GLLines1;
  41. TGLPoints *GLPoints1;
  42. TGLLines *GLLines2;
  43. TGLCamera *GLCamera1;
  44. TGLCadencer *GLCadencer;
  45. void __fastcall FormCreate(TObject *Sender);
  46. void __fastcall Button1Click(TObject *Sender);
  47. void __fastcall Button2Click(TObject *Sender);
  48. void __fastcall CheckBox4Click(TObject *Sender);
  49. void __fastcall GLCadencerProgress(TObject *Sender, const double deltaTime, const double newTime);
  50. void __fastcall ViewerMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
  51. void __fastcall FormMouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta,
  52. TPoint &MousePos, bool &Handled);
  53. void __fastcall FormResize(TObject *Sender);
  54. void __fastcall FormKeyPress(TObject *Sender, System::WideChar &Key);
  55. private: // User declarations
  56. int mdx, mdy;
  57. TAffineVector BoxPos, BoxScale, MinExtend, MaxExtend;
  58. TAffineVector TriangePos[3];
  59. void __fastcall MakeRandomData();
  60. void __fastcall DrawResult();
  61. public: // User declarations
  62. __fastcall TForm1(TComponent* Owner);
  63. };
  64. //---------------------------------------------------------------------------
  65. extern PACKAGE TForm1 *Form1;
  66. //---------------------------------------------------------------------------
  67. #endif