Class TDBGridPlus (unit DBGridPlus)

Inherits from

TDBGrid

new DBGrid class

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure MouseToCell(X,Y:Integer; var ACol,ARow:Integer);


procedure DoOnColumnClick(Sender: TObject;Index:Integer;Button: TMouseButton; ShiftState:TShiftState;X,Y:Integer);


procedure DoOnColumnLeftClick(Sender: TObject;Index:Integer; ShiftState:TShiftState;X,Y:Integer);


procedure DoOnColumnMiddleClick(Sender: TObject;Index:Integer; ShiftState:TShiftState;X,Y:Integer);


procedure DoOnColumnRightClick(Sender: TObject;Index:Integer; ShiftState:TShiftState;X,Y:Integer);


procedure DrawColumnCell(const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);


function GetCurrentColumn:Integer;


function GetDefaultRowHeight: Integer;


function HighlightCell(DataCol, DataRow: Integer; const Value: string; AState: TGridDrawState): Boolean;


procedure LayoutChanged;


procedure MouseDown(Button: TMouseButton; ShiftState: TShiftState; X, Y: Integer);


procedure MouseMove(ShiftState: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; ShiftState: TShiftState; X, Y: Integer);


procedure RowHeightsChanged;


procedure SetDefaultRowHeight(Value: Integer);


procedure SetRowSizingAllowed(Value:Boolean);

////////////////

Properties

property CurrentColumn : Integer

property OnEditCellEvent:TOnEditCellEvent read FOnEditCellEvent write FOnEditCellEvent;

property DefaultRowHeight : Integer


property DrawGraphic : TgedmGraphic


property DrawMemo : TgedmMemo


property GridLineWidth :


property NativeClick : TdbeNativeClick


property RowSizingAllowed : Boolean


property Canvas :


property Row :


property SelectedRows :


property TopRow :


Events

event OnChangeDrawing : TChangeDrawingEvent


event OnColumnClick : TColumnClickEvent


event OnColumnLeftClick : TColumnClickSimpleEvent


event OnColumnMiddleClick : TColumnClickSimpleEvent


event OnColumnRightClick : TColumnClickSimpleEvent


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FButton : TMouseButton;


FColumnClick : integer;


FColumnClickControl : Boolean;


FDrawGraphic : TgedmGraphic;


FDrawMemo : TgedmMemo;


FNativeClick : TdbeNativeClick;


FNewDefaultRowHeight : Integer;


FOnChangeDrawing : TChangeDrawingEvent;


FOnColumnClick : TColumnClickEvent;


FOnColumnLeftClick : TColumnClickSimpleEvent;


FOnColumnMiddleClick : TColumnClickSimpleEvent;


FOnColumnRightClick : TColumnClickSimpleEvent;


FRowSizingAllowed : Boolean;


FShiftState : TShiftState;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure MouseToCell(X,Y:Integer; var ACol,ARow:Integer);


procedure DoOnColumnClick(Sender: TObject;Index:Integer;Button: TMouseButton; ShiftState:TShiftState;X,Y:Integer);


procedure DoOnColumnLeftClick(Sender: TObject;Index:Integer; ShiftState:TShiftState;X,Y:Integer);


procedure DoOnColumnMiddleClick(Sender: TObject;Index:Integer; ShiftState:TShiftState;X,Y:Integer);


procedure DoOnColumnRightClick(Sender: TObject;Index:Integer; ShiftState:TShiftState;X,Y:Integer);


procedure DrawColumnCell(const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);


function GetCurrentColumn:Integer;


function GetDefaultRowHeight: Integer;


function HighlightCell(DataCol, DataRow: Integer; const Value: string; AState: TGridDrawState): Boolean;


procedure LayoutChanged;


procedure MouseDown(Button: TMouseButton; ShiftState: TShiftState; X, Y: Integer);


procedure MouseMove(ShiftState: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; ShiftState: TShiftState; X, Y: Integer);


procedure RowHeightsChanged;


procedure SetDefaultRowHeight(Value: Integer);


procedure SetRowSizingAllowed(Value:Boolean);

////////////////


Properties


property CurrentColumn : Integer

property OnEditCellEvent:TOnEditCellEvent read FOnEditCellEvent write FOnEditCellEvent;


property DefaultRowHeight : Integer


property DrawGraphic : TgedmGraphic


property DrawMemo : TgedmMemo


property GridLineWidth :


property NativeClick : TdbeNativeClick


property RowSizingAllowed : Boolean


property Canvas :


property Row :


property SelectedRows :


property TopRow :


Events


event OnChangeDrawing : TChangeDrawingEvent


event OnColumnClick : TColumnClickEvent


event OnColumnLeftClick : TColumnClickSimpleEvent


event OnColumnMiddleClick : TColumnClickSimpleEvent


event OnColumnRightClick : TColumnClickSimpleEvent


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FButton : TMouseButton;


FColumnClick : integer;


FColumnClickControl : Boolean;


FDrawGraphic : TgedmGraphic;


FDrawMemo : TgedmMemo;


FNativeClick : TdbeNativeClick;


FNewDefaultRowHeight : Integer;


FOnChangeDrawing : TChangeDrawingEvent;


FOnColumnClick : TColumnClickEvent;


FOnColumnLeftClick : TColumnClickSimpleEvent;


FOnColumnMiddleClick : TColumnClickSimpleEvent;


FOnColumnRightClick : TColumnClickSimpleEvent;


FRowSizingAllowed : Boolean;


FShiftState : TShiftState;