Agregar imagen a un grid con Visual foxpro

Como agregar imagen en un Grid

Muchos son los comentarios referente a Grid para poder mostrar imágenes en Visual Foxpro. Vamos a explicar de la mejor forma posible como podemos ingresar una imagen dentro de un Grid.

Este pequeño ejemplo te ilustrará a como debemos mejorar la presentación de los Grid en los formularios, podrás aprender como visualizar los registros en diferentes colores como se aprecia en la imagen.

En el Grid se muestran una serie de registros en el cual podrás desplazarte arriba o abajo y poder observar como se desplazan cada uno de ellos mostrando los diferentes valores que poseen cada uno de los registros con sus respectivas imágenes. Podrás presionar el Mouse dandole doble Click y te mostrará un mensaje con el código del producto el cual seleccionaste.

También se verá la manera de agregarle  color realizando un pequeño truco como el que aparece en la parte inferior:

"IIF(MOD(RECNO( ), 2)=0, RGB(0,0,248)    , RGB(18,18,156))", "Column")

Esta instrucción compara si el registro es par o impar y dependiendo del valor le asignará el color el cual le hayamos asignado previamente.

Este ejemplo se basa en una clase la cual te permite mostrar los diferentes campos que aparecen en la figura.

Deberás dar doble Click sobre la clase y te aparecerá los siguientes pasos:

Debes crear un Método con el nombre backstyle_access y colocar este código :

*To do: Modify this routine for the Access method
SELECT productos
this.text1.Enabled =.f.
this.text2.Enabled =.f.
this.text3.Enabled =.f.
this.text4.Enabled =.f.
this.text5.Enabled =.f.
this.text1.DisabledForeColor = RGB(255,255,255)
this.text2.DisabledForeColor = RGB(255,255,255)
this.text3.DisabledForeColor = RGB(255,255,255)
this.text4.DisabledForeColor = RGB(255,255,255)
this.text5.DisabledForeColor = RGB(255,255,0)

this.text1.value=productos.descripcio
this.text2.Value=productos.pventa
this.text3.Value=productos.depto
this.text4.Value=productos.cant
this.text5.Value=productos.codigo
this.image1.Picture=foto

RETURN THIS.BACKSTYLE

Mediante estas instrucciones podrás mostrar todos los registros existentes en tu tabla .

Muchos programadores tienen problemas en el cual se les muestra un solo registro y es debido a esto, al nombre de la propiedad backstyle_access

En la parte inicial del formulario en el evento init debes colocar :

Select productos
Go Top
With Thisform.grid1
.RecordSource ="productos" && Tabla
.ColumnCount = 1     
.AllowCellSelection = .F. && Para seleccionar todo
.GridLines = 3 && Linea deshabilitada
.DeleteMark = .F. && deshabilitada el Mark para Borrar
.FontName = "Tahoma" && Tipo de letra
.RowHeight = 20     && Tamaño entre registro
.AllowHeaderSizing = .T. && Tamaño de la cabecera
.GridLineColor = Rgb(240,240,255) 
.FontSize = 8
.scrollbars=2
***Detalle de la Columna 1
.column1.WIDTH = 1350
.column1.header1.CAPTION = ""
.column1.SPARSE = .F.
.column1.header1.Alignment = 4
.column1.header1.FontBold = .T. 
.SetAll("DynamicBackColor", ;
"IIF(MOD(RECNO( ), 2)=0, RGB(0,0,248)    , RGB(18,18,156))", "Column")   
.RowHeight = 70
.autofit
Endwith

Thisform.Refresh

También te puede interesar menu estilo css en visual foxpro.

Para poder descargar el programa deberás completar la acción y se descargará automáticamente.