TOvcTableAncestor

type TOvcTableAncestor = class(TO32CustomControl)

protected

  FController: TOvcController;

  taCellList: TList;

  taLoadList: TStringList;

  function ControllerAssigned;

  procedure SetController(); virtual;

  procedure CreateWnd; override;

  procedure Notification(); override;

  procedure ChangeScale(); override;

  procedure DefineProperties(); override;

  procedure Loaded; override;

  procedure tbFinishLoadingCellList;

  procedure tbReadCellData();

  procedure tbWriteCellData();

  procedure tbCellChanged(); virtual; abstract;

public

  procedure tbExcludeCell();

  procedure tbIncludeCell();

  procedure tbNotifyCellsOfTableChange;

  constructor Create(); override;

  destructor Destroy; override;

  property Controller: TOvcController; [rw]

  function FilterKey(); virtual; abstract;

  procedure ResolveCellAttributes(); virtual; abstract;

end;

TOvcTableAncestor

TO32CustomControl

TObject