Do the same thing as a PRG but the propertie you use as a condition must be owned by the form instead of Grid i.e.

Create form.
Add a Grid in it.
Add a propertie nCurrentRow in form.

In init method of the form put:

thisform.Grid1.SetAll("DynamicFontBold", "RECNO() = thisform.nCurrentRow", "Column")

* In AfterRowColChange event of the Grid put:

thisform.nCurrentRow = RecNo()