TOvcTableRows

type TOvcTableRows = class(TPersistent)

protected

  FActiveCount: TRowNum;

  FList: TOvcSparseArray;

  FDefHeight: Integer;

  FLimit: TRowNum;

  FOnCfgChanged: TRowChangeNotifyEvent;

  function GetRow();

  function GetRowHeight();

  function GetRowHidden();

  function GetRowIsSpecial();

  procedure SetDefHeight();

  procedure SetRow();

  procedure SetRowHeight();

  procedure SetRowHidden();

  procedure SetLimit();

  procedure trDoCfgChanged();

public

  procedure rwScaleHeights();

  property OnCfgChanged: TRowChangeNotifyEvent; [w]

  constructor Create;

  destructor Destroy; override;

  procedure Append();

  procedure Clear;

  procedure Delete();

  procedure Exchange();

  procedure Insert();

  procedure Reset();

  property List []: TRowStyle; default; [rw]

  property Count: TRowNum; [r]

  property DefaultHeight: Integer; [rw]

  property Height []: Integer; [rw]

  property Hidden []: Boolean; [rw]

  property RowIsSpecial []: Boolean; [r]

  property Limit: TRowNum; [rw]

end;

TOvcTableRows

TObject