Con este código se puede desplegar un grid con casillas de verificación.
En un grid configuras las siguientes propiedades de la siguiente manera:
THISFORM.Tugrid.ColumnCount = 2 *O las que necesites.
THISFORM.Tugrid.DeleteMark = .F. *Oculta la casilla de delete.
THISFORM.Tugrid.GridLines = 0 *Sin líneas en el grid.
THISFORM.Tugrid.HighlighRow = .F. *Para que no resalte cada fila al enfocarla.
THISFORM.Tugrid.PanlelLink = .F. *Inhabilita el link del panel.
THISFORM.Tugrid.RecordMark = .F. *Oculta la marca de registro.
THISFORM.Tugrid.ScrollBars = 2 *Vertical.
THISFORM.Tugrid.SplitBar = .F. *SplitBar inhabilitada.
Luego en el formulario en tiempo de diseño le das click derecho al grid (Tugrid) y selecciones edit (editar). Ahora el grid (Tugrid) aparece con un recuadro celeste, sin que este recuadro desaparezca seleccionas el control casilla de verificación y lo marcas dentro de la columna en donde quieras que aparezca. Por defecto cada columna tiene un cuadro de texto como control por defecto. Luego configuras en tu grid lo siguiente:
THISFORM.Tugrid.Column1.CurrentControl = 'Check1'
* El nombre de la columna depende de cual quieras modificar, así también la casilla.
Estero te sirva
Revisa la imagen adjunto. Esta tiene un grid configurado de esta manera.
