1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

TGLOutBox = class(TWinControl) 
   [...]
  public
   property  Initialized:Boolean read FInitialized; // Is there an RC present?... Test to see if you can make calls to OGL functions
   function  Activate:Boolean; // If you're using multible Boxes and you're rendering outside the OnRender Event, use this to activate specific RCs (returns true if success)
   procedure Deactivate; // Might be used to block rendering, but no real need to call it
   procedure BeginFormatChange; // If you want to make several changes to Buffers (ColorDepth,Z,etc) at once, this will temporally block the recreation of the window
   procedure EndFormatChange;
   procedure Clear; // Clears the screen with ClearColor (see also 'AutoClear')
   procedure Swap;  // Swaps Front- and Backbuffer (for rendering outside of 'OnRender')
   function  ExtensionSupported(const Extension:String):Boolean; //Test if an arbitrary extension is found in GL- or WGL extensions
   constructor Create(AOwner: TComponent); override;
   destructor  Destroy; override;
  published
   property Align;
   property Anchors;
   property Cursor;
   property Visible;
   property Ctl3D;
   property ClearColor:TColor read FClearColor write SetClearColor default clBlack; // Assign a TColor to glClearColor
   property DrawColor:TColor read FDrawColor write SetDrawColor default clWhite; // Assign a TColor to glColor3ubv (!fast!)
   property GLDoubleBuffered:Boolean read FDoubleBuffered write SetGLDoubleBuffered default True; // !!Change destroys RC (therefore also textures and settings)!!
   property GLAntialiasing:Boolean read FAntiAliasing write SetAntiAliasing default False; // => GL_POINT_SMOOTH/GL_LINE_SMOOTH/GL_POLYGON_SMOOTH
   property GLColorDepth:byte read CurrPFD.cColorBits write SetColorDepth default 32; // !!Change destroys RC!!
   property GLZBuffer:byte read CurrPFD.cDepthBits write SetZBuffer default 24; // !!Change destroys RC!! ("0" automaticalls sets GL_DEPTH_TEST disabled, else it is enabled with GL_LEQUAL set) (!!some combinations with DoubleBuffered and ColorDepth are invalid on many systems!!)
   property GLStencilBuffer:byte read CurrPFD.cStencilBits write SetStencilBuffer default 0; // !!Change destroys RC!! (!! 32Bit ZBuffer actually means 24Bit ZBuffer + 8Bit StencilBuffer!!)
   property HwAcceleration:Boolean read GetAcceleration; // Is there hardware acceleration available?
   property AutoClear:Boolean read FAutoClear write FAutoClear default True; // If True, 'Clear' is called before 'OnRender'
   property GLVSync:Boolean read FVSync write SetVSync default True; // Not necessarily available on all Systems
   property GLPerspViewAngle:Double read FViewAngle write SetViewAngle; // The angle of view from the eye position (for an undistorted view use 45°, might be used for zooming though')
   property GLClipFar:Double read FClipFar write SetClipFar; //Nothing beyond this distance from the camera will be rendered (!!very high values mess with your ZBuffer precision!!)
   property GLClipNear:Double read FClipNear write SetClipNear; //Nothing closer to the camera will be rendered (!!very small values mess with your ZBuffer precision!!)
   property GLBackCulling:Boolean read FCullFace write SetCulling default False; // Skip faces (polys) which face away from the camera (can speed up the rendering of closed shapes)
   property OnResize; // The perspective is automatically kept, so there is no real need to use this (see also: 'OnProjMatrixNeeded')
   property OnRender:TMethodCall read FOnRender write FOnRender; // Best put all your rendering code in here and then just use 'invalidate' (automatically locks drawing area, activates RC, clears screen, renders, flushes and swaps - everything within a try..finally block)
   property OnInitialize:TMethodCall read FOnInitialize write FOnInitialize; // Is always called after a new RC is created (initiate camera position or load textures here, as it won't work under 'Form.Create')
   property OnProjMatrixNeeded:TMethodCall read FOnProjMatrixNeeded write FOnProjMatrixNeeded; // If this is defined, ViewAngle/ClipNear/ClipFar are ignored and this is called instead after creation/resize (glViewPort is still called though)
 end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

TGLBitmapFont = class(TComponent)
  [...] 
  public
   procedure BeginWrite3D(ZBufferIgnore:Boolean = False); // You must call this before printing into 3D-space (if parameter is false, text may be covered by closer objects in 3D-space)
   procedure EndWrite3D;                                  // Call this after printing into 3D-space
   procedure BeginWrite2D; // You must call this before printing onto the Screen (Coordinates will be mapped to Pixels with lower left as 0,0 - on a TGL2DOutBox you may also call BeginWrite3D for the same effect)
   procedure EndWrite2D;   // Call this after printing onto the Screen
   procedure TextOut(const AText:String; X,Y,Z:Single); // Print a text (coordinate will be the lower left corner of the text)
   constructor Create(AOwner:TComponent); override;
   constructor CreateRunTime(const GLWindow:TGLOutBox; const Font:TFontName; Size:Byte; Bold,Italic,Underlined:Boolean); //pretty self-explanatory (don't forget to call Free when no longer needed)
   destructor  Destroy; override;
  published
   property OutputComponent:TGLOutBox read FOutputComponent write FOutputComponent; // If not specified, the first TGLOutBox created will be used
   property Font:TFontName read FFont write FFont;                  // -|
   property Size:Byte read FSize write FSize;                       //  |
   property XBold:Boolean read FBold write FBold;                   //  |> These can only be modified at DesignTime!! Every BitmapFont can hold only one font - use multiple BitmapFonts if required
   property XItalic:Boolean read FItalic write FItalic;             //  |
   property XUnderlined:Boolean read FUnderlined write FUnderlined; // -|
 end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

TGLTextureLoader = class(TComponent)
  [...]
  public                                             
   function LoadFromFile(const Source:String):Cardinal;
   function LoadFromScreen(X,Y,Width,Height:Integer):Cardinal;
   function GeneratePlainRGB(Width,Height:Integer):Cardinal;
   function GeneratePlainRGBA(Width,Height:Integer):Cardinal;
   procedure CopyScreen(X,Y,Width,Height:Integer; RGBDest:Cardinal);
   procedure SetPriority(Tex:Cardinal; NewPriority:Single);
   procedure Unload(Tex:Cardinal);
   constructor Create(AOwner:TComponent); override;
   destructor  Destroy; override;
  published
   property TextureFilter:TTexFilterType read FFilter write SetFilter default tfBilinear;
   property BuildMipMaps:Boolean read FMipMap write SetMipMap default False;
   property Tiling:Boolean read FTiling write FTiling default True;
   property MemPriority:Single read FPriority write FPriority;
 end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure glRectangle(const Client:T2DBox; Opaque:Boolean=False);
 procedure glPolygon(const Client:TPolygon; Opaque:Boolean=False);
 procedure glLine(const AStart,AEnd:TVector2f); overload;
 procedure glLine(const ALine:TLineSegment); overload;
 procedure glArrow(const AStart,AEnd:TVector2f; HeadSize:Single);
 procedure glPoint(const Destination:TVector2f; Size:Single);
 procedure glCircle(const Center:TVector2f; Radius:Single; Opaque:Boolean=False); overload;
 procedure glCircle(const ACircle:T2DCircle; Opaque:Boolean=False); overload;
 procedure glCircle64(const ACircle:T2DCircle; Opaque:Boolean=False);
 procedure glCircle32(const ACircle:T2DCircle; Opaque:Boolean=False);