Class TGLScene (unit GLScene)

Inherits from

TCustomControl

Constructors


CONSTRUCTOR Create(AOwner: TComponent);

------------------------------------------------------------------------------


Functions

PROCEDURE AddNotifier(ASceneTree: TAbstractSceneTree);

------------------------------------------------------------------------------

PROCEDURE BeginUpdate;

------------------------------------------------------------------------------

DESTRUCTOR Destroy;

------------------------------------------------------------------------------

PROCEDURE DrawScene;

------------------------------------------------------------------------------

PROCEDURE EndUpdate;

------------------------------------------------------------------------------

FUNCTION IsUpdating: Boolean;

------------------------------------------------------------------------------

PROCEDURE NotifyChange;

------------------------------------------------------------------------------

PROCEDURE RemoveNotifier(ASceneTree: TAbstractSceneTree);

------------------------------------------------------------------------------

PROCEDURE SetPerspective(AFOVAngle,ANearPlane,AFarPlane: GLFloat);

------------------------------------------------------------------------------

PROCEDURE SetViewPort(X,Y,W,H: Integer);

------------------------------------------------------------------------------

PROCEDURE AdjustLightSources;

------------------------------------------------------------------------------

PROCEDURE ApplyCamera;

------------------------------------------------------------------------------

PROCEDURE GetChildren(AProc: TGetChildProc);

------------------------------------------------------------------------------

FUNCTION GetDeviceContext(VAR WindowHandle: HWnd): HDC;

------------------------------------------------------------------------------

PROCEDURE Loaded;

------------------------------------------------------------------------------

PROCEDURE Note(AObject: TSceneObject; Operation: TSceneOperation);

------------------------------------------------------------------------------

PROCEDURE Paint;

------------------------------------------------------------------------------

PROCEDURE ReadContextProperties;

------------------------------------------------------------------------------

PROCEDURE RequestedState(States: TGLStates);

------------------------------------------------------------------------------

PROCEDURE SetChildOrder(AChild: TComponent; Order: Integer);

------------------------------------------------------------------------------

PROCEDURE UnnecessaryState(States: TGLStates);

------------------------------------------------------------------------------

PROCEDURE CreateParams(VAR Params: TCreateParams);

------------------------------------------------------------------------------

FUNCTION GetRenderingContext: HGLRC;

------------------------------------------------------------------------------

PROCEDURE RegisterExtensions(Extensions: STRING);

------------------ TGLScene --------------------------------------------------

PROCEDURE SetBackground(AColor: TColor);

------------------------------------------------------------------------------

PROCEDURE SetDCPixelFormat(Handle: HDC);

------------------------------------------------------------------------------

PROCEDURE SetDepthTest(AValue: Boolean);

------------------------------------------------------------------------------

PROCEDURE SetFaceCulling(AValue: Boolean);

------------------------------------------------------------------------------

PROCEDURE SetFrontFaceWinding(AValue: TFaceWinding);

------------------------------------------------------------------------------

PROCEDURE SetLighting(AValue: Boolean);

------------------------------------------------------------------------------

PROCEDURE WMEraseBkgnd(VAR Message: TWMEraseBkgnd);

------------------------------------------------------------------------------

PROCEDURE WMSize(VAR Message: TWMSize);

------------------------------------------------------------------------------

Properties

property Align :


property Background : TColor


property DepthTest : Boolean


property EnableMonitoring : Boolean


property FaceCulling : Boolean


property FarClipPlane : GLFloat


property FrontFaceWinding : TFaceWinding


property Lighting : Boolean


property NearClipPlane : GLFloat


property Buffers : TBuffers


property Cameras : TComposite


property FramesPerSecond : GLFloat


property LightSources : TComposite


property MaxLightSources : Integer


property Objects : TComposite


property RenderingContext : HGLRC


Events

Variables

FAccelerated : Boolean;


FBackground : TColor;


FBuffers : TBuffers;


FCameras : TComposite;


FCurrentStates : TGLStates;


FDepthTest : Boolean;


FDoubleBuffered : Boolean;


FFaceCulling : Boolean;


FFarClipPlane : GLFLoat;


FFOVAngle : GLFLoat;


FFrames : Longint;

private variables

FFramesPerSecond : GLFloat;


FFrontFaceWinding : TFaceWinding;


FLightChanged : Boolean;


FLighting : Boolean;


FLightSources : TComposite;


FMaxLightSources : GLInt;

OpenGL properties

FMonitoring : Boolean;


FNearClipPlane : GLFLoat;


FNotifiers : TList;


FObjectChanged : Boolean;


FObjects : TComposite;


FRenderingContext : HGLRC;

handles

FSceneChanges : TSceneChanges;

used to perform monitoring

FTicks : Longint;

used to perform monitoring

FUpdateCount : Integer;


