Class TMSCustomTreeView (unit MSTreeView)

Inherits from

TWinControl

Constructors


constructor Create(AOwner: TComponent);

TMSCustomTreeView


Functions

procedure AddSelNode(Node: TMSTreeNode);

multiselect

multiselect


function AlphaSort: Boolean;


procedure ClearSelNodes;

multiselect

function CustomSort(SortProc: TTVCompare; Data: Longint): Boolean;


procedure DelSelNode(Node: TMSTreeNode);

multiselect

destructor Destroy;

multiselect

function FindSelNode(Node: TMSTreeNode): Integer;

multiselect

procedure FullCollapse;


procedure FullExpand;


function GetHitTestInfoAt(X, Y: Integer): THitTests;


function GetNodeAt(X, Y: Integer): TMSTreeNode;


function IsEditing: Boolean;


procedure LoadFromFile(const FileName: string);


procedure LoadFromStream(Stream: TStream);


procedure SaveToFile(const FileName: string);


procedure SaveToStream(Stream: TStream);


procedure SortSelNodes;

multiselect

function CanChange(Node: TMSTreeNode): Boolean;


function CanCollapse(Node: TMSTreeNode): Boolean;


function CanEdit(Node: TMSTreeNode): Boolean;


function CanExpand(Node: TMSTreeNode): Boolean;


procedure Change(Node: TMSTreeNode);


procedure Collapse(Node: TMSTreeNode);


function CreateNode: TMSTreeNode;


procedure CreateParams(var Params: TCreateParams);


procedure CreateWnd;


procedure DestroyWnd;


procedure DoEndDrag(Target: TObject; X, Y: Integer);


procedure DoEnter;

multiselect

multiselect


procedure DoStartDrag(var DragObject: TDragObject);


procedure Edit(const Item: TTVItem);


procedure Expand(Node: TMSTreeNode);


function GetDragImages: TCustomImageList;

multiselect

procedure Loaded;


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure SetDragMode(Value: TDragMode);


procedure WndProc(var Message: TMessage);


procedure CMColorChanged(var Message: TMessage);


procedure CMCtl3DChanged(var Message: TMessage);


procedure CMDrag(var Message: TCMDrag);


procedure CMSysColorChange(var Message: TMessage);


procedure CNNotify(var Message: TWMNotify);


procedure DoDragOver(Source: TDragObject; X, Y: Integer; CanDrop: Boolean);


procedure EditWndProc(var Message: TMessage);


function GetDropTarget: TMSTreeNode;


procedure GetImageIndex(Node: TMSTreeNode);


function GetIndent: Integer;


function GetNodeFromItem(const Item: TTVItem): TMSTreeNode;


function GetSelCount: Integer;

multiselect

procedure GetSelectedIndex(Node: TMSTreeNode);


function GetSelection: TMSTreeNode;


function GetSelNode(Index: Integer): TMSTreeNode;

multiselect

multiselect


function GetTopItem: TMSTreeNode;


procedure ImageListChange(Sender: TObject);


procedure SetBorderStyle(Value: TBorderStyle);


procedure SetButtonStyle(Value: Boolean);


procedure SetDropTarget(Value: TMSTreeNode);


procedure SetHideSelection(Value: Boolean);


procedure SetImageList(Value: HImageList; Flags: Integer);


procedure SetImages(Value: TImageList);


procedure SetIndent(Value: Integer);


procedure SetLineStyle(Value: Boolean);


procedure SeTMSTreeNodes(Value: TMSTreeNodes);


procedure SetMultiSelect(Value: Boolean);

multiselect

procedure SetReadOnly(Value: Boolean);


procedure SetRootStyle(Value: Boolean);


procedure SetSelection(Value: TMSTreeNode);


procedure SetSortType(Value: TSortType);


procedure SetStateImages(Value: TImageList);


procedure SetStyle(Value: Integer; UseStyle: Boolean);


procedure SetTopItem(Value: TMSTreeNode);


procedure WMKeyDown(var Message: TWMKeyDown);

multiselect

procedure WMLButtonDown(var Message: TWMLButtonDown);


procedure WMNotify(var Message: TWMNotify);

multiselect

procedure WMRButtonDown(var Message: TWMRButtonDown);


procedure WMRButtonUp(var Message: TWMRButtonUp);


Properties

property DropTarget : TMSTreeNode


property SelCount : Integer


property Selected : TMSTreeNode


property SelNodes : TMSTreeNode

multiselect

property TopItem : TMSTreeNode


property BorderStyle : TBorderStyle


property HideSelection : Boolean


property Images : TImageList


property Indent : Integer


property Items : TMSTreeNodes


property MultiSelect : Boolean


property ReadOnly : Boolean


property RightClickSelect : Boolean


property ShowButtons : Boolean


property ShowLines : Boolean


property ShowRoot : Boolean


property SortType : TSortType


