TDbgTreeView

type TDbgTreeView = class(TTreeGridStrings)

protected

  procedure DoAllAutoSize; override;

  procedure CheckControlsVisible;

  procedure VisibleChanged; override;

  procedure EndUpdate; override;

  function DoSetOffsetXY(); override;

  function DoCollapsing(); override;

  procedure DoExpanded(); override;

  procedure DoStateChange(); override;

  function DetermineLineImageAndSelectLevel(); override;

  procedure DoBeforeItemErase(); override;

  procedure PrepareCell(); override;

  procedure PaintTreeLines(); override;

  procedure PaintNodeButton(); override;

  procedure DoPaintNode(); override;

  function DetermineDropMode(); override;

  procedure HandleMouseDown(); override;

  procedure HandleMouseDblClick(); override;

  procedure DoGetText(); override;

  function DoGetImageIndex(); override;

  function DoGetNodeWidth(); override;

  function DoShortenString(); override;

  procedure DoNodeMoved(); override;

  procedure ValidateNodeDataSize(); override;

  procedure DoFreeNode(); override;

public

  function GetFocusedNode();

  function FocusedData();

  function FocusedItem();

  procedure SelectNode();

  function FindNodeForItem();

  function FindNodeForControl();

  function FindNodeForText();

  procedure DeleteNodeEx();

  procedure LazMoveTo();

  function NoInitItemNodes();

  function SelectedItemNodes();

  function ControlNodes;

  function GetNodeData();

  property NodeItem []: TObject; [rw]

  property NodeText []: string; [rw]

  property NodeImageIndex []: Integer; [rw]

  property IsVisible []: Boolean; [rw]

  property NodeControl []: TControl; [rw]

  property NodeControlVisible []: Boolean; [rw]

  property NodeControlWidth []: Integer; [rw]

  property NodeControlHeight []: Integer; [rw]

  property NodeControlOutside []: Boolean; [rw]

  property OnItemRemoved: TItemRemovedEvent; [rw]

  property OnDetermineDropMode: TDetermineDropModeEvent; [rw]

  property LastDropMode;

  property LazImages: TCustomImageList; [rw]

  property NodeRightButtonImgIdx []: Integer; [rw]

  property NodeRightButtonRect []: TRect; [r]

  property OnNodeRightButtonClick: TDbgTreeRightButtonClickEvent; [rw]

end;

TDbgTreeView

TObject