Unit1.h 1.7 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849
  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.Coordinates.hpp"
  11. #include "GLS.Extrusion.hpp"
  12. #include "GLS.GeomObjects.hpp"
  13. #include "GLS.Objects.hpp"
  14. #include "GLS.Scene.hpp"
  15. #include "GLS.SceneViewer.hpp"
  16. //---------------------------------------------------------------------------
  17. class TForm1 : public TForm
  18. {
  19. __published: // IDE-managed Components
  20. TGLSceneViewer *GLSceneViewer1;
  21. TGLScene *GLScene1;
  22. TGLLightSource *GLLightSource1;
  23. TGLDummyCube *DummyCube1;
  24. TGLDummyCube *Bolt;
  25. TGLRevolutionSolid *RSBoltHead;
  26. TGLCylinder *CYBoltShaft;
  27. TGLRevolutionSolid *RSBoltThreads;
  28. TGLDummyCube *Nut;
  29. TGLRevolutionSolid *RSNutThreads;
  30. TGLRevolutionSolid *RSNutPans;
  31. TGLAnnulus *Annulus1;
  32. TGLCamera *GLCamera1;
  33. void __fastcall FormMouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta,
  34. TPoint &MousePos, bool &Handled);
  35. void __fastcall GLSceneViewer1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
  36. int X, int Y);
  37. void __fastcall GLSceneViewer1MouseMove(TObject *Sender, TShiftState Shift, int X,
  38. int Y);
  39. private: // User declarations
  40. int mx, my;
  41. public: // User declarations
  42. __fastcall TForm1(TComponent* Owner);
  43. };
  44. //---------------------------------------------------------------------------
  45. extern PACKAGE TForm1 *Form1;
  46. //---------------------------------------------------------------------------
  47. #endif