Amigos como están.
Tengo un problema que no puedo ver unas fotos en una grilla.
Les dejo el código que uso para ver si me pueden dar una mano.
Las fotos estan en una carpeta que se llama foto_articulos.
WITH thisform.pgf.page2.GRDarticulos
.ColumnCount = 10
.FontName= "tahoma"
.FontSize = 11
.column1.header1.Caption="Locker"
.column2.header1.Caption="Gaveta"
.column3.header1.Caption="Foto"
.column4.header1.Caption="OK"
.column5.header1.Caption="Cantidad"
.column6.header1.Caption="Rubro"
.column7.header1.Caption="Material"
.column8.header1.Caption="Descripcion"
.column9.header1.Caption="Codigo"
.column10.header1.Caption="Talle"
.column1.width=50
.column2.width=50
.column3.width=60
.column4.width=40
.column5.width=60
.column6.width=160
.column7.width=160
.column8.width=650
.column9.width=50
.column10.width=50
.column1.FontBold = .t.
.column2.FontBold = .t.
.column4.FontBold = .t.
.column1.FontSize=12
.column2.FontSize=12
.column5.FontSize=18
.column5.InputMask = "99999"
.column1.Alignment = 2
.column2.Alignment = 2
.column4.Alignment = 2
.column5.Alignment = 2
.column9.Alignment = 2
.column10.Alignment = 2
.column3.Sparse = .f.
.column3.RemoveObject("Text1")
.column3.AddObject("Img1","image")
.column3.ControlSource = ""
.column3.Img1.Picture = "&foto1"
.column3.DynamicCurrentControl= "&foto1"
.RowHeight = 50
.ReadOnly = .t.
.column4.ReadOnly = .f.
.column5.ReadOnly = .f.
ENDWITH
GRACIAS
*Walter Cómito*
Analista de Sistemas
MP 0397 C.P.C.I.P.C.
** *[email protected] <[email protected]>*
* [email protected] <[email protected]>*
*'* *+54 351 494.4667*
* 153.292.707*
*þ* *www.softram.com.ar <http://www.softram.com.ar/>*