TBaseVirtualDBTree

type TBaseVirtualDBTree = class(TCustomVirtualStringTree)

protected

  function CanEdit(); override;

  function CanOpenDataSet; virtual;

  function CanWriteToDataSet(); virtual;

  function DoCancelEdit; override;

  function DoChecking(); override;

  function DoEndEdit; override;

  function FindChild();

  function FindNode();

  function HasVisibleChildren();

  procedure DataLinkActiveChanged; virtual;

  procedure DataLinkChanged; virtual;

  procedure DataLinkEditingChanged; virtual;

  procedure DataLinkRecordChanged(); virtual;

  procedure DataLinkScrolled; virtual;

  procedure DoChecked(); override;

  procedure DoCollapsed(); override;

  procedure DoDragDrop(); override;

  procedure DoEdit; override;

  procedure DoFocusChange(); override;

  procedure DoFreeNode(); override;

  procedure DoInitNode(); override;

  procedure DoNodeDataChanged(); virtual;

  procedure DoNodeMoved(); override;

  procedure DoOpeningDataSet(); virtual;

  procedure DoReadNodeFromDB(); virtual;

  procedure DoReadPathFromDB(); virtual;

  procedure DoWritePathToDB(); virtual;

  procedure DoWritingDataSet(); virtual;

  procedure InitFields; virtual;

  procedure Notification(); override;

  procedure ReadNodeFromDB(); virtual;

  procedure RefreshNode; virtual;

  procedure RefreshNodes;

  procedure ResetFields; virtual;

  procedure SetFocusToNode();

  procedure ToggleListView;

  procedure ToggleViewMode;

public

  constructor Create(); override;

  destructor Destroy; override;

  function GetDBNodeData();

  function GoToRec();

  procedure AddNode();

  procedure CheckAllChildren();

  procedure CollapseAll;

  procedure DeleteSelection;

  procedure ExpandAll;

  procedure OnDragOverHandler();

  procedure UnCheckAll();

  procedure UpdateTree;

  property DBNodeDataSize: Integer; [rw]

  property DBStatus: TDBVTStatuses; [r]

  property KeyField: TField; [r]

  property LevelField: TField; [r]

  property OnNodeDataChanged: TVTNodeDataChangedEvent; [rw]

  property OnReadNodeFromDB: TVTNodeFromDBEvent; [rw]

  property ParentField: TField; [r]

  property PathField: TField; [r]

  property ViewField: TField; [r]

published

  property OnContextPopup;

  property Align;

  property Alignment;

  property Anchors;

  property AnimationDuration;

  property AutoExpandDelay;

  property AutoScrollDelay;

  property AutoScrollInterval;

  property Background;

  property BackgroundOffsetX;

  property BackgroundOffsetY;

  property BiDiMode;

  property BorderStyle;

  property BorderWidth;

  property ButtonFillMode;

  property ButtonStyle;

  property ChangeDelay;

  property CheckImageKind;

  property ClipboardFormats;

  property Color;

  property Colors;

  property Constraints;

  property CustomCheckImages;

  property DBOptions: TDBVTOptions; [rw]

  property DataSource: TDataSource; [rw]

  property DefaultNodeHeight;

  property DefaultPasteMode;

  property DefaultText;

  property DragHeight;

  property DragImageKind;

  property DragKind;

  property DragMode;

  property DragOperations;

  property DragType;

  property DragWidth;

  property DrawSelectionMode;

  property EditDelay;

  property Enabled;

  property Font;

  property Header;

  property HintMode;

  property HotCursor;

  property Images;

  property IncrementalSearch;

  property IncrementalSearchDirection;

  property IncrementalSearchStart;

  property IncrementalSearchTimeout;

  property Indent;

  property KeyFieldName: string; [rw]

  property LevelFieldName: string; [rw]

  property LineMode;

  property LineStyle;

  property Margin;

  property NodeAlignment;

  property OnAfterCellPaint;

  property OnAfterItemErase;

  property OnAfterItemPaint;

  property OnAfterPaint;

  property OnBeforeCellPaint;

  property OnBeforeItemErase;

  property OnBeforeItemPaint;

  property OnBeforePaint;

  property OnChange;

  property OnChecked;

  property OnChecking;

  property OnClick;

  property OnCollapsed;

  property OnCollapsing;

  property OnColumnClick;

  property OnColumnDblClick;

  property OnColumnResize;

  property OnCompareNodes;

  property OnCreateDataObject;

  property OnCreateDragManager;

  property OnCreateEditor;

  property OnDblClick;

  property OnDragAllowed;

  property OnDragDrop;

  property OnEditCancelled;

  property OnEdited;

  property OnEditing;

  property OnEndDock;

  property OnEndDrag;

  property OnEnter;

  property OnExit;

  property OnExpanded;

  property OnExpanding;

  property OnFocusChanged;

  property OnFocusChanging;

  property OnFreeNode;

  property OnGetHelpContext;

  property OnGetHint;

  property OnGetImageIndex;

  property OnGetLineStyle;

  property OnGetPopupMenu;

  property OnGetText;

  property OnGetUserClipboardFormats;

  property OnHeaderClick;

  property OnHeaderDblClick;

  property OnHeaderDragged;

  property OnHeaderDragging;

  property OnHeaderDraw;

  property OnHeaderMouseDown;

  property OnHeaderMouseMove;

  property OnHeaderMouseUp;

  property OnHotChange;

  property OnIncrementalSearch;

  property OnInitNode;

  property OnKeyAction;

  property OnKeyDown;

  property OnKeyPress;

  property OnKeyUp;

  property OnLoadNode;

  property OnMouseDown;

  property OnMouseMove;

  property OnMouseUp;

  property OnNewText;

  property OnOpeningDataSet: TVTDBOpenQueryEvent; [rw]

  property OnPaintBackground;

  property OnPaintText;

  property OnReadPathFromDB: TVTPathToDBEvent; [rw]

  property OnRenderOLEData;

  property OnResetNode;

  property OnResize;

  property OnSaveNode;

  property OnScroll;

  property OnShortenString;

  property OnStartDock;

  property OnStartDrag;

  property OnUpdating;

  property OnWritePathToDB: TVTPathToDBEvent; [rw]

  property OnWritingDataSet: TVTDBWriteQueryEvent; [rw]

  property ParentBiDiMode;

  property ParentColor;

  property ParentFieldName: string; [rw]

  property ParentFont;

  property ParentShowHint;

  property PathFieldName: string; [rw]

  property PopupMenu;

  property ScrollBarOptions;

  property SelectionCurveRadius;

  property ShowHint;

  property StateImages;

  property TabOrder;

  property TabStop;

  property TextMargin;

  property TreeOptions;

  property ViewFieldName: string; [rw]

  property Visible;

  property WantTabs;

end;

TBaseVirtualDBTree

TObject