Unit TreeNT

Classes

TCustomTreeNT -
TTreeNT -
TTreeNTNode -
TTreeNTNodes -

Functions

Register - ------------------------------------------------------------------------------

Types

PNodeInfo
TAddMode
THitTest
THitTests
TNodeAttachMode
TNodeInfo
TNodeState
TNodeStates
TScrollDirection
TSortType
TTreeOptions
TTVChangedEvent
TTVChangingEvent
TTVCollapsingEvent
TTVCompareEvent
TTVDesignClickEvent
TTVEditedEvent
TTVEditingEvent
TTVExpandedEvent
TTVExpandingEvent
TTVHintEvent
TTVItemPaintEvent
TTVPaintEvent
TTVSingleExpandingEvent

Constants

Variables


Functions


procedure Register;

------------------------------------------------------------------------------

Types


PNodeInfo = ^TNodeInfo

TAddMode        = (taAddFirst,taAdd,taInsert);

THitTest     = (htAbove, htBelow, htNowhere, htOnItem, htOnButton, htOnIcon,
                  htOnIndent, htOnLabel, htOnRight, htOnStateIcon, htToLeft, htToRight);

THitTests    = set of THitTest

TNodeAttachMode = (naAdd,naAddFirst,naAddChild,naAddChildFirst,naInsert);

TNodeInfo = record
ImageIndex : Integer;
SelectedIndex : Integer;
StateIndex : Integer;
OverlayIndex : Integer;
Checked : Boolean;
Data : Pointer;
Count : Integer;
Color : TColor;
ParentColor : Boolean;
ParentFont : Boolean;
FontData : TFontData;
FontColor : TColor;
Text : String[255];
end;

TNodeState      = (nsChecked,nsCut,nsDisabled,nsDropHilited,nsExpanded,
                     nsExpandedOnce,nsFocused,nsGrayed,nsHot,nsIndeterminate,
                     nsMarked,nsSelected);

TNodeStates     = set of TNodeState

TScrollDirection = set of (sdLeft,sdUp,sdRight,sdDown)

TSortType = (stNone, stData, stText, stBoth);

TTreeOptions = set of (toCheckBoxes,toFullRowSelect,toHideSelection,toHotTrack,
                         toInfoTip,toNoScroll,toReadOnly,toToolTips,toShowButtons,
                         toShowLines,toShowRoot,toSingleExpand,toWantReturn)

TTVChangedEvent    = procedure(Sender: TObject; Node: TTreeNTNode) of object

TTVChangingEvent   = procedure(Sender: TObject; Node: TTreeNTNode; var AllowChange: Boolean) of object

TTVCollapsingEvent = procedure(Sender: TObject; Node: TTreeNTNode; var AllowCollapse: Boolean) of object

TTVCompareEvent    = procedure(Sender: TObject; Node1,Node2: TTreeNTNode; Data: Integer; var Compare: Integer) of object

TTVDesignClickEvent = procedure(Sender: TObject; Node: TTreeNTNode; var AllowSelect: Boolean) of object

TTVEditedEvent     = procedure(Sender: TObject; Node: TTreeNTNode; var S: String) of object

TTVEditingEvent    = procedure(Sender: TObject; Node: TTreeNTNode; var AllowEdit: Boolean) of object

TTVExpandedEvent   = procedure(Sender: TObject; Node: TTreeNTNode) of object

TTVExpandingEvent  = procedure(Sender: TObject; Node: TTreeNTNode; var AllowExpansion: Boolean) of object

TTVHintEvent       = function(Sender: TObject; Node: TTreeNTNode): String of object

TTVItemPaintEvent  = procedure(Sender: TObject; Node: TTreeNTNode; Canvas: TCanvas; ItemRect: TRect; NodeStates: TNodeStates) of object

TTVPaintEvent      = procedure(Sender: TObject; Canvas: TCanvas) of object

TTVSingleExpandingEvent = procedure(Sender: TObject; Node: TTreeNTNode; var AutoCollapse: Boolean) of object

Constants


Variables