Unit2.h 1.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960
  1. //---------------------------------------------------------------------------
  2. #ifndef Unit2H
  3. #define Unit2H
  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.Behaviours.hpp"
  11. #include "GLS.Cadencer.hpp"
  12. #include "GLS.Coordinates.hpp"
  13. #include "GLS.GeomObjects.hpp"
  14. #include "GLS.Objects.hpp"
  15. #include "GLS.Scene.hpp"
  16. #include "GLS.SpaceText.hpp"
  17. #include "GLS.SceneViewer.hpp"
  18. #include "GLS.ScreenSaver.hpp"
  19. #include "Registry.hpp"
  20. //---------------------------------------------------------------------------
  21. class TForm2 : public TForm
  22. {
  23. __published: // IDE-managed Components
  24. TGLSceneViewer *GLSceneViewer1;
  25. TButton *Button1;
  26. TButton *Button2;
  27. TGLScene *GLScene1;
  28. TGLLightSource *GLLightSource1;
  29. TGLDummyCube *DummyCube1;
  30. TGLSpaceText *SpaceText4;
  31. TGLTorus *Torus1;
  32. TGLTorus *Torus2;
  33. TGLCamera *GLCamera1;
  34. TGLCadencer *GLCadencer1;
  35. void __fastcall FormCreate(TObject *Sender);
  36. void __fastcall GLSceneViewer1MouseMove(TObject *Sender, TShiftState Shift, int X,
  37. int Y);
  38. void __fastcall GLSceneViewer1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
  39. int X, int Y);
  40. void __fastcall Button2Click(TObject *Sender);
  41. private: // User declarations
  42. int FLastHotNb;
  43. void __fastcall SetSelected(int nb);
  44. void __fastcall SetHot(int nb);
  45. public: // User declarations
  46. __fastcall TForm2(TComponent* Owner);
  47. };
  48. int __fastcall GetMeshResolutions();
  49. void __fastcall SetMeshResolutions(int MeshResolutions);
  50. //---------------------------------------------------------------------------
  51. extern PACKAGE TForm2 *Form2;
  52. //---------------------------------------------------------------------------
  53. #endif