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;