Class TStringGridEx (unit strgrdex)

Inherits from

TStringGrid

Written By Tom Lee , Taiwan , Republic of China Ver 1.02 Last modify Date OCT 22 1996 Freeware Component For Delphi 2.0x E-Mail : tom@libra.aaa.hinet.net Home Page : http://www.aaa.hinet.net/delphi

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

destructor Destroy;


function GetSelectRow(RowValue:integer):Boolean;


function GetSelectRowCount:integer;


procedure SetSelectRow(RowValue:integer;Selected:Boolean);


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

Protected declarations

procedure KeyUp(var Key: Word; Shift: TShiftState);

Single Select

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


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


procedure DeSelectAll;


procedure SetCTL3D(value:Boolean);


procedure SetMultiSelect(value:Boolean);


procedure SetSelectedColor(value:TColor);


procedure SetSelectedTextColor(value:TColor);


Properties

property CTL3D : boolean

Published declarations

property MultiSelect : Boolean


property SelectedColor : TColor


property SelectedTextColor : TColor


Events

Variables

FCTL3D : boolean;

Private declarations

FLastRow : integer;


FMouseDownRow : integer;


FMultiSelect : Boolean;


FOriginRowCount : integer;


FSelectedColor : TColor;


FSelectedTextColor : TColor;


FSelectRows : TStrings;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


destructor Destroy;


function GetSelectRow(RowValue:integer):Boolean;


function GetSelectRowCount:integer;


procedure SetSelectRow(RowValue:integer;Selected:Boolean);


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

Protected declarations


procedure KeyUp(var Key: Word; Shift: TShiftState);

Single Select


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


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


procedure DeSelectAll;


procedure SetCTL3D(value:Boolean);


procedure SetMultiSelect(value:Boolean);


procedure SetSelectedColor(value:TColor);


procedure SetSelectedTextColor(value:TColor);


Properties


property CTL3D : boolean

Published declarations


property MultiSelect : Boolean


property SelectedColor : TColor


property SelectedTextColor : TColor


Events


Variables


FCTL3D : boolean;

Private declarations


FLastRow : integer;


FMouseDownRow : integer;


FMultiSelect : Boolean;


FOriginRowCount : integer;


FSelectedColor : TColor;


FSelectedTextColor : TColor;


FSelectRows : TStrings;