Dear Sir,

I am using VFP6. To make current row/record bold in grid, I took the following codes from a website. These codes work fine as prg but I want to use it with a grid on form.

What should I do write on following

form1.Init
grid1.Init
grid1.AfterRowColChange

Please help

CLOSE ALL
USE HOME(1) + "labels"

loForm = CREATEOBJECT("Form")
loForm.AddObject("grid1", "grdBold")
loForm.Grid1.SetAll("DynamicFontBold", "RECNO() = This.nBoldRow")
loForm.grid1.Visible = .T.
loform.autocenter=.t.
loForm.Show(1)

DEFINE CLASS grdBold as Grid
	nBoldRow = 0
	PROCEDURE AfterRowColChange
		LPARAMETERS nColIndex
		This.nBoldRow = RECNO()
		This.Refresh
	ENDPROC 
ENDDEFINE