Home Explore Help
Sign In
Delphi
/
GLScene
mirror of https://github.com/glscene/GLScene
2
0
Fork 0
Files Issues 0 Wiki
Branch: master
Branches Tags
GLScene
/
Examples
/
Demox
/
Cube
/
fcCube.h

fcCube.h 2.1 KB
Permalink History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960 
  1. //---------------------------------------------------------------------------
    2. 

  2. 

  3. #ifndef fcCubeH
    4. 

  4. #define fcCubeH
    5. 

  5. //---------------------------------------------------------------------------
    6. 

  6. #include <System.Classes.hpp>
    7. 

  7. #include <FMX.Controls.hpp>
    8. 

  8. #include <FMX.Forms.hpp>
    9. 

  9. #include <FMX.Ani.hpp>
    10. 

  10. #include <FMX.Controls.Presentation.hpp>
    11. 

  11. #include <FMX.Controls3D.hpp>
    12. 

  12. #include <FMX.Layouts.hpp>
    13. 

  13. #include <FMX.MaterialSources.hpp>
    14. 

  14. #include <FMX.Objects.hpp>
    15. 

  15. #include <FMX.Objects3D.hpp>
    16. 

  16. #include <FMX.StdCtrls.hpp>
    17. 

  17. #include <FMX.Types.hpp>
    18. 

  18. #include <FMX.Types3D.hpp>
    19. 

  19. #include <FMX.Viewport3D.hpp>
    20. 

  20. #include <System.Math.Vectors.hpp>
    21. 

  21. #include "GBE.CubeExtend.hpp"
    22. 

  22. //---------------------------------------------------------------------------
    23. 

  23. class TFormCube : public TForm
    24. 

  24. {
    25. 

  25. __published:	// IDE-managed Components
    26. 

  26. 	TViewport3D *Viewport3D1;
    27. 

  27. 	TLight *Light1;
    28. 

  28. 	TLight *Light2;
    29. 

  29. 	TLight *Light3;
    30. 

  30. 	TGBECubeExtend *GBECubeExtend1;
    31. 

  31. 	TFloatAnimation *FloatAnimation1;
    32. 

  32. 	TLayout *Layout1;
    33. 

  33. 	TRectangle *Rectangle1;
    34. 

  34. 	TCheckBox *CheckBoxFront;
    35. 

  35. 	TCheckBox *CheckBoxRight;
    36. 

  36. 	TCheckBox *CheckBoxBack;
    37. 

  37. 	TCheckBox *CheckBoxLeft;
    38. 

  38. 	TCheckBox *CheckBoxTop;
    39. 

  39. 	TCheckBox *CheckBoxBottom;
    40. 

  40. 	TLightMaterialSource *LightMaterialSource1;
    41. 

  41. 	TLightMaterialSource *LightMaterialSource2;
    42. 

  42. 	TLightMaterialSource *LightMaterialSource3;
    43. 

  43. 	TLightMaterialSource *LightMaterialSource4;
    44. 

  44. 	TLightMaterialSource *LightMaterialSource5;
    45. 

  45. 	TLightMaterialSource *LightMaterialSource6;
    46. 

  46. 	void __fastcall CheckBoxFrontChange(TObject *Sender);
    47. 

  47. 	void __fastcall CheckBoxRightChange(TObject *Sender);
    48. 

  48. 	void __fastcall CheckBoxBackChange(TObject *Sender);
    49. 

  49. 	void __fastcall CheckBoxLeftChange(TObject *Sender);
    50. 

  50. 	void __fastcall CheckBoxBottomChange(TObject *Sender);
    51. 

  51. 	void __fastcall FloatAnimation1Process(TObject *Sender);
    52. 

  52. 	void __fastcall CheckBoxTopChange(TObject *Sender);
    53. 

  53. private:	// User declarations
    54. 

  54. public:		// User declarations
    55. 

  55. 	__fastcall TFormCube(TComponent* Owner);
    56. 

  56. };
    57. 

  57. //---------------------------------------------------------------------------
    58. 

  58. extern PACKAGE TFormCube *FormCube;
    59. 

  59. //---------------------------------------------------------------------------
    60. 

  60. #endif
    61.