Unit1.h 1.8 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556
  1. //---------------------------------------------------------------------------
  2. #ifndef Unit1H
  3. #define Unit1H
  4. //---------------------------------------------------------------------------
  5. #include <vcl.h>
  6. #include <tchar.h>
  7. //---------------------------------------------------------------------------
  8. #include <System.Classes.hpp>
  9. #include <Vcl.Controls.hpp>
  10. #include <Vcl.StdCtrls.hpp>
  11. #include <Vcl.Forms.hpp>
  12. #include "GLS.BaseClasses.hpp"
  13. #include "GLS.Coordinates.hpp"
  14. #include "GLS.Objects.hpp"
  15. #include "GLS.Scene.hpp"
  16. #include "GLS.GeomObjects.hpp"
  17. #include "GLS.SceneViewer.hpp"
  18. #include "Jpeg.hpp"
  19. #include "GLS.Color.hpp"
  20. #include "GLS.Context.hpp"
  21. #include "GLS.Texture.hpp"
  22. //---------------------------------------------------------------------------
  23. class TForm1 : public TForm
  24. {
  25. __published: // IDE-managed Components
  26. TGLSceneViewer *GLSceneViewer1;
  27. TButton *Button1;
  28. TGLScene *GLScene1;
  29. TGLDummyCube *DummyCube1;
  30. TGLLightSource *GLLightSource1;
  31. TGLTeapot *Teapot1;
  32. TGLCamera *GLCamera1;
  33. void __fastcall GLSceneViewer1BeforeRender(TObject *Sender);
  34. void __fastcall Button1Click(TObject *Sender);
  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. void __fastcall FormMouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta,
  40. TPoint &MousePos, bool &Handled);
  41. private: // User declarations
  42. int mx,my;
  43. bool CubmapSupported;
  44. public: // User declarations
  45. __fastcall TForm1(TComponent* Owner);
  46. };
  47. //---------------------------------------------------------------------------
  48. extern PACKAGE TForm1 *Form1;
  49. //---------------------------------------------------------------------------
  50. #endif