Unit1.h 2.4 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970
  1. //---------------------------------------------------------------------------
  2. #ifndef Unit1H
  3. #define Unit1H
  4. //---------------------------------------------------------------------------
  5. #include <Classes.hpp>
  6. #include <Controls.hpp>
  7. #include <StdCtrls.hpp>
  8. #include <ExtCtrls.hpp>
  9. #include <ExtDlgs.hpp>
  10. #include <ComCtrls.hpp>
  11. #include <Dialogs.hpp>
  12. #include <Forms.hpp>
  13. #include <Vcl.Imaging.jpeg.hpp>
  14. #include "GLS.Cadencer.hpp"
  15. #include "GLS.Objects.hpp"
  16. #include "GLS.Scene.hpp"
  17. #include "GLS.Texture.hpp"
  18. #include "GLS.SceneViewer.hpp"
  19. #include "GLS.BaseClasses.hpp"
  20. #include "GLS.Coordinates.hpp"
  21. #include "GLS.Material.hpp"
  22. #include "GLS.KeyBoard.hpp"
  23. #include "GLS.FileJPEG.hpp"
  24. #include "GLS.Utils.hpp"
  25. //---------------------------------------------------------------------------
  26. class TForm1 : public TForm
  27. {
  28. __published: // IDE-managed Components
  29. TGLSceneViewer *GLSceneViewer1;
  30. TPanel *Panel1;
  31. TLabel *LabelYaw;
  32. TLabel *LabelPitch;
  33. TLabel *Label1;
  34. TLabel *Label2;
  35. TButton *BtnLoad;
  36. TTrackBar *TrackBar1;
  37. TGLScene *GLScene1;
  38. TGLSphere *Sphere1;
  39. TGLCamera *GLCamera1;
  40. TOpenPictureDialog *OpenPictureDialog1;
  41. TGLMaterialLibrary *GLMaterialLibrary1;
  42. TGLCadencer *GLCadencer1;
  43. void __fastcall GLSceneViewer1MouseDown(TObject *Sender,
  44. TMouseButton Button, TShiftState Shift, int X, int Y);
  45. void __fastcall GLSceneViewer1MouseMove(TObject *Sender,
  46. TShiftState Shift, int X, int Y);
  47. void __fastcall BtnLoadClick(TObject *Sender);
  48. void __fastcall TrackBar1Change(TObject *Sender);
  49. void __fastcall GLCadencer1Progress(TObject *Sender,
  50. const double deltaTime, const double newTime);
  51. void __fastcall FormKeyDown(TObject *Sender, WORD &Key,
  52. TShiftState Shift);
  53. void __fastcall FormMouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta,
  54. TPoint &MousePos, bool &Handled);
  55. private: // User declarations
  56. int mx, my;
  57. float pitch, yaw; // in degree
  58. void PanCameraAround(float dx, float dy);
  59. public: // User declarations
  60. __fastcall TForm1(TComponent* Owner);
  61. };
  62. //---------------------------------------------------------------------------
  63. extern PACKAGE TForm1 *Form1;
  64. //---------------------------------------------------------------------------
  65. #endif