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


procedure CheckCommonControl(CC: Integer);


function InitCommonControl(CC: Integer): Boolean;

procedure Register;

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