Unit MSTreeView |
------------------------------------------------------------------------------ MSTreeView - 1.00 by Jeff Chang All Rights Reserved (c) 1997 // Description: A TreeView that permits multi-selection like the ListView ------------------------------------------------------------------------------
Classes |
TMSCustomTreeView -
TMSTreeNode -
TMSTreeNodes - TMSTreeNodes
TMSTreeView -
Functions |
CheckCommonControl -
InitCommonControl - procedure Register;
Types |
PNodeInfo
TAddMode
THitTest
THitTests
TNodeAttachMode
TNodeInfo
TNodeState
TSortType
TTVChangedEvent
TTVChangingEvent
TTVCollapsingEvent
TTVCompareEvent
TTVEditedEvent
TTVEditingEvent
TTVExpandedEvent
TTVExpandingEvent
Constants |
Variables |
Functions |
Types |
PNodeInfo = ^TNodeInfo
TAddMode = (taAddFirst, taAdd, taInsert);
THitTest = (htAbove, htBelow, htNowhere, htOnItem, htOnButton, htOnIcon, htOnIndent, htOnLabel, htOnRight, htOnStateIcon, htToLeft, htToRight);TMSCustomTreeView
THitTests = set of THitTest
TNodeAttachMode = (naAdd, naAddFirst, naAddChild, naAddChildFirst, naInsert);
TNodeInfo = record
Order : Extended;
ImageIndex : Integer;
SelectedIndex : Integer;
StateIndex : Integer;
OverlayIndex : Integer;
Data : Pointer;
Count : Integer;
Text : string[255];
end;
TNodeState = (nsCut, nsDropHilited, nsFocused, nsSelected, nsExpanded);
TSortType = (stNone, stData, stText, stBoth);
TTVChangedEvent = procedure(Sender: TObject; Node: TMSTreeNode) of object
TTVChangingEvent = procedure(Sender: TObject; Node: TMSTreeNode; var AllowChange: Boolean) of object
TTVCollapsingEvent = procedure(Sender: TObject; Node: TMSTreeNode; var AllowCollapse: Boolean) of object
TTVCompareEvent = procedure(Sender: TObject; Node1, Node2: TMSTreeNode; Data: Integer; var Compare: Integer) of object
TTVEditedEvent = procedure(Sender: TObject; Node: TMSTreeNode; var S: string) of object
TTVEditingEvent = procedure(Sender: TObject; Node: TMSTreeNode; var AllowEdit: Boolean) of object
TTVExpandedEvent = procedure(Sender: TObject; Node: TMSTreeNode) of object
TTVExpandingEvent = procedure(Sender: TObject; Node: TMSTreeNode; var AllowExpansion: Boolean) of object
Constants |
Variables |