Imagenes en Grid
Ricardo
Hola grupo.
Tengo una tabla con las rutas , nombres y extencion de imagenes que
quisiera mostrar en un grid, pero al concatenar y colocarlo en la propiedad
picture muestra siempre el primer registro.
� Como lo puedo solucionar? Gracias
Lic. J. Enrique Ramos Menchaca
con el siguiente c�digo:
*To do: Modify this routine for the Access method
this.PictureVal = EVALUATE(this._ControlSource)
RETURN THIS.BACKSTYLE
a dicha clase tambien le agregue una propiedad _ControlSource = ""
En el init del grid coloco el siguiente codigo:
This.ColumnCount = 2
this.RowHeight = 50
this.RecordSource = 'csrDisciplinas'
this.RecordSourceType = 1
WITH This.Columns(1)
.RemoveObject('Text1')
* .width = .width * 1.5
.width = This.Width / 2
.Header1.Caption = 'Disciplina'
.AddObject( 'cntimage','misclases.myImage')
.cntimage._controlsource = "csrDisciplinas.pic"
.cntimage.stretch = 1
.cntimage.Visible = .t.
.Sparse = .F.
.Enabled = .t.
.Currentcontrol = "cntimage"ENDWITH
El cursor csrDisciplinas lo lleno de la siguiente manera:
SELECT Disciplinacaballo.id, Disciplinas.nodisciplina,;
Disciplinas.disciplina, ;
CAST( ;
FILETOSTR( Disciplinas.Imagen ) ;
AS BLOB ) AS 'PIC', Disciplinacaballo.no_reg,;
Disciplinacaballo.aval;
FROM ;
ccdm!disciplinacaballo ;
LEFT OUTER JOIN ccdm!disciplinas ;
ON Disciplinas.nodisciplina == Disciplinacaballo.nodisciplina;
WHERE Disciplinacaballo.no_reg == ?lcRegistro;
ORDER BY Disciplinacaballo.nodisciplina;
into cursor csrDisciplinas READWRITE
Disciplinas.Imagen es un campo caracter donde se encuentra la ruta y el
nombre del archivo.
Este c�digo no es de mi autor�a, pero no recuerdo el autor.
--
Lic. J. Enrique Ramos Menchaca
Guadalajara, Jalisco, M�xico.
"Ricardo" <alvarez...@speedy.com.ar> escribi� en el mensaje de
noticias:ufwywkA$JHA....@TK2MSFTNGP02.phx.gbl...
> Hola grupo.
>
> Tengo una tabla con las rutas , nombres y extencion de imagenes que
> quisiera mostrar en un grid, pero al concatenar y colocarlo en la
> propiedad picture muestra siempre el primer registro.
>
> � Como lo puedo solucionar? Gracias
>
foxteban
Ricardo
Bueno yo probe poniendo en la tabla un campo general y otro de
caracter para poner la ruta del BMP, o JPG.
Al grid en el campo general debes poner un objeto imagen y en el campo
de caracteres pones la ruta en donde se encuentra el bmp. Vamos a
suponer que tienes un campo llamado logo G(4) , y un campo ruta c(40).
En el BeforeRowColChange o AfterRowColChange debe poner:
this.column3.image1.Picture=mitabla.ruta
y el Sparce de la column3 poner a Sparce .F.. Ahora cada registro
tiene su imagen por que va leyendo del campo ruta. la ubicacion del
archivo. Ok ?
Pruebalo
Saludos
Esteban
Alvarez
Gracias chicos, lo pondre en practica
"Ricardo" <alvarez...@speedy.com.ar> escribi� en el mensaje
news:ufwywkA$JHA....@TK2MSFTNGP02.phx.gbl...