property StateImages : TImageList


Events

event OnChange : TTVChangedEvent


event OnChanging : TTVChangingEvent


event OnCollapsed : TTVExpandedEvent


event OnCollapsing : TTVCollapsingEvent


event OnCompare : TTVCompareEvent


event OnDeletion : TTVExpandedEvent


event OnEdited : TTVEditedEvent


event OnEditing : TTVEditingEvent


event OnExpanded : TTVExpandedEvent


event OnExpanding : TTVExpandingEvent


event OnGetImageIndex : TTVExpandedEvent


event OnGetSelectedIndex : TTVExpandedEvent


Variables

FBorderStyle : TBorderStyle;


FCtrlDown : Boolean;


FDefEditProc : Pointer;


FDeleting : Boolean;


FDragged : Boolean;


FDragImage : TImageList;


FDragNode : TMSTreeNode;


FEditHandle : HWND;


FEditInstance : Pointer;


FHideSelection : Boolean;


FImageChangeLink : TChangeLink;


FImages : TImageList;


FLastDropTarget : TMSTreeNode;


FManualNotify : Boolean;


FMemStream : TMemoryStream;


FMultiSelect : Boolean;


FOnChange : TTVChangedEvent;


FOnChanging : TTVChangingEvent;


FOnCollapsed : TTVExpandedEvent;


FOnCollapsing : TTVCollapsingEvent;


FOnCompare : TTVCompareEvent;


FOnDeletion : TTVExpandedEvent;


FOnEdited : TTVEditedEvent;


FOnEditing : TTVEditingEvent;


FOnExpanded : TTVExpandedEvent;


FOnExpanding : TTVExpandingEvent;


FOnGetImageIndex : TTVExpandedEvent;


FOnGetSelectedIndex : TTVExpandedEvent;


FRClickNode : TMSTreeNode;


FReadOnly : Boolean;


FRightClickSelect : Boolean;


FSavedSort : TSortType;


FSaveIndent : Integer;


FSaveIndex : Integer;


FSaveItems : TStringList;


FSaveTopIndex : Integer;


FSelNodes : TList;

multiselect

FShiftDown : Boolean;


FShiftKeyDown : Boolean;


FShowButtons : Boolean;


FShowLines : Boolean;


FShowRoot : Boolean;


FSortType : TSortType;


FStateChangeLink : TChangeLink;


FStateChanging : Boolean;


FStateImages : TImageList;


FTreeNodes : TMSTreeNodes;


FWideText : WideString;



Constructors


constructor Create(AOwner: TComponent);

TMSCustomTreeView


Functions


procedure AddSelNode(Node: TMSTreeNode);

multiselect

multiselect


function AlphaSort: Boolean;


procedure ClearSelNodes;

multiselect


function CustomSort(SortProc: TTVCompare; Data: Longint): Boolean;


procedure DelSelNode(Node: TMSTreeNode);

multiselect


destructor Destroy;

multiselect


function FindSelNode(Node: TMSTreeNode): Integer;

multiselect


procedure FullCollapse;


procedure FullExpand;


function GetHitTestInfoAt(X, Y: Integer): THitTests;


function GetNodeAt(X, Y: Integer): TMSTreeNode;


function IsEditing: Boolean;


procedure LoadFromFile(const FileName: string);


procedure LoadFromStream(Stream: TStream);


procedure SaveToFile(const FileName: string);


procedure SaveToStream(Stream: TStream);


procedure SortSelNodes;

multiselect


function CanChange(Node: TMSTreeNode): Boolean;


function CanCollapse(Node: TMSTreeNode): Boolean;


function CanEdit(Node: TMSTreeNode): Boolean;


function CanExpand(Node: TMSTreeNode): Boolean;


procedure Change(Node: TMSTreeNode);


procedure Collapse(Node: TMSTreeNode);


function CreateNode: TMSTreeNode;


procedure CreateParams(var Params: TCreateParams);


procedure CreateWnd;


procedure DestroyWnd;


procedure DoEndDrag(Target: TObject; X, Y: Integer);


procedure DoEnter;

multiselect

multiselect


procedure DoStartDrag(var DragObject: TDragObject);


procedure Edit(const Item: TTVItem);


procedure Expand(Node: TMSTreeNode);


function GetDragImages: TCustomImageList;

multiselect


procedure Loaded;


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure SetDragMode(Value: TDragMode);


procedure WndProc(var Message: TMessage);


procedure CMColorChanged(var Message: TMessage);


procedure CMCtl3DChanged(var Message: TMessage);


procedure CMDrag(var Message: TCMDrag);


procedure CMSysColorChange(var Message: TMessage);


procedure CNNotify(var Message: TWMNotify);


procedure DoDragOver(Source: TDragObject; X, Y: Integer; CanDrop: Boolean);


procedure EditWndProc(var Message: TMessage);


function GetDropTarget: TMSTreeNode;