FViewPort : TRectangle;



Constructors


CONSTRUCTOR Create(AOwner: TComponent);

------------------------------------------------------------------------------


Functions


PROCEDURE AddNotifier(ASceneTree: TAbstractSceneTree);

------------------------------------------------------------------------------


PROCEDURE BeginUpdate;

------------------------------------------------------------------------------


DESTRUCTOR Destroy;

------------------------------------------------------------------------------


PROCEDURE DrawScene;

------------------------------------------------------------------------------


PROCEDURE EndUpdate;

------------------------------------------------------------------------------


FUNCTION IsUpdating: Boolean;

------------------------------------------------------------------------------


PROCEDURE NotifyChange;

------------------------------------------------------------------------------


PROCEDURE RemoveNotifier(ASceneTree: TAbstractSceneTree);

------------------------------------------------------------------------------


PROCEDURE SetPerspective(AFOVAngle,ANearPlane,AFarPlane: GLFloat);

------------------------------------------------------------------------------


PROCEDURE SetViewPort(X,Y,W,H: Integer);

------------------------------------------------------------------------------


PROCEDURE AdjustLightSources;

------------------------------------------------------------------------------


PROCEDURE ApplyCamera;

------------------------------------------------------------------------------


PROCEDURE GetChildren(AProc: TGetChildProc);

------------------------------------------------------------------------------


FUNCTION GetDeviceContext(VAR WindowHandle: HWnd): HDC;

------------------------------------------------------------------------------


PROCEDURE Loaded;

------------------------------------------------------------------------------


PROCEDURE Note(AObject: TSceneObject; Operation: TSceneOperation);

------------------------------------------------------------------------------


PROCEDURE Paint;

------------------------------------------------------------------------------


PROCEDURE ReadContextProperties;

------------------------------------------------------------------------------


PROCEDURE RequestedState(States: TGLStates);

------------------------------------------------------------------------------


PROCEDURE SetChildOrder(AChild: TComponent; Order: Integer);

------------------------------------------------------------------------------


PROCEDURE UnnecessaryState(States: TGLStates);

------------------------------------------------------------------------------


PROCEDURE CreateParams(VAR Params: TCreateParams);

------------------------------------------------------------------------------


FUNCTION GetRenderingContext: HGLRC;

------------------------------------------------------------------------------


PROCEDURE RegisterExtensions(Extensions: STRING);

------------------ TGLScene --------------------------------------------------


PROCEDURE SetBackground(AColor: TColor);

------------------------------------------------------------------------------


PROCEDURE SetDCPixelFormat(Handle: HDC);

------------------------------------------------------------------------------


PROCEDURE SetDepthTest(AValue: Boolean);

------------------------------------------------------------------------------


PROCEDURE SetFaceCulling(AValue: Boolean);

------------------------------------------------------------------------------


PROCEDURE SetFrontFaceWinding(AValue: TFaceWinding);

------------------------------------------------------------------------------


PROCEDURE SetLighting(AValue: Boolean);

------------------------------------------------------------------------------


PROCEDURE WMEraseBkgnd(VAR Message: TWMEraseBkgnd);

------------------------------------------------------------------------------


PROCEDURE WMSize(VAR Message: TWMSize);

------------------------------------------------------------------------------


Properties


property Align :


property Background : TColor


property DepthTest : Boolean


property EnableMonitoring : Boolean


property FaceCulling : Boolean


property FarClipPlane : GLFloat


property FrontFaceWinding : TFaceWinding


property Lighting : Boolean


property NearClipPlane : GLFloat


property Buffers : TBuffers


property Cameras : TComposite


property FramesPerSecond : GLFloat


property LightSources : TComposite


property MaxLightSources : Integer


property Objects : TComposite


property RenderingContext : HGLRC


Events


Variables


FAccelerated : Boolean;


FBackground : TColor;


FBuffers : TBuffers;


FCameras : TComposite;


FCurrentStates : TGLStates;


FDepthTest : Boolean;


FDoubleBuffered : Boolean;


FFaceCulling : Boolean;


FFarClipPlane : GLFLoat;


FFOVAngle : GLFLoat;


FFrames : Longint;

private variables


FFramesPerSecond : GLFloat;


FFrontFaceWinding : TFaceWinding;


FLightChanged : Boolean;


FLighting : Boolean;


FLightSources : TComposite;


FMaxLightSources : GLInt;

OpenGL properties


FMonitoring : Boolean;


FNearClipPlane : GLFLoat;


FNotifiers : TList;


FObjectChanged : Boolean;


FObjects : TComposite;


FRenderingContext : HGLRC;

handles


FSceneChanges : TSceneChanges;

used to perform monitoring


FTicks : Longint;

used to perform monitoring


FUpdateCount : Integer;


FViewPort : TRectangle;