Home Explore Help
Sign In
Delphi
/
GLScene
mirror of https://github.com/glscene/GLScene
2
0
Fork 0
Files Issues 0 Wiki
Tree: v1.9
Branches Tags
GLScene
/
Demos
/
CPP
/
bench
/
canvas
/
Unit1.h

Unit1.h 1.9 KB
Permalink History Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162 
  1. //---------------------------------------------------------------------------
    2. 

  2. 

  3. #ifndef Unit1H
    4. 

  4. #define Unit1H
    5. 

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

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

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

  8. #include <Vcl.StdCtrls.hpp>
    9. 

  9. #include <Vcl.Forms.hpp>
    10. 

  10. #include <Vcl.ExtCtrls.hpp>
    11. 

  11. #include <Vcl.Graphics.hpp>
    12. 

  12. 

  13. #include "GLCoordinates.hpp"
    14. 

  14. #include "GLCrossPlatform.hpp"
    15. 

  15. #include "GLScene.hpp"
    16. 

  16. #include "GLWin32Viewer.hpp"
    17. 

  17. #include "GLCanvas.hpp"
    18. 

  18. #include "GLRenderContextInfo.hpp"
    19. 

  19. #include "GLBitmapFont.hpp"
    20. 

  20. #include "GLWindowsFont.hpp"
    21. 

  21. #include "GLBaseClasses.hpp"
    22. 

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

  23. class TForm1 : public TForm
    24. 

  24. {
    25. 

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

  26. 	TBevel *Bevel1;
    27. 

  27. 	TGLSceneViewer *GLSceneViewer;
    28. 

  28. 	TGLScene *GLScene1;
    29. 

  29. 	TGLDirectOpenGL *GLDirectOpenGL1;
    30. 

  30. 	TGLCamera *GLCamera1;
    31. 

  31. 	TGLWindowsBitmapFont *WindowsBitmapFont;
    32. 

  32. 	TPanel *Panel1;
    33. 

  33. 	TButton *BULines;
    34. 

  34. 	TButton *BUEllipses;
    35. 

  35. 	TButton *BURects;
    36. 

  36. 	TButton *BUArc;
    37. 

  37. 	TButton *BUPoints;
    38. 

  38. 	TButton *BUTextOut;
    39. 

  39. 	TRadioButton *RBPenWidth1;
    40. 

  40. 	TRadioButton *RBPenWidth2;
    41. 

  41. 	TLabel *LAGLCanvas;
    42. 

  42. 	TLabel *LAGDI;
    43. 

  43. 	TPaintBox *PaintBox;
    44. 

  44. 	void __fastcall BULinesClick(TObject *Sender);
    45. 

  45. 	void __fastcall BUEllipsesClick(TObject *Sender);
    46. 

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

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

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

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

  50. 	void __fastcall GLDirectOpenGL1Render(TObject *Sender, TGLRenderContextInfo &rci);
    51. 

  51. 

  52. private:	// User declarations
    53. 

  53. 	void PaintTheBox();
    54. 

  54. 	void Bench();
    55. 

  55. 

  56. public:		// User declarations
    57. 

  57. 	__fastcall TForm1(TComponent* Owner);
    58. 

  58. };
    59. 

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

  60. extern PACKAGE TForm1 *Form1;
    61. 

  61. //---------------------------------------------------------------------------
    62. 

  62. #endif
    63.