FoxPro/Visual FoxPro - Imagen dentro del Grid

Como logro colocar imagenes dentro de las filas de un Grid, dependiendo de un valor de tabla. Ej: Activo, Inactivo, Retirado, Supendido, Vacación.

Lo que pides esta bastante dificil de lograr en fox.
Te cuento:

1- Cuando usas imagenes en un grid, este trabaja exageradamente
lento, es decir, este control no esta diseñado para hacer ese tipo
de trabajo. Asi que si te vas por esta opcion procura que las
imagenes sean pequeñas. El otro problema que miro es si quieres
que se pueda actualizar, es decir, cambiar la figurita si cambias el
valor de un campo mientras se corre el programa. En la proxima
respuesta te pongo como hacer esto en el grid (por problemas de
espacio).

2- Tu otra opcion es usar un listbox, aqui el asunto no sera lento, pero
no puedes actualizar datos directamente sobre el control. Tendras
que usar textboxes sobre la forma que te permitan actualizar los datos.
Otro problemita es que todas las figuras deberan ser del mismo
tamaño y pequeñas (para que no se mire feo). Para mas informacion
de como hacerlo con esta opcion busca en el foro de fox avanzado
en la segunda pagina la pregunta con el nombre 'Manejo de
imàgenes en grid' hecha por Akiko. Ah, se me olvidaba aqui tendras
el problema de actualizar las imagenes en tiempo de ejecucion, es
mas probable llevar a cabo esta parte en el grid que en listbox.

COMO PONER IMAGENES EN UN GRID:
Codigo Cetin Basoz

Instrucciones:

- Pon el codigo en un prg

- cuando se corra el codigo deberas escoger un directorio donde se
encuentren las imagenes

lcPath = getdir()
lnFiles = adir(aImageList, lcPath+'*.*')
Create cursor myImageList (FileName m)
For ix=1 to alen(aImageList,1)
Insert into myImageList values (lcPath+aImageList[ix,1])
Endfor
Go top
oForm = createobject('myForm')
With oForm
.Lockscreen = .t.
.Height = 400
.Width = 600
.Addobject('myGrid','Grid')
.Addobject('clbutton','closebutton')
.clbutton.visible = .t.
With .myGrid
.Left = 0
.Top = 20
.Height = 370
.Width = 590
.Columncount = -1
.Recordsource = 'myImageList'
.Columncount = 2
.RowHeight = .RowHeight * 7
With .Columns(2)
.Addobject('myContainer','Container')
.CurrentControl = 'myContainer'
.Sparse = .f.
With .myContainer
.Addobject('myImage','Image')
.myImage.Visible = .t.
Endwith
.Dynamicbackcolor = 'thisform.fake()'
Endwith
.Visible = .t.
Endwith
.Lockscreen = .f.
Endwith
oForm.Show
Read events

Define class myForm as Form
Procedure fake
Thisform.myGrid.Columns(2).myContainer.myImage.Picture = myImageList.FileName
Return thisform.myGrid.Backcolor
Endproc
Enddefine
Define class CloseButton as commandbu

Height = 15
Caption ='close'
Procedure click
Clear events
Thisform.release
Endproc
Enddefine