TAbCustomTreeView

type TAbCustomTreeView = class(TTreeView)

protected

  FArchive: TAbBaseBrowser;

  FListView: TAbCustomListView;

  FPath: string;

  procedure Change(); override;

  procedure DoChange(); virtual;

  procedure GetSelectedIndex(); override;

  procedure Notification(); override;

  procedure SelectPathNode;

  procedure SetArchive();

  procedure SetListView();

  procedure SetPath();

public

  constructor Create(); override;

  property Archive: TAbBaseBrowser; [rw]

  property HideSelection;

  property ListView: TAbCustomListView; [rw]

  property Path: string; [rw]

end;

TAbCustomTreeView

TObject