| Class TGLScene (unit GLScene) |
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);
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;
FFramesPerSecond : GLFloat;
FFrontFaceWinding : TFaceWinding;
FLightChanged : Boolean;
FLighting : Boolean;
FLightSources : TComposite;
FMaxLightSources : GLInt;
FMonitoring : Boolean;
FNearClipPlane : GLFLoat;
FNotifiers : TList;
FObjectChanged : Boolean;
FObjects : TComposite;
FRenderingContext : HGLRC;
FSceneChanges : TSceneChanges;
FTicks : Longint;
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;