TKCustomGrid

type TKCustomGrid = class(TKCustomControl)

protected

  FActiveSelection: Integer;

  FCellHintTimer: TTimer;

  FCells: TKGridCells;

  FColors: TKGridColors;

  FCols: TKGridAxisItems;

  FDragArrow: TKAlphaBitmap;

  FDragWindow: TKDragWindow;

  FEditedCell: TKGridCell;

  FEditor: TWinControl;

  FEditorRect: TRect;

  FEditorCell: TKGridCoord;

  FEditorWindowProc: TWndMethod;

  FGridState: TKGridState;

  FHCI: TKGridHCIBitmaps;

  FHint: TKHintWindow;

  FHintCell: TKGridCoord;

  FHitCell: TKGridCoord;

  FHitPos: TPoint;

  FInUpdateScrollRange: Boolean;

  FLateUpdating: Boolean;

  FMaxCol: Integer;

  FMaxRow: Integer;

  FMemCol: Integer;

  FMemRow: Integer;

  FMouseOver: TKGridCoord;

  FOldFontChanged: TNotifyEvent;

  FRows: TKGridAxisItems;

  FSelection: TKGridRect;

  FSelections: TKGridRectList;

  FScrollPos: TPoint;

  FScrollOffset: TPoint;

  FTmpBitmap: TBitmap;

  FTmpCursor: TCursor;

  procedure AdjustPageSetup; override;

  function AdjustSelection(); virtual;

  function BeginColDrag(); virtual;

  function BeginColSizing(); virtual;

  function BeginRowDrag(); virtual;

  function BeginRowSizing(); virtual;

  procedure CancelMode; override;

  procedure CellChanging(); virtual;

  procedure CellHintTimerHandler(); virtual;

  procedure Changed; virtual;

  procedure ChangeDataSize(); virtual;

  function CheckColDrag(); virtual;

  function CheckRowDrag(); virtual;

  function ClampInView();

  procedure ColMoved(); virtual;

  procedure ColWidthsChanged(); virtual;

  function CompareCellInstances(); virtual;

  function CompareCells(); virtual;

  function CompareCols(); virtual;

  function CompareRows(); virtual;

  procedure CreateParams(); override;

  function CustomSortCols(); virtual;

  function CustomSortRows(); virtual;

  procedure DefaultColWidthChanged; virtual;

  procedure DefaultRowHeightChanged; virtual;

  procedure DefaultSetCaretToLeft(); virtual;

  procedure DefineProperties(); override;

  function DoMouseWheelDown(); override;

  function DoMouseWheelUp(); override;

  procedure DragMove();

  function DrawCell(); virtual;

  function EditorCreate(); virtual;

  procedure EditorDataFromGrid(); virtual;

  procedure EditorDataToGrid(); virtual;

  procedure EditorDestroy(); virtual;

  function EditorIsTransparent; virtual;

  function EditorKeyPreview(); virtual;

  procedure EditorResize(); virtual;

  procedure EditorSelect(); virtual;

  procedure EditorWindowProc(); virtual;

  function EndColDrag(); virtual;

  function EndColSizing(); virtual;

  function EndRowDrag(); virtual;

  function EndRowSizing(); virtual;

  function FixAllSelections(); virtual;

  function FixSelection(); virtual;

  procedure FontChange(); virtual;

  procedure FreeData;

  procedure GetAxisInfo(); virtual;

  function GetDefaultRowHeight; virtual;

  function GetDragRect(); virtual;

  function GridStateToInvisibleCells;

  function HasHorzScrollBar; virtual;

  function HasVertScrollBar; virtual;

  procedure InternalExchangeCols(); virtual;

  procedure InternalExchangeRows(); virtual;

  function InternalExpandGridRect(); virtual;

  procedure InternalFindBaseCell(); virtual;

  procedure InternalFlip(); virtual;

  function InternalGetCell(); virtual;

  function InternalGetCellSpan(); virtual;

  function InternalGetColWidths(); virtual;

  function InternalGetEffectiveColSpacing(); virtual;

  function InternalGetEffectiveRowSpacing(); virtual;

  procedure InternalGetHExtent(); virtual;

  function InternalGetMaxColWidth(); virtual;

  function InternalGetMaxRowHeight(); virtual;

  function InternalGetMinColWidth(); virtual;

  function InternalGetMinRowHeight(); virtual;

  function InternalGetRowHeights(); virtual;

  function InternalGetSelAvail; override;

  function InternalGetSelectionRect(); virtual;

  function InternalGetSelectionsRect(); virtual;

  procedure InternalGetVExtent(); virtual;

  function InternalInsertNR(); virtual;

  function InternalMove(); virtual;

  function InternalInsertIfCellModifiedNR();

  procedure InternalPaintCell(); virtual;

  procedure InternalQuickSortNR(); virtual;

  procedure InternalSetCell(); virtual;

  procedure InternalSetCells(); virtual;

  function InternalSetCellSpan(); virtual;

  procedure InternalSetColCount(); virtual;

  procedure InternalSetFixedCols(); virtual;

  procedure InternalSetFixedRows(); virtual;

  procedure InternalSetRowCount(); virtual;

  procedure InternalSetSelection(); virtual;

  function InternalCheckAndSetSelection(); virtual;

  function InternalUpdateVirtualGrid; virtual;

  procedure InternalUnlockUpdate; override;

  function IsThemed; override;

  function IsDefaultRowHeightStored; virtual;

  procedure KeyDown(); override;

  procedure LateUpdate(); override;

  procedure Loaded; override;

  function MeasureCell(); virtual;

  procedure MeasurePages(); override;

  procedure MouseCellHint(); virtual;

  procedure MouseClickCell(); virtual;

  procedure MouseDblClickCell(); virtual;

  procedure MouseDown(); override;

  procedure MouseEnterCell(); virtual;

  procedure MouseFormLeave; override;

  procedure MouseLeaveCell(); virtual;

  procedure MouseMove(); override;

  procedure MouseOverCells; virtual;

  procedure MouseUp(); override;

  function PageHeight; virtual;

  function PageWidth; virtual;

  function PaintCells();

  procedure PaintDragSuggestion(); virtual;

  procedure PaintHeaderAlignment(); virtual;

  procedure PaintPage; override;

  procedure PaintSizingSuggestion(); virtual;

  function PointToCell(); virtual;

  function PointToSizing(); virtual;

  procedure ProcessDragWindow(); virtual;

  procedure ResetTopLeft; virtual;

  procedure RowMoved(); virtual;

  procedure RowHeightsChanged(); virtual;

  procedure SafeSetFocus; virtual;

  procedure Scroll(); virtual;

  procedure ScrollTimerHandler(); virtual;

  function SelectCell(); virtual;

  function SelectionExpand(); virtual;

  function SelectionMove(); virtual;

  procedure DoSelectionChanged;

  procedure SetCursor(); override;

  function SetMouseCursor(); override;

  procedure SizeChanged(); virtual;

  procedure SuggestDrag(); virtual;

  procedure SuggestSizing(); virtual;

  procedure TopLeftChanged; virtual;

  procedure UpdateAxes(); virtual;

  procedure UpdateCellSpan; virtual;

  procedure UpdateSize; override;

  procedure UpdateDesigner; virtual;

  procedure UpdateEditor(); virtual;

  procedure UpdateScrollRange(); virtual;

  procedure ValidateInitialRowPositions; virtual;

  procedure ValidateInitialColPositions; virtual;

  procedure ValidateInitialPositions;

