Gorilla.Context.GLES.Windows

Unit Gorilla.Context.GLES.Windows.pas

Classes

TCustomContextWindows = class ( TCustomContextOpenGL )
TContextOpenGLWindows = class ( TCustomContextWindows )

Constants

const SCannotCreateRenderBuffers : string = "error: cannot create render buffers %%s";
const SCannotBeginRenderingScene : string = "error: cannot begin rendering scene %%s";

Functions / Procedures

public procedure RegisterContextClasses ( ) ;
public procedure UnregisterContextClasses ( ) ;

TCustomContextWindows

Ancestors

-TCustomContextOpenGL

-TInterfacedPersistent

Members

Fields

protected FContexts : TThreadList<Gorilla.Context.GLES.Windows.TCustomContextWindows>
protected FSharedContext : TCustomContextWindows
protected FWindowHandle : TWindowHandle
protected FShutdown : Boolean
protected FHWND : NativeUInt
protected FHDC : HDC
protected FContext : NativeUInt

Methods

public constructor Create ( ) ;
public destructor Destroy ( ) ;
protected procedure CreateSharedContext ( ) ; class override;
protected procedure DestroySharedContext ( ) ; class override;
protected function GetSharedContext ( ) : NativeUInt ; class;
protected procedure AddSharedContext ( const pContext : TCustomContextWindows ) ; class;
protected procedure RemoveSharedContext ( const pContext : TCustomContextWindows ) ; class;
protected procedure ClearSharedContexts ( ) ; class;
protected procedure DoCreateBuffer ( ) ; override;
protected procedure DoSetScissorRect ( const ScissorRect : TRect ) ; override;
protected procedure MakeCurrentContext ( ) ;
protected procedure FlushBuffer ( ) ;
public procedure SetWindowHandle ( const pHandle : TWindowHandle ) ; class;
public function IsContextAvailable ( ) : Boolean ; class override;
public function GetShaderArch ( ) : TContextShaderArch ; class override;
public function MaxLightCount ( ) : Integer ; class override;
public function Style ( ) : TContextStyles ; class override;
public function Valid ( ) : Boolean ; class override;
public function CompileShader ( AType : Integer; const ACode : TContextShaderCode ) : string ; class virtual;

TContextOpenGLWindows

Ancestors

-TCustomContextWindows

-TCustomContextOpenGL

-TInterfacedPersistent

Members

Methods

public constructor CreateFromWindow ( const AParent : TWindowHandle; const AWidth : Integer; const AHeight : Integer; const AMultisample : TMultisample; const ADepthStencil : Boolean ) ;
public constructor CreateFromTexture ( const ATexture : TTexture; const AMultisample : TMultisample; const ADepthStencil : Boolean ) ;
protected procedure SetCurrentContext ( ) ;
protected procedure DoCreateBuffer ( ) ; override;
protected procedure DoResize ( ) ; override;
protected procedure DoFreeBuffer ( ) ; override;
protected procedure DoCopyToBits ( const Bits : Pointer; const Pitch : Integer; const ARect : TRect ) ; override;
protected function DoBeginScene ( ) : Boolean ; override;
protected procedure DoEndScene ( ) ; override;
public function Valid ( ) : Boolean ; class override;