TplDBControlGrid

type TplDBControlGrid = class(TCustomGrid)

protected

  function GetBufferCount; virtual;

  procedure DoEnter; override;

  procedure DoExit; override;

  procedure DoGridResize;

  procedure DoOnResize; override;

  procedure DrawAllRows; override;

  procedure DrawRow(); override;

  procedure DrawCell(); override;

  procedure DrawIndicator(); virtual;

  procedure GridMouseWheel(); override;

  procedure KeyDown(); override;

  procedure LinkActive(); virtual;

  procedure LayoutChanged; virtual;

  procedure MouseDown(); override;

  procedure MouseUp(); override;

  procedure MoveSelection; override;

  procedure Notification(); override;

  procedure PrepareCanvas(); override;

  procedure ResetSizes; override;

  procedure SetColor(); override;

  procedure UpdateActive; virtual;

  procedure UpdateData; virtual;

  procedure UpdateShowing; override;

  procedure UpdateVertScrollbar(); override;

  procedure DoOnChangeBounds; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  function MouseToRecordOffset();

  function ExecuteAction(); override;

  function UpdateAction(); override;

  property Datalink: TplDBControlGridDataLink; [r]

  procedure RefreshImagesCycle;

published

  property Align;

  property AlternateColor;

  property AltColorStartNormal;

  property Anchors;

  property BiDiMode;

  property BorderSpacing;

  property BorderStyle;

  property CellHintPriority;

  property Color;

  property Constraints;

  property DataSource: TDataSource; [rw]

  property DefaultPositionAtEnd: Boolean; [rw]

  property DragCursor;

  property DragMode;

  property DrawPanel: TWinControl; [rw]

  property Enabled;

  property FixedColor;

  property FixedCols;

  property Flat;

  property Font;

  property Options: TDCGPanelGridOptions; [rw]

  property ParentBiDiMode;

  property ParentColor;

  property ParentFont;

  property PopupMenu;

  property Scrollbars;

  property ShowHint;

  property TabOrder;

  property TabStop;

  property UseXORFeatures;

  property Visible;

  property OnContextPopup;

  property OnDblClick;

  property OnDragDrop;

  property OnDragOver;

  property OnEndDrag;

  property OnEnter;

  property OnExit;

  property OnGetCellHint;

  property OnKeyDown;

  property OnKeyPress;

  property OnKeyUp;

  property OnKeyDownHander: TDCGKeyDownHandler; [rw]

  property OnMouseDown;

  property OnMouseEnter;

  property OnMouseLeave;

  property OnMouseMove;

  property OnMouseUp;

  property OnMouseWheel;

  property OnMouseWheelDown;

  property OnMouseWheelUp;

  property OnPrepareCanvas;

  property OnStartDrag;

  property OnUTF8KeyPress;

  property OnUpdateActive: TNotifyEvent; [rw]

  property SelectedRowIndicatorColor: TColor; [rw]

  property KeyField: string; [rw]

end;

TplDBControlGrid

TObject