Class TSceneTree (unit GLTree)

Inherits from

TAbstractSceneTree

Constructors


CONSTRUCTOR Create(AOwner: TComponent);

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


Functions

DESTRUCTOR Destroy;

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

PROCEDURE Loaded;

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

PROCEDURE AddNewNode(AParent: TComposite; AChild: TSceneObject);

------------------------------------------------------------------------------ {:Adds or inserts a newly inserted scene object ('AChild') into the tree hierarchy below 'AParent'.

PROCEDURE AddNodes(ANode: TTreeNode; AObject: TSceneObject);

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

FUNCTION CanEdit(Node: TTreeNode): Boolean;

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

PROCEDURE ContextMenuPopup(Sender: TObject);

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

PROCEDURE CreateWnd;

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

PROCEDURE DragDrop(Source: TObject; X, Y: Integer);

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

PROCEDURE DragOver(Source: TObject; X, Y: Integer; State: TDragState; VAR Accept: Boolean);

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

PROCEDURE Edit(CONST Item: TTVItem);

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

FUNCTION GetNodeFromObject(AObject: TSceneObject): TTreeNode;

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

PROCEDURE Notification(AComponent: TComponent; Operation: TOperation);

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

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

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

PROCEDURE ReadScene;

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

PROCEDURE ResetTree;

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

PROCEDURE WndProc(VAR Message: TMessage);

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

PROCEDURE AddCameraClick(Sender: TObject);

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

PROCEDURE AddLightsourceClick(Sender: TObject);

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

PROCEDURE AddObjectClick(Sender: TObject);

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

PROCEDURE CMDesignHitTest(VAR Message: TCMDesignHitTest);

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

PROCEDURE CreateMenu;

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

PROCEDURE DeleteObjectClick(Sender: TObject);

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

FUNCTION GetNodeFromItem(CONST Item: TTVItem): TTreeNode;

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

PROCEDURE SetScene(AScene: TGLScene);

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

PROCEDURE WMLButtonDown(VAR Message: TWMLButtonDown);

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

PROCEDURE WMRButtonDown(VAR Message: TWMRButtonDown);

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

Properties

property Scene : TGLScene


property Visible :


property Designer : TFormDesigner


property Items :


Events

Variables

AddCameraMenuItem : TMenuItem;


AddLightsourceMenuItem : TMenuItem;


AddObjectMenuItem : TMenuItem;


CameraNode : TTreeNode;


DelObjectMenuItem : TMenuItem;


FDesigner : TFormDesigner;


FGLScene : TGLScene;


FRMouseDown : Boolean;


LightsourceNode : TTreeNode;


ObjectNode : TTreeNode;


StockObjectNode : TTreeNode;



Constructors


CONSTRUCTOR Create(AOwner: TComponent);

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


Functions


DESTRUCTOR Destroy;

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


PROCEDURE Loaded;

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


PROCEDURE AddNewNode(AParent: TComposite; AChild: TSceneObject);

------------------------------------------------------------------------------ {:Adds or inserts a newly inserted scene object ('AChild') into the tree hierarchy below 'AParent'.


PROCEDURE AddNodes(ANode: TTreeNode; AObject: TSceneObject);

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


FUNCTION CanEdit(Node: TTreeNode): Boolean;

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


PROCEDURE ContextMenuPopup(Sender: TObject);

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


PROCEDURE CreateWnd;

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


PROCEDURE DragDrop(Source: TObject; X, Y: Integer);

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


PROCEDURE DragOver(Source: TObject; X, Y: Integer; State: TDragState; VAR Accept: Boolean);

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


PROCEDURE Edit(CONST Item: TTVItem);

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


FUNCTION GetNodeFromObject(AObject: TSceneObject): TTreeNode;

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


PROCEDURE Notification(AComponent: TComponent; Operation: TOperation);

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


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

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


PROCEDURE ReadScene;

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


PROCEDURE ResetTree;

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


PROCEDURE WndProc(VAR Message: TMessage);

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


PROCEDURE AddCameraClick(Sender: TObject);

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


PROCEDURE AddLightsourceClick(Sender: TObject);

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


PROCEDURE AddObjectClick(Sender: TObject);

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


PROCEDURE CMDesignHitTest(VAR Message: TCMDesignHitTest);

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


PROCEDURE CreateMenu;

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


PROCEDURE DeleteObjectClick(Sender: TObject);

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


FUNCTION GetNodeFromItem(CONST Item: TTVItem): TTreeNode;

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


PROCEDURE SetScene(AScene: TGLScene);

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


PROCEDURE WMLButtonDown(VAR Message: TWMLButtonDown);

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


PROCEDURE WMRButtonDown(VAR Message: TWMRButtonDown);

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


Properties


property Scene : TGLScene


property Visible :


property Designer : TFormDesigner


property Items :


Events


Variables


AddCameraMenuItem : TMenuItem;


AddLightsourceMenuItem : TMenuItem;


AddObjectMenuItem : TMenuItem;


CameraNode : TTreeNode;


DelObjectMenuItem : TMenuItem;


FDesigner : TFormDesigner;


FGLScene : TGLScene;


FRMouseDown : Boolean;


LightsourceNode : TTreeNode;


ObjectNode : TTreeNode;


StockObjectNode : TTreeNode;