Unit INITree

****************************************************** ****************************************************** Project: Delphi Initialization Database Author: JBD E-mail: binel@alf.tel.hr Comment: Component TDBTreeView. Used in INIDsgnF unit ******************************************************

Classes

TClipboardNodeComponent -
TDBTreeView -
TDragNodeControl -
TDragNodeControlObject -
TExtTreeNode -
TListDistributor -
TListDistributorProperty -
TListOfListDistributors -
TNodeObject -
TSelections -
TSimpleListDistributor -

Functions

GetClipboardNodeComponent -
GetNodeID -
GetNodeLevel -
GetNodeParent -
InsertAndFreeClipboardNodeComponent -
IsAvailableClipboardParam -
NodeHasInformation -
NodeIsExpanded -

Types

TEventOnBeforePopup
TEventOnCustomizeList
TEventOnDragDrop
TEventOnDragOver
TEventOnEdited
TEventOnEnableVerb
TEventOnExecuteVerb
TEventOnGetNodeImageIndex
TEventOnGetNodeText
TEventOnPaste

Constants

CDefFieldDelim
CDefParamDelim
CIDDelim
CMacroChar
CPathDelim
CPlusDragCursorIndex
CPName
WMU_DELETENODE
WMU_SCROLL

Variables


Functions


function GetClipboardNodeComponent(AOwner,AParent:TComponent):TClipboardNodeComponent;


function GetNodeID(Node:TTreeNode):string;


function GetNodeLevel(Node:TTreeNode):Integer;


function GetNodeParent(Node:TTreeNode;bLevel:Integer):TTreeNode;


procedure InsertAndFreeClipboardNodeComponent(ClipboardNodeComponent:TClipboardNodeComponent);


function IsAvailableClipboardParam(const ParamName:string):Boolean;


function NodeHasInformation(Node:TTreeNode):Boolean;


function NodeIsExpanded(Node:TTreeNode):Boolean;


Types


TEventOnBeforePopup=procedure(Sender:TObject;PopupNode:TTreeNode;const PopupParam:string) of object

TEventOnCustomizeList=procedure(Sender:TObject;Node:TTreeNode;List:TStringList) of object

TEventOnDragDrop=procedure(Sender:TObject;DropNode,AcceptNode:TTreeNode;const DropParamName:string) of object

TEventOnDragOver=procedure(Sender:TObject;DragNode,AcceptNode:TTreeNode;const DragParamName:string;var Accept:Boolean) of object

TEventOnEdited=procedure(Sender:TObject;EditedNode:TTreeNode;var S:string) of object

TEventOnEnableVerb=procedure(Sender:TObject;PopupNode:TTreeNode;Verb:Integer;var Enabled:Boolean) of object

TEventOnExecuteVerb=procedure(Sender:TObject;PopupNode:TTreeNode;Verb:Integer) of object

TEventOnGetNodeImageIndex=procedure(Sender:TObject;var ImageIndex:Integer) of object

TEventOnGetNodeText=procedure(Sender:TObject;var Text:string;Fields:TList) of object

TEventOnPaste=procedure(Sender:TObject;PasteToNode:TTreeNode;const PastedParam,Value,Text,Context:string) of object

Constants

CDefFieldDelim = ', '

CDefParamDelim = ','

CIDDelim = ','

CMacroChar = '@'

CPathDelim = '\'

CPlusDragCursorIndex = 10

CPName = 'LEVEL%d'

WMU_DELETENODE = WM_USER+1

WMU_SCROLL = WM_USER+2


Variables