Class TSceneTree (unit GLTree) |
Inherits from
TAbstractSceneTree
CONSTRUCTOR Create(AOwner: TComponent);
- ------------------------------------------------------------------------------
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);
------------------------------------------------------------------------------
property Scene : TGLScene
property Visible :
property Designer : TFormDesigner
property Items :
AddCameraMenuItem : TMenuItem;
AddLightsourceMenuItem : TMenuItem;
AddObjectMenuItem : TMenuItem;
CameraNode : TTreeNode;
DelObjectMenuItem : TMenuItem;
FDesigner : TFormDesigner;
FGLScene : TGLScene;
FRMouseDown : Boolean;
LightsourceNode : TTreeNode;
ObjectNode : TTreeNode;
StockObjectNode : TTreeNode;
CONSTRUCTOR Create(AOwner: TComponent);
------------------------------------------------------------------------------
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);
------------------------------------------------------------------------------
property Scene : TGLScene
property Visible :
property Designer : TFormDesigner
property Items :
AddCameraMenuItem : TMenuItem;
AddLightsourceMenuItem : TMenuItem;
AddObjectMenuItem : TMenuItem;
CameraNode : TTreeNode;
DelObjectMenuItem : TMenuItem;
FDesigner : TFormDesigner;
FGLScene : TGLScene;
FRMouseDown : Boolean;
LightsourceNode : TTreeNode;
ObjectNode : TTreeNode;
StockObjectNode : TTreeNode;