TOvcSelectionList

type TOvcSelectionList = class

protected

  slArray: POvcSelColArray;

  slColCount: TColNum;

  slColWithSelCount: TColNum;

  slActiveCol: TColNum;

  slActiveRow: TColNum;

  slAnchorCol: TColNum;

  slAnchorRow: TColNum;

  slRowCount: TRowNum;

  slColMin: TColNum;

  slColMax: TColNum;

  slRowMin: TRowNum;

  slRowMax: TRowNum;

  slSelecting: Boolean;

  slEmptyRange: Boolean;

  procedure slDeselectCellRangeInCol();

  procedure slSelectCellRangeInCol();

public

  constructor Create();

  destructor Destroy; override;

  procedure DeselectAll;

  procedure DeselectCell();

  procedure DeselectCellRange();

  procedure ExtendRange();

  function HaveSelection;

  function IsCellSelected();

  procedure Iterate();

  procedure SelectAll;

  procedure SelectCell();

  procedure SelectCellRange();

  procedure SetColCount();

  procedure SetRangeAnchor();

  procedure SetRowCount();

end;

TOvcSelectionList

TObject