public

  constructor Create(); override;

  destructor Destroy; override;

  function AddSelection(); virtual;

  procedure AutoSizeCol(); virtual;

  procedure AutoSizeGrid(); virtual;

  procedure AutoSizeRow(); virtual;

  function CellSelected(); virtual;

  function CellRect(); virtual;

  function CellToPoint(); virtual;

  function CellVisible(); virtual;

  procedure ClearCol(); virtual;

  procedure ClearGrid; virtual;

  procedure ClearRow(); virtual;

  procedure ClearSelections; virtual;

  procedure ClearSortMode;

  procedure ClearSortModeHorz; virtual;

  procedure ClearSortModeVert; virtual;

  function ColSelectable(); virtual;

  function ColSelected(); virtual;

  function ColValid(); virtual;

  procedure DefaultComboKeyPreview(); virtual;

  procedure DefaultComboSelect(); virtual;

  function DefaultCompareCells(); virtual;

  procedure DefaultEditKeyPreview(); virtual;

  procedure DefaultEditorCreate(); virtual;

  procedure DefaultEditorDataFromGrid(); virtual;

  procedure DefaultEditorDataToGrid(); virtual;

  procedure DefaultEditorDestroy(); virtual;

  procedure DefaultEditorKeyPreview(); virtual;

  procedure DefaultEditorResize(); virtual;

  procedure DefaultEditorSelect(); virtual;

  procedure DefaultEditSelect(); virtual;

  procedure DefaultMouseCellHint(); virtual;

  procedure DefaultScrollBarKeyPreview(); virtual;

  procedure DeleteCol(); virtual;

  procedure DeleteCols(); virtual;

  procedure DeleteRow(); virtual;

  procedure DeleteRows(); virtual;

  procedure DeleteSelection(); virtual;

  procedure FindBaseCell(); virtual;

  function FindCol(); virtual;

  function FindRow(); virtual;

  function FindSelection(); virtual;

  procedure FocusCell(); virtual;

  function GetAxisInfoBoth();

  function GetAxisInfoHorz(); virtual;

  function GetAxisInfoVert(); virtual;

  function GetDrawState(); virtual;

  function GridRectSelectable(); virtual;

  function GridRectToRect(); virtual;

  function GridRectValid(); virtual;

  function HasFocus; virtual;

  procedure HideCellHint; virtual;

  function InitialCol(); virtual;

  function InitialColInv(); virtual;

  function InitialRow(); virtual;

  function InitialRowInv(); virtual;

  function InsertCol(); virtual;

  procedure InsertCols(); virtual;

  function InsertRow(); virtual;

  procedure InsertRows(); virtual;

  function InsertSortedCol(); virtual;

  function InsertSortedRow(); virtual;

  procedure InvalidateCell();

  procedure InvalidateCol(); virtual;

  procedure InvalidateCols(); virtual;

  procedure InvalidateCurrentSelection; virtual;

  procedure InvalidateGridRect(); virtual;

  procedure InvalidateRow(); virtual;

  procedure InvalidateRows(); virtual;

  procedure InvalidateSelection(); virtual;

  function IsDoubleBuffered; virtual;

  procedure LockSortMode; virtual;

  procedure ModifySelection(); virtual;

  function MouseToCell();

  procedure MoveCol(); virtual;

  procedure MoveRow(); virtual;

  procedure MoveToNextCell; virtual;

  procedure PaintCell(); virtual;

  procedure PaintToCanvas(); override;

  procedure PostRecreateEditor; virtual;

  procedure RealizeCellClass; virtual;

  procedure RealizeColClass; virtual;

  procedure RealizeRowClass; virtual;

  function RowSelectable(); virtual;

  function RowSelected(); virtual;

  function RowValid(); virtual;

  procedure ScrollBy();

  function ScrollDeltaFromDelta(); virtual;

  function ScrollNeeded(); virtual;

  procedure SelectAll; virtual;

  procedure SelectCol(); virtual;

  procedure SelectCols(); virtual;

  procedure SelectionNormalize; virtual;

  procedure SelectRow(); virtual;

  procedure SelectRows(); virtual;

  procedure ShowCellHint; virtual;

  procedure SortCols(); virtual;

  function SortModeUnlocked; virtual;

  procedure SortRows(); virtual;

  procedure UnlockSortMode; virtual;

  procedure UnselectRange;

  procedure UpdateSortMode(); virtual;

  property ArrayOfCells: TKGridCells; [r]

  property ArrayOfCols: TKGridAxisItems; [r]

  property ArrayOfRows: TKGridAxisItems; [r]

  property Flat: Boolean; [rw]

  property AllCellsSelected: Boolean; [r]

  property AllRowsSelected: Boolean; [r]

  property AllColsSelected: Boolean; [r]

  property Canvas;

  property Cell []: TKGridCell; [rw]

  property CellClass: TKGridCellClass; [rw]

  property CellPainter: TKGridCellPainter; [r]

  property CellPainterClass: TKGridCellPainterClass; [rw]

  property Cells []: TKString; [rw]

  property CellSpan []: TKGridCellSpan; [rw]

  property Col: Integer; [rw]

  property ColClass: TKGridColClass; [rw]

  property ColCount: Integer; [rw]

  property Color;

  property Colors: TKGridColors; [rw]

  property Cols []: TKGridCol; [r]

  property Columns: TKGridAxisItems; [rw]

  property ColWidths []: Integer; [rw]

  property DefaultColWidth: Integer; [rw]

  property DefaultDrawing: Boolean; [rw]

  property DefaultRowHeight: Integer; [rws]

  property DisabledDrawStyle: TKGridDisabledDrawStyle; [rw]

  property DragStyle: TKGridDragStyle; [rw]

  property Editor: TWinControl; [r]

  property EditorMode: Boolean; [rw]

  property EditorTransparency: TKGridEditorTransparency; [rw]

  property EffectiveColSpacing []: Integer; [r]

  property EffectiveRowSpacing []: Integer; [r]

  property EntireColSelected []: Boolean; [r]

  property EntireSelectedColCount: Integer; [r]

  property EntireRowSelected []: Boolean; [r]

  property EntireSelectedRowCount: Integer; [r]

  property FixedCols: Integer; [rw]

  property FixedRows: Integer; [rw]

  property GridHeight: Integer; [r]

  property GridLineWidth: Integer; [rw]

  property GridWidth: Integer; [r]

  property KeyPreview: Boolean; [r]

  property LastVisibleCol: Integer; [r]

  property LastVisibleRow: Integer; [r]

  property LeftCol: Integer; [rw]

  property MaxCol: Integer; [r]

  property MaxRow: Integer; [r]

  property MinColWidth: Integer; [rw]

  property MinRowHeight: Integer; [rw]

  property MoreCellsSelected: Boolean; [r]

  property MouseCellHintTime: Cardinal; [rw]

  property MoveDirection: TKGridMoveDirection; [rw]

  property Objects []: TObject; [rw]

  property Options: TKGridOptions; [rw]

  property OptionsEx: TKGridOptionsEx; [rw]

  property ParentColor;

  property PreventMouseWheelScroll: Boolean; [rw]

  property RangeSelectStyle: TKGridRangeSelectStyle; [rw]

  property Row: Integer; [rw]

  property RowClass: TKGridRowClass; [rw]

  property RowCount: Integer; [rw]

  property RowHeights []: Integer; [rw]

  property Rows []: TKGridRow; [r]

  property ScrollBars: TScrollStyle; [rw]

  property ScrollModeHorz: TKGridScrollMode; [rw]

  property ScrollModeVert: TKGridScrollMode; [rw]

  property ScrollSpeed: Cardinal; [rw]

  property Selection: TKGridRect; [rw]

  property SelectionCount: Integer; [r]

  property SelectionRect: TRect; [r]

  property Selections []: TKGridRect; [rw]

  property SelectionsRect []: TRect; [r]

  property SizingStyle: TKGridSizingStyle; [rw]

  property SortCol: Integer; [r]

  property SortRow: Integer; [r]

  property SortStyle: TKGridSortStyle; [rw]

  property TabStops []: Boolean; [rw]

  property ThemedCells: Boolean; [r]

  property Themes: Boolean; [r]

  property ThroughClick: Boolean; [rw]

  property TopRow: Integer; [rw]

  property VisibleColCount: Integer; [r]

  property VisibleGridRect: TKGridRect; [r]

  property VisibleRowCount: Integer; [r]

  property OnBeginColDrag: TKGridBeginDragEvent; [rw]

  property OnBeginColSizing: TKGridBeginSizingEvent; [rw]

  property OnBeginRowDrag: TKGridBeginDragEvent; [rw]

  property OnBeginRowSizing: TKGridBeginSizingEvent; [rw]

  property OnCellChanging: TKGridCellChangedEvent; [rw]

  property OnCellSpan: TKGridCellSpanEvent; [rw]

  property OnChanged: TKGridCellEvent; [rw]

  property OnCheckColDrag: TKGridCheckDragEvent; [rw]

  property OnCheckRowDrag: TKGridCheckDragEvent; [rw]

  property OnColumnMoved: TKGridMovedEvent; [rw]

  property OnColWidthsChanged: TNotifyEvent; [rw]

  property OnColWidthsChangedEx: TKGridExtentEvent; [rw]

  property OnCompareCellInstances: TKGridCompareCellInstancesEvent; [rw]

  property OnCompareCells: TKGridCompareCellsEvent; [rw]

  property OnCustomSortCols: TKGridCustomSortEvent; [rw]

  property OnCustomSortRows: TKGridCustomSortEvent; [rw]

  property OnDrawCell: TKGridDrawCellEvent; [rw]

  property OnEditorCreate: TKGridEditorCreateEvent; [rw]

  property OnEditorDataFromGrid: TKGridEditorDataEvent; [rw]

  property OnEditorDataToGrid: TKGridEditorDataEvent; [rw]

  property OnEditorDestroy: TKGridEditorDestroyEvent; [rw]

  property OnEditorKeyPreview: TKGridEditorKeyPreviewEvent; [rw]

  property OnEditorResize: TKGridEditorResizeEvent; [rw]

  property OnEditorSelect: TKGridEditorSelectEvent; [rw]

  property OnEndColDrag: TKGridEndDragEvent; [rw]

  property OnEndColSizing: TKGridEndSizingEvent; [rw]

  property OnEndRowDrag: TKGridEndDragEvent; [rw]

  property OnEndRowSizing: TKGridEndSizingEvent; [rw]

  property OnExchangeCols: TKGridExchangeEvent; [rw]

  property OnExchangeRows: TKGridExchangeEvent; [rw]

  property OnMeasureCell: TKGridMeasureCellEvent; [rw]

  property OnMouseCellHint: TKGridCellHintEvent; [rw]

  property OnMouseClickCell: TKGridCellEvent; [rw]

  property OnMouseDblClickCell: TKGridCellEvent; [rw]

  property OnMouseEnterCell: TKGridCellEvent; [rw]

  property OnMouseLeaveCell: TKGridCellEvent; [rw]

  property OnRowHeightsChanged: TNotifyEvent; [rw]

  property OnRowHeightsChangedEx: TKGridExtentEvent; [rw]

  property OnRowMoved: TKGridMovedEvent; [rw]

  property OnSelectCell: TKGridSelectCellEvent; [rw]

  property OnSelectionExpand: TKGridSelectionExpandEvent; [rw]

  property OnSelectionChanged: TNotifyEvent; [rw]

  property OnSizeChanged: TKGridSizeChangedEvent; [rw]

  property OnTopLeftChanged: TNotifyEvent; [rw]

end;

TKCustomGrid

TKCustomControl

TObject