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 |
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 |