| Class TCustomTreeNT (unit TreeNT) |
TWinControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
function AlphaSort: Boolean;
function CustomSort(SortProc: TTVCompare; Data: Longint): Boolean;
destructor Destroy;
procedure FullCollapse;
procedure FullExpand;
function GetHitTestInfoAt(X, Y: Integer): THitTests;
function GetNodeAt(X, Y: Integer): TTreeNTNode;
function IsEditing: Boolean;
procedure LoadFromFile(const FileName: String);
procedure LoadFromStream(Stream: TStream);
procedure SaveToFile(const FileName: String);
procedure SaveToStream(Stream: TStream);
procedure ShowInsertMark(Node: TTreeNTNode; After: Boolean);
function CanChange(Node: TTreeNTNode): Boolean;
function CanCollapse(Node: TTreeNTNode): Boolean;
function CanEdit(Node: TTreeNTNode): Boolean;
function CanExpand(Node: TTreeNTNode): Boolean;
procedure Change(Node: TTreeNTNode);
procedure Collapse(Node: TTreeNTNode);
function CreateNode: TTreeNTNode;
procedure CreateParams(var Params: TCreateParams);
procedure CreateWnd;
procedure DestroyWnd;
procedure DoAutoScroll(X,Y: Integer);
procedure DoEndDrag(Target: TObject; X, Y: Integer);
procedure DoStartDrag(var DragObject: TDragObject);
procedure Edit(const Item: TTVItem);
procedure Expand(Node: TTreeNTNode);
function GetDragImages: TCustomImageList;
procedure Loaded;
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure SetDragMode(Value: TDragMode);
procedure WndProc(var Message: TMessage);
procedure ActivateScrollTimer;
procedure CMColorChanged(var Message: TMessage);
procedure CMCtl3DChanged(var Message: TMessage);
procedure CMDesignHitTest(var Message: TCMDesignHitTest);
procedure CMDrag(var Message: TCMDrag);
procedure CMMouseLeave(var Message: TMessage);
procedure CNNotify(var Message: TWMNotify);
procedure DoDragOver(Source: TDragObject; X, Y: Integer);
procedure DoScroll(Sender: TObject);
procedure EditWndProc(var Message: TMessage);
procedure FontChanged(Sender: TObject);
function GetDropTarget: TTreeNTNode;
procedure GetImageIndex(Node: TTreeNTNode);
function GetIndent: Integer;
function GetItemHeight: ShortInt;
function GetNodeFromItem(const Item: TTVItem): TTreeNTNode;
function GetScrollTime: Integer;
function GetSearchString: String;
procedure GetSelectedIndex(Node: TTreeNTNode);
function GetSelection: TTreeNTNode;
function GetTopItem: TTreeNTNode;
procedure ImageListChange(Sender: TObject);
procedure SetBorderStyle(Value: TBorderStyle);
procedure SetDropTarget(Value: TTreeNTNode);
procedure SetImageList(Value: HImageList; Flags: Integer);
procedure SetImages(Value: TImageList);
procedure SetIndent(Value: Integer);
procedure SetItemHeight(Value: ShortInt);
procedure SetOptions(Values: TTreeOptions);
procedure SetScrollTime(Value: Integer);
procedure SetSelection(Value: TTreeNTNode);
procedure SetSortType(Value: TSortType);
procedure SetStateImages(Value: TImageList);
procedure SetStyle(Value: Integer; UseStyle: Boolean);
procedure SetTopItem(Value: TTreeNTNode);
procedure SetTreeNTNodes(Value: TTreeNTNodes);
procedure WMLButtonDown(var Message: TWMLButtonDown);
procedure WMNCHitTest(var Message: TWMNCHitTest);
procedure WMRButtonDown(var Message: TWMRButtonDown);| Properties |
property Designer : TFormDesigner
property DropTarget : TTreeNTNode
property Selected : TTreeNTNode
property TopItem : TTreeNTNode
property AfterItemPaint : TTVItemPaintEvent
property AfterPaint : TTVPaintEvent
property AutoScroll : Boolean
property BeforeItemPaint : TTVItemPaintEvent
property BeforePaint : TTVPaintEvent
property BorderStyle : TBorderStyle
property DesignerMode : Boolean
property Images : TImageList
property Indent : Integer
property ItemHeight : ShortInt
property Items : TTreeNTNodes
property Options : TTreeOptions
property ScrollTime : Integer
property SearchString : String
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 OnDesignClick : TTVDesignClickEvent
event OnEdited : TTVEditedEvent
event OnEditing : TTVEditingEvent
event OnExpanded : TTVExpandedEvent
event OnExpanding : TTVExpandingEvent
event OnGetImageIndex : TTVExpandedEvent
event OnGetSelectedIndex : TTVExpandedEvent
event OnHint : TTVHintEvent
event OnSingleExpanded : TTVSingleExpandingEvent| Variables |
FAfterItemPaint : TTVItemPaintEvent;
FAfterPaint : TTVPaintEvent;
FAutoScroll : Boolean;
FBeforeItemPaint : TTVItemPaintEvent;
FBeforePaint : TTVPaintEvent;
FBorderStyle : TBorderStyle;
FDefEditProc : Pointer;
FDesigner : TFormDesigner;
FDesignerMode : Boolean;
FDragged : Boolean;
FDragImage : TImageList;
FDragNode : TTreeNTNode;
FDragObject : TDragObject;
FEditHandle : HWND;
FEditInstance : Pointer;
FImageChangeLink : TChangeLink;
FImages : TImageList;
FLastDropTarget : TTreeNTNode;
FMemStream : TMemoryStream;
FOnChange : TTVChangedEvent;
FOnChanging : TTVChangingEvent;
FOnCollapsed : TTVExpandedEvent;
FOnCollapsing : TTVCollapsingEvent;
FOnCompare : TTVCompareEvent;
FOnDeletion : TTVExpandedEvent;
FOnDesignClick : TTVDesignClickEvent;
FOnEdited : TTVEditedEvent;
FOnEditing : TTVEditingEvent;
FOnExpanded : TTVExpandedEvent;
FOnExpanding : TTVExpandingEvent;
FOnGetImageIndex : TTVExpandedEvent;
FOnGetSelectedIndex : TTVExpandedEvent;
FOnHint : TTVHintEvent;
FOnSingleExpanded : TTVSingleExpandingEvent;
FOptions : TTreeOptions;
FRClicked : Boolean;
FSaveIndent : Integer;
FSaveIndex : Integer;
FSaveItemHeight : Integer;
FSaveItems : TStringList;
FSaveTopIndex : Integer;
FScrollCount : Integer;
FScrollDirection : TScrollDirection;
FScrollTime : Integer;
FScrollTimer : TTimer;
FSortType : TSortType;
FStateChangeLink : TChangeLink;
FStateImages : TImageList;
FTreeCanvas : TCanvas;
FTreeNTNodes : TTreeNTNodes;| Constructors |
constructor Create(AOwner: TComponent);----------------- TCustomTreeNT ----------------------------------------------
| Functions |
function AlphaSort: Boolean;------------------------------------------------------------------------------
function CustomSort(SortProc: TTVCompare; Data: Longint): Boolean;------------------------------------------------------------------------------
destructor Destroy;------------------------------------------------------------------------------
procedure FullCollapse;------------------------------------------------------------------------------
procedure FullExpand;------------------------------------------------------------------------------
function GetHitTestInfoAt(X, Y: Integer): THitTests;------------------------------------------------------------------------------
function GetNodeAt(X, Y: Integer): TTreeNTNode;------------------------------------------------------------------------------
function IsEditing: Boolean;------------------------------------------------------------------------------
procedure LoadFromFile(const FileName: String);------------------------------------------------------------------------------
procedure LoadFromStream(Stream: TStream);------------------------------------------------------------------------------
procedure SaveToFile(const FileName: String);------------------------------------------------------------------------------
procedure SaveToStream(Stream: TStream);------------------------------------------------------------------------------
procedure ShowInsertMark(Node: TTreeNTNode; After: Boolean);------------------------------------------------------------------------------
function CanChange(Node: TTreeNTNode): Boolean;------------------------------------------------------------------------------
function CanCollapse(Node: TTreeNTNode): Boolean;------------------------------------------------------------------------------
function CanEdit(Node: TTreeNTNode): Boolean;------------------------------------------------------------------------------
function CanExpand(Node: TTreeNTNode): Boolean;------------------------------------------------------------------------------
procedure Change(Node: TTreeNTNode);------------------------------------------------------------------------------
procedure Collapse(Node: TTreeNTNode);------------------------------------------------------------------------------
function CreateNode: TTreeNTNode;------------------------------------------------------------------------------
procedure CreateParams(var Params: TCreateParams);------------------------------------------------------------------------------
procedure CreateWnd;------------------------------------------------------------------------------
procedure DestroyWnd;------------------------------------------------------------------------------
procedure DoAutoScroll(X,Y: Integer);------------------------------------------------------------------------------
procedure DoEndDrag(Target: TObject; X, Y: Integer);------------------------------------------------------------------------------
procedure DoStartDrag(var DragObject: TDragObject);------------------------------------------------------------------------------
procedure Edit(const Item: TTVItem);------------------------------------------------------------------------------
procedure Expand(Node: TTreeNTNode);------------------------------------------------------------------------------
function GetDragImages: TCustomImageList;------------------------------------------------------------------------------
procedure Loaded;------------------------------------------------------------------------------
procedure MouseMove(Shift: TShiftState; X, Y: Integer);------------------------------------------------------------------------------
procedure Notification(AComponent: TComponent; Operation: TOperation);------------------------------------------------------------------------------
procedure SetDragMode(Value: TDragMode);------------------------------------------------------------------------------
procedure WndProc(var Message: TMessage);------------------------------------------------------------------------------
procedure ActivateScrollTimer;------------------------------------------------------------------------------
procedure CMColorChanged(var Message: TMessage);------------------------------------------------------------------------------
procedure CMCtl3DChanged(var Message: TMessage);------------------------------------------------------------------------------
procedure CMDesignHitTest(var Message: TCMDesignHitTest);------------------------------------------------------------------------------
procedure CMDrag(var Message: TCMDrag);------------------------------------------------------------------------------
procedure CMMouseLeave(var Message: TMessage);------------------------------------------------------------------------------
procedure CNNotify(var Message: TWMNotify);------------------------------------------------------------------------------
procedure DoDragOver(Source: TDragObject; X, Y: Integer);------------------------------------------------------------------------------
procedure DoScroll(Sender: TObject);------------------------------------------------------------------------------
procedure EditWndProc(var Message: TMessage);------------------------------------------------------------------------------
procedure FontChanged(Sender: TObject);------------------------------------------------------------------------------
function GetDropTarget: TTreeNTNode;------------------------------------------------------------------------------
procedure GetImageIndex(Node: TTreeNTNode);------------------------------------------------------------------------------
function GetIndent: Integer;------------------------------------------------------------------------------
function GetItemHeight: ShortInt;------------------------------------------------------------------------------
function GetNodeFromItem(const Item: TTVItem): TTreeNTNode;------------------------------------------------------------------------------
function GetScrollTime: Integer;------------------------------------------------------------------------------
function GetSearchString: String;------------------------------------------------------------------------------
procedure GetSelectedIndex(Node: TTreeNTNode);------------------------------------------------------------------------------
function GetSelection: TTreeNTNode;------------------------------------------------------------------------------
function GetTopItem: TTreeNTNode;------------------------------------------------------------------------------
procedure ImageListChange(Sender: TObject);------------------------------------------------------------------------------
procedure SetBorderStyle(Value: TBorderStyle);------------------------------------------------------------------------------
procedure SetDropTarget(Value: TTreeNTNode);------------------------------------------------------------------------------
procedure SetImageList(Value: HImageList; Flags: Integer);------------------------------------------------------------------------------
procedure SetImages(Value: TImageList);------------------------------------------------------------------------------
procedure SetIndent(Value: Integer);------------------------------------------------------------------------------
procedure SetItemHeight(Value: ShortInt);------------------------------------------------------------------------------
procedure SetOptions(Values: TTreeOptions);------------------------------------------------------------------------------
procedure SetScrollTime(Value: Integer);------------------------------------------------------------------------------
procedure SetSelection(Value: TTreeNTNode);------------------------------------------------------------------------------
procedure SetSortType(Value: TSortType);------------------------------------------------------------------------------
procedure SetStateImages(Value: TImageList);------------------------------------------------------------------------------
procedure SetStyle(Value: Integer; UseStyle: Boolean);------------------------------------------------------------------------------
procedure SetTopItem(Value: TTreeNTNode);------------------------------------------------------------------------------
procedure SetTreeNTNodes(Value: TTreeNTNodes);------------------------------------------------------------------------------
procedure WMLButtonDown(var Message: TWMLButtonDown);------------------------------------------------------------------------------
procedure WMNCHitTest(var Message: TWMNCHitTest);------------------------------------------------------------------------------
procedure WMRButtonDown(var Message: TWMRButtonDown);------------------------------------------------------------------------------
| Properties |
property Designer : TFormDesigner
property DropTarget : TTreeNTNode
property Selected : TTreeNTNode
property TopItem : TTreeNTNode
property AfterItemPaint : TTVItemPaintEvent
property AfterPaint : TTVPaintEvent
property AutoScroll : Boolean
property BeforeItemPaint : TTVItemPaintEvent
property BeforePaint : TTVPaintEvent
property BorderStyle : TBorderStyle
property DesignerMode : Boolean
property Images : TImageList
property Indent : Integer
property ItemHeight : ShortInt
property Items : TTreeNTNodes
property Options : TTreeOptions
property ScrollTime : Integer
property SearchString : String
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 OnDesignClick : TTVDesignClickEvent
event OnEdited : TTVEditedEvent
event OnEditing : TTVEditingEvent
event OnExpanded : TTVExpandedEvent
event OnExpanding : TTVExpandingEvent
event OnGetImageIndex : TTVExpandedEvent
event OnGetSelectedIndex : TTVExpandedEvent
event OnHint : TTVHintEvent
event OnSingleExpanded : TTVSingleExpandingEvent| Variables |
FAfterItemPaint : TTVItemPaintEvent;
FAfterPaint : TTVPaintEvent;
FAutoScroll : Boolean;
FBeforeItemPaint : TTVItemPaintEvent;
FBeforePaint : TTVPaintEvent;
FBorderStyle : TBorderStyle;
FDefEditProc : Pointer;
FDesigner : TFormDesigner;
FDesignerMode : Boolean;
FDragged : Boolean;
FDragImage : TImageList;
FDragNode : TTreeNTNode;
FDragObject : TDragObject;
FEditHandle : HWND;
FEditInstance : Pointer;
FImageChangeLink : TChangeLink;
FImages : TImageList;
FLastDropTarget : TTreeNTNode;
FMemStream : TMemoryStream;
FOnChange : TTVChangedEvent;
FOnChanging : TTVChangingEvent;
FOnCollapsed : TTVExpandedEvent;
FOnCollapsing : TTVCollapsingEvent;
FOnCompare : TTVCompareEvent;
FOnDeletion : TTVExpandedEvent;
FOnDesignClick : TTVDesignClickEvent;
FOnEdited : TTVEditedEvent;
FOnEditing : TTVEditingEvent;
FOnExpanded : TTVExpandedEvent;
FOnExpanding : TTVExpandingEvent;
FOnGetImageIndex : TTVExpandedEvent;
FOnGetSelectedIndex : TTVExpandedEvent;
FOnHint : TTVHintEvent;
FOnSingleExpanded : TTVSingleExpandingEvent;
FOptions : TTreeOptions;
FRClicked : Boolean;
FSaveIndent : Integer;
FSaveIndex : Integer;
FSaveItemHeight : Integer;
FSaveItems : TStringList;
FSaveTopIndex : Integer;
FScrollCount : Integer;
FScrollDirection : TScrollDirection;
FScrollTime : Integer;
FScrollTimer : TTimer;
FSortType : TSortType;
FStateChangeLink : TChangeLink;
FStateImages : TImageList;
FTreeCanvas : TCanvas;
FTreeNTNodes : TTreeNTNodes;