| Class TSceneTree (unit GLTree) |
| Constructors |
CONSTRUCTOR Create(AOwner: TComponent);| Functions |
DESTRUCTOR Destroy;
PROCEDURE Loaded;
PROCEDURE AddNewNode(AParent: TComposite; AChild: TSceneObject);
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;