Class TGLScene (unit GLScene) |
Inherits from
TCustomControl
CONSTRUCTOR Create(AOwner: TComponent);
- ------------------------------------------------------------------------------
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);
------------------------------------------------------------------------------
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
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;
CONSTRUCTOR Create(AOwner: TComponent);
------------------------------------------------------------------------------
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);
------------------------------------------------------------------------------
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
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;