Class TCustomTreeNT (unit TreeNT)

Inherits from

TWinControl

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;



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;