Class TCustomTreeNT (unit TreeNT) |
Inherits from
TWinControl
constructor Create(AOwner: TComponent);
- ----------------- TCustomTreeNT ----------------------------------------------
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);
------------------------------------------------------------------------------
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
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
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;
constructor Create(AOwner: TComponent);
----------------- TCustomTreeNT ----------------------------------------------
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);
------------------------------------------------------------------------------
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
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
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;