Class TDBTreeView (unit INITree)
Inherits from
TTreeView
Constructors
constructor Create(AOwner:TComponent);
Functions
procedure Add(LD:TListDistributor);
procedure Copy(Node:TTreeNode);
function CopyNodeWithData(SourceNode,ParentNode:TTreeNode):TTreeNode;
procedure DeleteAll;
procedure DeleteNode(Node:TTreeNode);
procedure DeleteNodeWithData(Node:TTreeNode);
destructor Destroy;
procedure EditNode(Node:TTreeNode);
procedure ExpandAll(Node:TTreeNode);
function ExpandIfNotExpanded(Node:TTreeNode):Boolean;
procedure FocusNode(Node:TTreeNode);
function GoToPath(const fPath:string):Boolean;
procedure Init(Restructure:Boolean);
procedure JustCollapse(Node:TTreeNode);
procedure JustExpand(Node:TTreeNode);
procedure MakeDirty(Node:TTreeNode);
function MakeNodeWithData(const Text:string;NO:TNodeObject;ParentNode:TTreeNode;Child:Boolean):TTreeNode;
procedure MoveAsChild(Node,ToNode:TTreeNode);
function OpenChildNode(const NodeText:string):Boolean;
procedure OpenPopup(X,Y:Integer;Node:TTreeNode);
procedure Paste(Node:TTreeNode);
procedure PreparePopup(Node:TTreeNode);
procedure RefreshNode(Node:TTreeNode);
procedure RestoreLevel(Node:TTreeNode);
procedure RestoreNode(Node:TTreeNode);
function AlwaysExpand(Node:TTreeNode):Boolean;
procedure BeginScroll(Direction:Integer);
function CanCollapse(Node:TTreeNode):Boolean;
function CanEdit(Node:TTreeNode):Boolean;
function CanExpand(Node:TTreeNode):Boolean;
procedure Change(Node:TTreeNode);
procedure CheckExpandWhileDragging(X,Y:Integer);
procedure Collapse(Node:TTreeNode);
function CreateLDList:Boolean;
procedure DoExit;
procedure DoOpenPopup(X,Y:Integer);
procedure DoStartDrag(var DragObject:TDragObject);
procedure DragDrop(Source:TObject;X,Y:Integer);
procedure DragOver(Source:TObject;X,Y:Integer;State:TDragState;var Accept:Boolean);
procedure Edit(const Item:TTVItem);
procedure EndScroll;
procedure Expand(Node:TTreeNode);
function FullPath(Node:TTreeNode;const strDelim:string):string;
function FullSelectedPath:string;
function GetCurrentLD:TListDistributor;
function GetCurrentParam:string;
function GetDragImages:TCustomImageList;
function GetFineHint(Node:TTreeNode):string;
function GetLD(level:Integer):TListDistributor;
function GetPathOfNode(Node:TTreeNode):string;
function GetSelection(Node:TTreeNode;level,pN:Integer):string;
function GetSelectionByName(Node:TTreeNode;const pName:string):string;
function GetSelections(Node:TTreeNode):TSelections;
procedure KeyDown(var Key:Word;Shift:TShiftState);
procedure Loaded;
procedure MouseDown(Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
procedure MouseMove(Shift:TShiftState;X,Y:Integer);
procedure MouseUp(Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
procedure Notification(AComponent:TComponent;Operation:TOperation);
procedure OnIdle(Sender:TObject;var Done:Boolean);
procedure OnPopupItemClick(Sender:TObject);
procedure UpdateHint(Node:TTreeNode;var Msg:TMessage);
procedure WMDeleteNode(var Msg:TMessage);
procedure WMMouseMove(var Msg:TWMMouseMove);
procedure WMScrollTree(var Msg:TMessage);
procedure BeginUpdate;
procedure EndUpdate;
function FillList(level:Integer;Node:TTreeNode):LongInt;
function GetInitialized:Boolean;
function GetKeyDownNode:TTreeNode;
function GetLastLevel:Integer;
function GetPopupNode:TTreeNode;
procedure RemoveExtraMenuItems;
procedure SetFirstLevel(LD:TListDistributor);
procedure SetHasChildren(Node:TTreeNode;Child:Boolean);
procedure SetScrollSpeed(sSpeed:LongInt);
Properties
property AlwaysRebuild : Boolean
property ControlDragDrop : Boolean
property EnableDragScroll : Boolean
property FirstLevel : TListDistributor
property PathDelimiter : string
property CtrlPressed : Boolean
property CurrentLD : TListDistributor
property CurrentParam : string
property Editing : Boolean
property ExpandingNode : TTreeNode
property Initialized : Boolean
property KeyDownNode : TTreeNode
property LastLevel : Integer
property LD : TListDistributor
property Path : string
property PathOfNode : string
property PopupNode : TTreeNode
property PopupParam : string
property ScrollSpeed : LongInt
property Selection : string
property SelectionByName : string
property Lists : TListOfListDistributors
Events
event OnBeforePopup : TEventOnBeforePopup
Variables
FAlwaysExpand : Boolean;
FAlwaysRebuild : Boolean;
FCanceled : Boolean;
FCollapsing : Boolean;
FControlDragDrop : Boolean;
FCtrlPressed : Boolean;
FDeletingNode : TTreeNode;
FDeltaY : Integer;
FDontBuild : Boolean;
FDownTime : LongInt;
FDownX : Integer;
FDownY : Integer;
FDragNodeControl : TDragNodeControl;
FEnableDragScroll : Boolean;
FExpandingNode : TTreeNode;
FFirstLevel : TListDistributor;
FInEditing : Boolean;
FInSetHasChildren : Boolean;
FKeyDownNode : TTreeNode;
FListDistributors : TListOfListDistributors;
FLoadedMenuItems : Integer;
FMouseDown : Boolean;
FOnBeforePopup : TEventOnBeforePopup;
FPathDelimiter : string;
FPopupLD : TListDistributor;
FPopupNode : TTreeNode;
FPopupParam : string;
FScrollBegin : LongInt;
FScrollingOn : Boolean;
FScrollSpeed : LongInt;
FStructureChanged : Boolean;
FUpdating : Integer;
Constructors
constructor Create(AOwner:TComponent);
Functions
procedure Add(LD:TListDistributor);
procedure Copy(Node:TTreeNode);
function CopyNodeWithData(SourceNode,ParentNode:TTreeNode):TTreeNode;
procedure DeleteAll;
procedure DeleteNode(Node:TTreeNode);
procedure DeleteNodeWithData(Node:TTreeNode);
destructor Destroy;
procedure EditNode(Node:TTreeNode);
procedure ExpandAll(Node:TTreeNode);
function ExpandIfNotExpanded(Node:TTreeNode):Boolean;
procedure FocusNode(Node:TTreeNode);
function GoToPath(const fPath:string):Boolean;
procedure Init(Restructure:Boolean);
procedure JustCollapse(Node:TTreeNode);
procedure JustExpand(Node:TTreeNode);
procedure MakeDirty(Node:TTreeNode);
function MakeNodeWithData(const Text:string;NO:TNodeObject;ParentNode:TTreeNode;Child:Boolean):TTreeNode;
procedure MoveAsChild(Node,ToNode:TTreeNode);
function OpenChildNode(const NodeText:string):Boolean;
procedure OpenPopup(X,Y:Integer;Node:TTreeNode);
procedure Paste(Node:TTreeNode);
procedure PreparePopup(Node:TTreeNode);
procedure RefreshNode(Node:TTreeNode);
procedure RestoreLevel(Node:TTreeNode);
procedure RestoreNode(Node:TTreeNode);
function AlwaysExpand(Node:TTreeNode):Boolean;
procedure BeginScroll(Direction:Integer);
function CanCollapse(Node:TTreeNode):Boolean;
function CanEdit(Node:TTreeNode):Boolean;
function CanExpand(Node:TTreeNode):Boolean;
procedure Change(Node:TTreeNode);
procedure CheckExpandWhileDragging(X,Y:Integer);
procedure Collapse(Node:TTreeNode);
function CreateLDList:Boolean;
procedure DoExit;
procedure DoOpenPopup(X,Y:Integer);
procedure DoStartDrag(var DragObject:TDragObject);
procedure DragDrop(Source:TObject;X,Y:Integer);
procedure DragOver(Source:TObject;X,Y:Integer;State:TDragState;var Accept:Boolean);
procedure Edit(const Item:TTVItem);
procedure EndScroll;
procedure Expand(Node:TTreeNode);
function FullPath(Node:TTreeNode;const strDelim:string):string;
function FullSelectedPath:string;
function GetCurrentLD:TListDistributor;
function GetCurrentParam:string;
function GetDragImages:TCustomImageList;
function GetFineHint(Node:TTreeNode):string;
function GetLD(level:Integer):TListDistributor;
function GetPathOfNode(Node:TTreeNode):string;
function GetSelection(Node:TTreeNode;level,pN:Integer):string;
function GetSelectionByName(Node:TTreeNode;const pName:string):string;
function GetSelections(Node:TTreeNode):TSelections;
procedure KeyDown(var Key:Word;Shift:TShiftState);
procedure Loaded;
procedure MouseDown(Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
procedure MouseMove(Shift:TShiftState;X,Y:Integer);
procedure MouseUp(Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
procedure Notification(AComponent:TComponent;Operation:TOperation);
procedure OnIdle(Sender:TObject;var Done:Boolean);
procedure OnPopupItemClick(Sender:TObject);
procedure UpdateHint(Node:TTreeNode;var Msg:TMessage);
procedure WMDeleteNode(var Msg:TMessage);
procedure WMMouseMove(var Msg:TWMMouseMove);
procedure WMScrollTree(var Msg:TMessage);
procedure BeginUpdate;
procedure EndUpdate;
function FillList(level:Integer;Node:TTreeNode):LongInt;
function GetInitialized:Boolean;
function GetKeyDownNode:TTreeNode;
function GetLastLevel:Integer;
function GetPopupNode:TTreeNode;
procedure RemoveExtraMenuItems;
procedure SetFirstLevel(LD:TListDistributor);
procedure SetHasChildren(Node:TTreeNode;Child:Boolean);
procedure SetScrollSpeed(sSpeed:LongInt);
Properties
property AlwaysRebuild : Boolean
property ControlDragDrop : Boolean
property EnableDragScroll : Boolean
property FirstLevel : TListDistributor
property PathDelimiter : string
property CtrlPressed : Boolean
property CurrentLD : TListDistributor
property CurrentParam : string
property Editing : Boolean
property ExpandingNode : TTreeNode
property Initialized : Boolean
property KeyDownNode : TTreeNode
property LastLevel : Integer
property LD : TListDistributor
property Path : string
property PathOfNode : string
property PopupNode : TTreeNode
property PopupParam : string
property ScrollSpeed : LongInt
property Selection : string
property SelectionByName : string
property Lists : TListOfListDistributors
Events
event OnBeforePopup : TEventOnBeforePopup
Variables
FAlwaysExpand : Boolean;
FAlwaysRebuild : Boolean;
FCanceled : Boolean;
FCollapsing : Boolean;
FControlDragDrop : Boolean;
FCtrlPressed : Boolean;
FDeletingNode : TTreeNode;
FDeltaY : Integer;
FDontBuild : Boolean;
FDownTime : LongInt;
FDownX : Integer;
FDownY : Integer;
FDragNodeControl : TDragNodeControl;
FEnableDragScroll : Boolean;
FExpandingNode : TTreeNode;
FFirstLevel : TListDistributor;
FInEditing : Boolean;
FInSetHasChildren : Boolean;
FKeyDownNode : TTreeNode;
FListDistributors : TListOfListDistributors;
FLoadedMenuItems : Integer;
FMouseDown : Boolean;
FOnBeforePopup : TEventOnBeforePopup;
FPathDelimiter : string;
FPopupLD : TListDistributor;
FPopupNode : TTreeNode;
FPopupParam : string;
FScrollBegin : LongInt;
FScrollingOn : Boolean;
FScrollSpeed : LongInt;
FStructureChanged : Boolean;
FUpdating : Integer;