procedure GetImageIndex(Node: TMSTreeNode);


function GetIndent: Integer;


function GetNodeFromItem(const Item: TTVItem): TMSTreeNode;


function GetSelCount: Integer;

multiselect


procedure GetSelectedIndex(Node: TMSTreeNode);


function GetSelection: TMSTreeNode;


function GetSelNode(Index: Integer): TMSTreeNode;

multiselect

multiselect


function GetTopItem: TMSTreeNode;


procedure ImageListChange(Sender: TObject);


procedure SetBorderStyle(Value: TBorderStyle);


procedure SetButtonStyle(Value: Boolean);


procedure SetDropTarget(Value: TMSTreeNode);


procedure SetHideSelection(Value: Boolean);


procedure SetImageList(Value: HImageList; Flags: Integer);


procedure SetImages(Value: TImageList);


procedure SetIndent(Value: Integer);


procedure SetLineStyle(Value: Boolean);


procedure SeTMSTreeNodes(Value: TMSTreeNodes);


procedure SetMultiSelect(Value: Boolean);

multiselect


procedure SetReadOnly(Value: Boolean);


procedure SetRootStyle(Value: Boolean);


procedure SetSelection(Value: TMSTreeNode);


procedure SetSortType(Value: TSortType);


procedure SetStateImages(Value: TImageList);


procedure SetStyle(Value: Integer; UseStyle: Boolean);


procedure SetTopItem(Value: TMSTreeNode);


procedure WMKeyDown(var Message: TWMKeyDown);

multiselect


procedure WMLButtonDown(var Message: TWMLButtonDown);


procedure WMNotify(var Message: TWMNotify);

multiselect


procedure WMRButtonDown(var Message: TWMRButtonDown);


procedure WMRButtonUp(var Message: TWMRButtonUp);


Properties


property DropTarget : TMSTreeNode


property SelCount : Integer


property Selected : TMSTreeNode


property SelNodes : TMSTreeNode

multiselect


property TopItem : TMSTreeNode


property BorderStyle : TBorderStyle


property HideSelection : Boolean


property Images : TImageList


property Indent : Integer


property Items : TMSTreeNodes


property MultiSelect : Boolean


property ReadOnly : Boolean


property RightClickSelect : Boolean


property ShowButtons : Boolean


property ShowLines : Boolean


property ShowRoot : Boolean


property SortType : TSortType


property StateImages : TImageList


Events


event OnChange : TTVChangedEvent


event OnChanging : TTVChangingEvent


event OnCollapsed : TTVExpandedEvent


event OnCollapsing : TTVCollapsingEvent


event OnCompare : TTVCompareEvent


event OnDeletion : TTVExpandedEvent


event OnEdited : TTVEditedEvent


event OnEditing : TTVEditingEvent


event OnExpanded : TTVExpandedEvent


event OnExpanding : TTVExpandingEvent


event OnGetImageIndex : TTVExpandedEvent


event OnGetSelectedIndex : TTVExpandedEvent


Variables


FBorderStyle : TBorderStyle;


FCtrlDown : Boolean;


FDefEditProc : Pointer;


FDeleting : Boolean;


FDragged : Boolean;


FDragImage : TImageList;


FDragNode : TMSTreeNode;


FEditHandle : HWND;


FEditInstance : Pointer;


FHideSelection : Boolean;


FImageChangeLink : TChangeLink;


FImages : TImageList;


FLastDropTarget : TMSTreeNode;


FManualNotify : Boolean;


FMemStream : TMemoryStream;


FMultiSelect : Boolean;


FOnChange : TTVChangedEvent;


FOnChanging : TTVChangingEvent;


FOnCollapsed : TTVExpandedEvent;


FOnCollapsing : TTVCollapsingEvent;


FOnCompare : TTVCompareEvent;


FOnDeletion : TTVExpandedEvent;


FOnEdited : TTVEditedEvent;


FOnEditing : TTVEditingEvent;


FOnExpanded : TTVExpandedEvent;


FOnExpanding : TTVExpandingEvent;


FOnGetImageIndex : TTVExpandedEvent;


FOnGetSelectedIndex : TTVExpandedEvent;


FRClickNode : TMSTreeNode;


FReadOnly : Boolean;


FRightClickSelect : Boolean;


FSavedSort : TSortType;


FSaveIndent : Integer;


FSaveIndex : Integer;


FSaveItems : TStringList;


FSaveTopIndex : Integer;


FSelNodes : TList;

multiselect


FShiftDown : Boolean;


FShiftKeyDown : Boolean;


FShowButtons : Boolean;


FShowLines : Boolean;


FShowRoot : Boolean;


FSortType : TSortType;


FStateChangeLink : TChangeLink;


FStateChanging : Boolean;


FStateImages : TImageList;


FTreeNodes : TMSTreeNodes;


FWideText : WideString;