Class TMVStringGrid (unit MVGrid)

Inherits from

TStringGrid

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

destructor Destroy;


procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState);


function GetMark(ACol, ARow: Longint): Boolean;

Paint grid as soon as possible;

procedure GetMarkColor(Color: Tcolor);


function GetValue(ACol, ARow: longint): variant;


procedure SetMark(ACol, ARow: Longint; Value :Boolean);


procedure SetValue(ACol, ARow: longint; const Value: variant);


procedure WMRButtonDown(var Info: TWMRButtonDown);

Paint grid ASAP;

Properties

property MarkColor : TColor

Published declarations

property RightClickSelect : Boolean


property Mark : Boolean


property Value : variant


Events

Variables

FFirstValue : PValueCelula;


FListPointer : PCellData;


FListStart : PCellData;


FMarkColor : TColor;

Private declarations

FRightClickSelect : Boolean;


FValuePointer : PValueCelula;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


destructor Destroy;


procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState);


function GetMark(ACol, ARow: Longint): Boolean;

Paint grid as soon as possible;


procedure GetMarkColor(Color: Tcolor);


function GetValue(ACol, ARow: longint): variant;


procedure SetMark(ACol, ARow: Longint; Value :Boolean);


procedure SetValue(ACol, ARow: longint; const Value: variant);


procedure WMRButtonDown(var Info: TWMRButtonDown);

Paint grid ASAP;


Properties


property MarkColor : TColor

Published declarations


property RightClickSelect : Boolean


property Mark : Boolean


property Value : variant


Events


Variables


FFirstValue : PValueCelula;


FListPointer : PCellData;


FListStart : PCellData;


FMarkColor : TColor;

Private declarations


FRightClickSelect : Boolean;


FValuePointer : PValueCelula;