Slighthaze = [color blue]NULL[/color]
[img http://www.sweetpotatosoftware.com/ttimages/multigrid.gif]
[color green]
*!*Here's some runable code, I think it pretty much speaks
*!*for itself so I won't be adding a lot of comments
*!*The two lines of code that really do the work are
*!* .SETALL('DynamicBackColor', 'IIF(selecter, RGB(0,219,219), RGB(255,255,255))', 'COLUMN')
*!* KEYBOARD '{DNARROW}'
*!*just cut-n-paste into a prg and run it from in VFP:
[/color]
PUBLIC oForm
oForm= CREATEOBJECT('clsmultigrid')
oForm.ADDOBJECT('Grid1','Grid')
WITH oForm.Grid1
.COLUMNCOUNT = 3
.HEIGHT = 288
.PANEL = 1
.WIDTH = 320
.LEFT = 24
.TOP = 24
.Column1.WIDTH = 17
.Column1.NAME = "Column1"
.Column1.Header1.CAPTION = ""
.Column1.ADDOBJECT('Check1','clscheck')
.Column1.Check1.VISIBLE = .T.
.Column1.CURRENTCONTROL = 'Check1'
.Column1.Text1.VISIBLE = .F.
.Column1.REMOVEOBJECT('Text1')
.Column1.SPARSE = .F.
.Column2.WIDTH = 148
.Column2.NAME = "Column2"
.Column2.Header1.CAPTION = "NAME"
.Column3.WIDTH = 114
.Column3.NAME = "Column3"
.Column3.Header1.CAPTION = "PHONE"
.Column3.FORMAT = "R"
.Column3.INPUTMASK = "(###)###-####"
.SETALL('DynamicBackColor', 'IIF(selecter, RGB(0,219,219), RGB(255,255,255))', 'COLUMN')
.VISIBLE = .T.
ENDWITH
oForm.VISIBLE = .T.
DEFINE CLASS clsmultigrid AS FORM
TOP = 0
LEFT = 0
HEIGHT = 334
WIDTH = 376
DOCREATE = .T.
CAPTION = "Form"
WINDOWTYPE = 1
WINDOWSTATE = 0
NAME = "clsmultigrid"
PROCEDURE LOAD
CREATE CURSOR crsTemp (selecter L, thename c(25), thephone c(10))
INSERT INTO crsTemp (selecter, thename, thephone) VALUES (.F., "JOHN SMITH", "1111111111")
INSERT INTO crsTemp (selecter, thename, thephone) VALUES (.F., "AMY SUTTON", "2222222222")
INSERT INTO crsTemp (selecter, thename, thephone) VALUES (.F., "BILL BRADLEY", "3333333333")
INSERT INTO crsTemp (selecter, thename, thephone) VALUES (.F., "LUCY LUI", "4444444444")
INSERT INTO crsTemp (selecter, thename, thephone) VALUES (.F., "CHUCK NORRIS", "5555555555")
INSERT INTO crsTemp (selecter, thename, thephone) VALUES (.F., "BRUCE LEE", "6666666666")
INSERT INTO crsTemp (selecter, thename, thephone) VALUES (.F., "KATHERINE HEPBURN", "7777777777")
INSERT INTO crsTemp (selecter, thename, thephone) VALUES (.F., "JIM WALKER", "8888888888")
INSERT INTO crsTemp (selecter, thename, thephone) VALUES (.F., "SANDY LITTLETON", "9999999999")
GO TOP IN "crsTemp"
ENDPROC
ENDDEFINE
DEFINE CLASS clscheck AS CHECKBOX
HEIGHT = 17
WIDTH = 18
AUTOSIZE = .T.
CAPTION = ""
NAME = "clscheck"
PROCEDURE CLICK
IF DODEFAULT()
KEYBOARD '{DNARROW}'
ENDIF
ENDPROC
ENDDEFINE
