USE HOME(1) + "labels" loForm = CREATEOBJECT("Form") loForm.AddObject("grid1", "grdBold") loForm.Grid1.SetAll("DynamicFontBold", "RECNO() = This.nBoldRow") loForm.grid1.Visible = .T. loForm.Show(1) DEFINE CLASS grdBold as Grid nBoldRow = 0 PROCEDURE AfterRowColChange LPARAMETERS nColIndex This.nBoldRow = RECNO() This.Refresh ENDPROC ENDDEFINEYou might also want to look at the Grid.HighlightStyle property.
loForm = CREATEOBJECT("Form") loForm.AddObject("grid1", "grid") loForm.Grid1.HighlightStyle = 1 loForm.grid1.Visible = .T. loForm.Show(1)