2
0

fToBitmapC.h 2.0 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465
  1. //---------------------------------------------------------------------------
  2. #ifndef fToBitmapCH
  3. #define fToBitmapCH
  4. //---------------------------------------------------------------------------
  5. #include <System.Classes.hpp>
  6. #include <Vcl.Controls.hpp>
  7. #include <Vcl.StdCtrls.hpp>
  8. #include <Vcl.Forms.hpp>
  9. #include <Vcl.ExtCtrls.hpp>
  10. #include "Jpeg.hpp"
  11. #include "GLS.BaseClasses.hpp"
  12. #include "GLS.Cadencer.hpp"
  13. #include "GLS.Coordinates.hpp"
  14. #include "GLS.HUDObjects.hpp"
  15. #include "GLS.Objects.hpp"
  16. #include "GLS.Scene.hpp"
  17. #include "GLS.SpaceText.hpp"
  18. #include "GLS.SceneViewer.hpp"
  19. #include "Unit2.h"
  20. //---------------------------------------------------------------------------
  21. class TForm1 : public TForm
  22. {
  23. __published: // IDE-managed Components
  24. TGLSceneViewer *GLSceneViewer1;
  25. TPanel *Panel1;
  26. TButton *BUSnapShot;
  27. TButton *BURenderToBitmap;
  28. TButton *BUBitmapx2;
  29. TButton *BUBitmap600;
  30. TButton *BUBitmap300;
  31. TButton *BUViewerSnapShot;
  32. TGLScene *GLScene1;
  33. TGLLightSource *GLLightSource1;
  34. TGLHUDSprite *HUDSprite1;
  35. TGLPlane *Plane1;
  36. TGLSpaceText *SpaceText1;
  37. TGLSphere *Sphere1;
  38. TGLDummyCube *DummyCube1;
  39. TGLCamera *GLCamera1;
  40. TGLCadencer *GLCadencer1;
  41. void __fastcall FormCreate(TObject *Sender);
  42. void __fastcall BUViewerSnapShotClick(TObject *Sender);
  43. void __fastcall BUSnapShotClick(TObject *Sender);
  44. void __fastcall BURenderToBitmapClick(TObject *Sender);
  45. void __fastcall BUBitmapx2Click(TObject *Sender);
  46. void __fastcall BUBitmap300Click(TObject *Sender);
  47. void __fastcall BUBitmap600Click(TObject *Sender);
  48. void __fastcall Sphere1Progress(TObject *Sender, const double deltaTime, const double newTime);
  49. void __fastcall FormResize(TObject *Sender);
  50. private: // User declarations
  51. void ViewBitmap(TBitmap *aBitmap, String caption);
  52. void RenderToBitmap(Single scale);
  53. public: // User declarations
  54. __fastcall TForm1(TComponent* Owner);
  55. };
  56. //---------------------------------------------------------------------------
  57. extern PACKAGE TForm1 *Form1;
  58. //---------------------------------------------------------------------------
  59. #endif