TOvcCustomTable

type TOvcCustomTable = class(TOvcTableAncestor)

protected

  FActiveCol: TColNum;

  FActiveRow: TRowNum;

  FBlockColBegin: TColNum;

  FBlockColEnd: TColNum;

  FBlockRowBegin: TRowNum;

  FBlockRowEnd: TRowNum;

  FCells: TOvcTableCells;

  FColors: TOvcTableColors;

  FCols: TOvcTableColumns;

  FGridPenSet: TOvcGridPenSet;

  FLeftCol: TColNum;

  FLockedCols: TColNum;

  FLockedRows: TRowNum;

  FLockedRowsCell: TOvcBaseTableCell;

  FRows: TOvcTableRows;

  FSelAnchorCol: TColNum;

  FSelAnchorRow: TRowNum;

  FTopRow: TRowNum;

  FColorUnused: TColor;

  FOldRowColBehavior: Boolean;

  FAccess: TOvcTblAccess;

  FAdjust: TOvcTblAdjust;

  FBorderStyle: TBorderStyle;

  FOptions: TOvcTblOptionSet;

  FScrollBars: TScrollStyle;

  Filler: Byte;

  FActiveCellChanged: TCellNotifyEvent;

  FActiveCellMoving: TCellMoveNotifyEvent;

  FBeginEdit: TCellBeginEditNotifyEvent;

  FClipboardCopy: TNotifyEvent;

  FClipboardCut: TNotifyEvent;

  FClipboardPaste: TNotifyEvent;

  FColumnsChanged: TColChangeNotifyEvent;

  FDoneEdit: TCellNotifyEvent;

  FEndEdit: TCellEndEditNotifyEvent;

  FEnteringColumn: TColNotifyEvent;

  FEnteringRow: TRowNotifyEvent;

  FGetCellData: TCellDataNotifyEvent;

  FGetCellAttributes: TCellAttrNotifyEvent;

  FLeavingColumn: TColNotifyEvent;

  FLeavingRow: TRowNotifyEvent;

  FLockedCellClick: TCellNotifyEvent;

  FPaintUnusedArea: TNotifyEvent;

  FRowsChanged: TRowChangeNotifyEvent;

  FSizeCellEditor: TSizeCellEditorNotifyEvent;

  FTopLeftCellChanged: TCellNotifyEvent;

  FTopLeftCellChanging: TCellChangeNotifyEvent;

  FUserCommand: TUserCommandEvent;

  FOnResizeColumn: TColResizeEvent;

  FOnResizeRow: TRowResizeEvent;

  tbColNums: POvcTblDisplayArray;

  tbRowNums: POvcTblDisplayArray;

  tbRowsOnLastPage: TRowNum;

  tbLastTopRow: TRowNum;

  tbColsOnLastPage: TColNum;

  tbLastLeftCol: TColNum;

  tbLockCount: Integer;

  tbCmdTable: PString;

  tbState: TOvcTblStates;

  tbSizeOffset: Integer;

  tbSizeIndex: Integer;

  tbMoveIndex: Integer;

  tbMoveIndexTo: Integer;

  tbLastEntRow: TRowNum;

  tbLastEntCol: TColNum;

  tbActCell: TOvcBaseTableCell;

  tbInvCells: TOvcCellArray;

  tbSelList: TOvcSelectionList;

  tbCellAttrFont: TFont;

  tbColMoveCursor: HCursor;

  tbRowMoveCursor: HCursor;

  tbHSBarPosCount: Integer;

  tbDrag: TOvcDragShow;

  tbHasHSBar: Boolean;

  tbHasVSBar: Boolean;

  tbUpdateSBs: Boolean;

  tbIsSelecting: Boolean;

  tbIsDeselecting: Boolean;

  tbIsKeySelecting: Boolean;

  tbMustUpdate: Boolean;

  tbMustFinishLoading: Boolean;

  ProcessingVScrollMessage: Boolean;

  function GetAllowRedraw;

  function GetColCount;

  function GetColOffset();

  function GetRowLimit;

  function GetRowOffset();

  procedure SetAccess();

  procedure SetActiveCol();

  procedure SetActiveRow();

  procedure SetAdjust();

  procedure SetAllowRedraw();

  procedure SetBorderStyle();

  procedure SetBlockAccess();

  procedure SetBlockAdjust();

  procedure SetBlockCell();

  procedure SetBlockColBegin();

  procedure SetBlockColEnd();

  procedure SetBlockColor();

  procedure SetBlockFont();

  procedure SetBlockRowBegin();

  procedure SetBlockRowEnd();

  procedure SetColors();

  procedure SetColCount();

  procedure SetCols();

  procedure SetLeftCol();

  procedure SetLockedCols();

  procedure SetLockedRows();

  procedure SetLockedRowsCell();

  procedure SetOptions();

  procedure SetPaintUnusedArea();

  procedure SetRowLimit();

  procedure SetRows();

  procedure SetScrollBars();

  procedure SetTopRow();

  procedure SetColorUnused();

  procedure ChangeScale(); override;

  procedure Notification(); override;

  function tbCalcActiveCellRect();

  function tbCalcCellsFromRect();

  procedure tbCalcColData();

  procedure tbCalcColsOnLastPage;

  procedure tbCalcHSBarPosCount;

  function tbCalcRequiresVSBar;

  procedure tbCalcRowData();

  procedure tbCalcRowsOnLastPage;

  procedure tbDrawActiveCell;

  procedure tbDrawCells();

  procedure tbDrawInvalidCells();

  procedure tbDrawMoveLine;

  procedure tbDrawRow();

  procedure tbDrawSizeLine;

  procedure tbDrawUnusedBit;

  function tbEditCellHasFocus();

  procedure tbEnsureColumnIsVisible();

  procedure tbEnsureRowIsVisible();

  function tbFindCell();

  function tbFindColInx();

  function tbFindRowInx();

  function tbIsOnGridLine();

  function tbIsInMoveArea();

  procedure tbSetActiveCellWithSel();

  procedure tbSetActiveCellPrim();

  procedure tbDeselectAll();

  function tbDeselectAllIterator();

  procedure tbSelectCol();

  procedure tbSelectRow();

  procedure tbSelectTable;

  procedure tbSetAnchorCell();

  procedure tbUpdateSelection();

  procedure DoActiveCellChanged(); virtual;

  procedure DoActiveCellMoving(); virtual;

  procedure DoBeginEdit(); virtual;

  procedure DoClipboardCopy; virtual;

  procedure DoClipboardCut; virtual;

  procedure DoClipboardPaste; virtual;

  procedure DoColumnsChanged(); virtual;

  procedure DoDoneEdit(); virtual;

  procedure DoEndEdit(); virtual;

  procedure DoEnteringColumn(); virtual;

  procedure DoEnteringRow(); virtual;

  procedure DoGetCellAttributes(); virtual;

  procedure DoGetCellData(); virtual;

  procedure DoLeavingColumn(); virtual;

  procedure DoLeavingRow(); virtual;

  procedure DoLockedCellClick(); virtual;

  procedure DoOnMouseWheel(); override;

  procedure DoPaintUnusedArea; virtual;

  procedure DoRowsChanged(); virtual;

  procedure DoSizeCellEditor(); virtual;

  procedure DoTopLeftCellChanged(); virtual;

  procedure DoTopLeftCellChanging(); virtual;

  procedure DoUserCommand(); virtual;

  function tbIsColHidden();

  function tbIsRowHidden();

  procedure tbQueryColData();

  procedure tbQueryRowData();

  procedure tbInvalidateColHdgPrim();

  procedure tbInvalidateRowHdgPrim();

  procedure tbSetScrollPos();

  procedure tbSetScrollRange();

  procedure tbMoveActCellBotOfPage;

  procedure tbMoveActCellBotRight;

  procedure tbMoveActCellDown;

  procedure tbMoveActCellFirstCol;

  procedure tbMoveActCellFirstRow;

  procedure tbMoveActCellLastCol;

  procedure tbMoveActCellLastRow;

  procedure tbMoveActCellLeft;

  procedure tbMoveActCellPageDown;

  procedure tbMoveActCellPageLeft;

  procedure tbMoveActCellPageRight;

  procedure tbMoveActCellPageUp;

  procedure tbMoveActCellRight;

  procedure tbMoveActCellTopLeft;

  procedure tbMoveActCellTopOfPage;

  procedure tbMoveActCellUp;

  procedure tbScrollBarDown;

  procedure tbScrollBarLeft;

  procedure tbScrollBarPageDown;

  procedure tbScrollBarPageLeft;

  procedure tbScrollBarPageRight;

  procedure tbScrollBarPageUp;

  procedure tbScrollBarRight;

  procedure tbScrollBarUp;

  procedure tbScrollTableLeft();

  procedure tbScrollTableRight();

  procedure tbScrollTableUp();

  procedure tbScrollTableDown();

  procedure tbCellChanged(); override;

  procedure tbColChanged();

  procedure tbGridPenChanged();

  procedure tbRowChanged();

  procedure tbColorsChanged();

  procedure DefineProperties(); override;

  procedure tbFinishLoadingDefaultCells;

  procedure tbReadColData();

  procedure tbReadRowData();

  procedure tbWriteColData();

  procedure tbWriteRowData();

  procedure ctimLoadDefaultCells(); message;

  procedure ctimQueryOptions(); message;

  procedure ctimQueryColor(); message;

  procedure ctimQueryFont(); message;

  procedure ctimQueryLockedCols(); message;

  procedure ctimQueryLockedRows(); message;

  procedure ctimQueryActiveCol(); message;

  procedure ctimQueryActiveRow(); message;

  procedure ctimRemoveCell(); message;

  procedure ctimStartEdit(); message;

  procedure ctimStartEditMouse(); message;

  procedure ctimStartEditKey(); message;

  procedure CMColorChanged(); message;

  procedure CMCtl3DChanged(); message;

  procedure CMDesignHitTest(); message;

  procedure CMFontChanged(); message;

  procedure WMCancelMode(); message;

  procedure WMEraseBkGnd(); message;

  procedure WMGetDlgCode(); message;

  procedure WMHScroll(); message;

  procedure WMKeyDown(); message;

  procedure WMKillFocus(); message;

  procedure WMLButtonDblClk(); message;

  procedure WMLButtonDown(); message;

  procedure WMLButtonUp(); message;

  procedure WMMouseMove(); message;

  procedure WMNCHitTest(); message;

  procedure WMSetCursor(); message;

  procedure WMSetFocus(); message;

  procedure WMVScroll(); message;

  property AllowRedraw: Boolean; [rws]

  property BlockAccess: TOvcTblAccess; [w]

  property BlockAdjust: TOvcTblAdjust; [w]

  property BlockColBegin: TColNum; [rw]

  property BlockColEnd: TColNum; [rw]

  property BlockColor: TColor; [w]

  property BlockCell: TOvcBaseTableCell; [w]

  property BlockFont: TFont; [w]

  property BlockRowBegin: TRowNum; [rw]

  property BlockRowEnd: TRowNum; [rw]

  property ColOffset []: Integer; [r]

  property RowOffset []: Integer; [r]

  property TableState: TOvcTblStates; [r]

  property Access: TOvcTblAccess; [rw]

  property ActiveCol: TColNum; [rw]

  property ActiveRow: TRowNum; [rw]

  property Adjust: TOvcTblAdjust; [rw]

  property BorderStyle: TBorderStyle; [rw]

  property ColCount: TColNum; [rw]

  property Colors: TOvcTableColors; [rw]

  property ColorUnused: TColor; [rw]

  property Columns: TOvcTableColumns; [rw]

  property GridPenSet: TOvcGridPenSet; [rw]

  property LeftCol: TColNum; [rw]

  property LockedCols: TColNum; [rw]

  property LockedRows: TRowNum; [rw]

  property LockedRowsCell: TOvcBaseTableCell; [rw]

  property OldRowColBehavior: Boolean; [rw]

  property Options: TOvcTblOptionSet; [rw]

  property RowLimit: TRowNum; [rw]

  property Rows: TOvcTableRows; [rw]

  property ScrollBars: TScrollStyle; [rw]

  property TopRow: TRowNum; [rw]

  property OnActiveCellChanged: TCellNotifyEvent; [rw]

  property OnActiveCellMoving: TCellMoveNotifyEvent; [rw]

  property OnBeginEdit: TCellBeginEditNotifyEvent; [rw]

  property OnClipboardCopy: TNotifyEvent; [rw]

  property OnClipboardCut: TNotifyEvent; [rw]

  property OnClipboardPaste: TNotifyEvent; [rw]

  property OnColumnsChanged: TColChangeNotifyEvent; [rw]

  property OnDoneEdit: TCellNotifyEvent; [rw]

  property OnEndEdit: TCellEndEditNotifyEvent; [rw]

  property OnEnteringColumn: TColNotifyEvent; [rw]

  property OnEnteringRow: TRowNotifyEvent; [rw]

  property OnGetCellData: TCellDataNotifyEvent; [rw]

  property OnGetCellAttributes: TCellAttrNotifyEvent; [rw]

  property OnLeavingColumn: TColNotifyEvent; [rw]

  property OnLeavingRow: TRowNotifyEvent; [rw]

  property OnLockedCellClick: TCellNotifyEvent; [rw]

  property OnPaintUnusedArea: TNotifyEvent; [rw]

  property OnResizeColumn: TColResizeEvent; [rw]

  property OnResizeRow: TRowResizeEvent; [rw]

  property OnRowsChanged: TRowChangeNotifyEvent; [rw]

  property OnSizeCellEditor: TSizeCellEditorNotifyEvent; [rw]

  property OnTopLeftCellChanged: TCellNotifyEvent; [rw]

  property OnTopLeftCellChanging: TCellChangeNotifyEvent; [rw]

  property OnUserCommand: TUserCommandEvent; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure CreateParams(); override;

  procedure CreateWnd; override;

  procedure Loaded; override;

  procedure Paint; override;

  procedure SetBounds(); override;

  function CalcRowColFromXY();

  function FilterKey(); override;

  procedure GetDisplayedColNums();

  procedure GetDisplayedRowNums();

  procedure ResolveCellAttributes(); override;

  procedure SetActiveCell();

  procedure SetTopLeftCell();

  function IncCol();

  function IncRow();

  procedure InvalidateCell();

  procedure InvalidateColumn();

  procedure InvalidateRow();

  procedure InvalidateTable;

  procedure InvalidateCellsInRect();

  procedure InvalidateColumnHeading();

  procedure InvalidateRowHeading();

  procedure InvalidateTableNotLockedCols;

  procedure InvalidateTableNotLockedRows;

  function HaveSelection;

  function InSelection();

  procedure IterateSelections();

  function InEditingState;

  function SaveEditedData;

  function StartEditingState;

  function StopEditingState();

  procedure ProcessScrollBarClick(); virtual;

  procedure MoveActiveCell(); virtual;

  property Cells: TOvcTableCells; [r]

end;

TOvcCustomTable

TOvcTableAncestor

TO32CustomControl

TObject