Grilla Farpoint Spread 7 u 8

[Fito]

Hola Amigos:

A raíz de una pregunta que hizo un colega cobolero que utiliza esta grilla, muy linda para decir. Tiene la necesidad de cargar imágenes en las celdas.

Este componente tiene esa utilidad pero el problema es que para asignarle la imagen a la celda utiliza un tipo de dato imagen, que en los ejemplos de VB que trae, utiliza un método del propio Activex, LoadPicture. En VB es sencillo porque pueden utilizarlo a manera de función y además ese tipo de dato debe existir en VB.

Estuve buscando Info en este foro y encontré un post que mencionaron este problema con otro colega que quería insertar imágenes en un archivo de Word. Pero la solución no está desarrollada y aparentemente no la hay según leí ahí. La única diferencia en este caso es que el método LoadPicture está en el OCX y ahí no.

Hago propia la necesidad de este colega, porque me interesó mucho la idea de poder utilizar algo así. Estuve renegando bastante y no logré absolutamente nada.

Si hay algún colega que tengo alguna idea de cómo seguir, agradecería el aporte.

Saludos.

Fito...

[Kuk]

@Fito, teoricamente se puede cargar una imagen via WinAPI, y pasarle el Handle a la función que la coge para cargar en la grilla

[Nitzer]

Hola equipo, llevo dias de trabajo a tope :(, no pude enviar nada al concurso y me duele.
Sobre esto que comentáis os quiero contar una cosa, pero creo que voy a crear un nuevo tema, por la "importancia" que creo, tiene, al menos a mi me lo ha parecido.
Voy a abrir el tema.

[Fito]

Hola: eso que decís KUK lo pensé y estaba seguro de que se podía. Pero mi sapiencia no llega a tanto, no sabría cómo hacerlo.

Saludos

Fito...

[Kuk]

@Fito, muéstranos el método que recibe la imagen en VB, te ayudamos ;)

[Fito]

Hola:

Retomo el posteo, porque ahora estoy ncesitando resolver.


' Especificar una celda
fpSpread1.Col = 2
fpSpread1.Row = 3
' Cambiar la altura de la fila para mostrar la imagen
fpSpread1.RowHeight(3) = 25
' Establecer el ancho de la columna
fpSpread1.ColWidth(2) = 5
' Define el tipo de célula como imagen
fpSpread1.CellType = CellTypePicture
' Mostrar una imagen
fpSpread1.TypePictPicture = LoadPicture("C:\Samples\Files\BELL.BMP")
' Configurar la imagen para que se estire y se ajuste al tamaño de la celda
fpSpread1.TypePictStretch = True
' ' Configura la imagen para que mantenga proporcionalmente su ancho y altura cuando se estireConfigure la imagen para que mantenga proporcionalmente su ancho y altura cuando se estire
fpSpread1.TypePictMaintainScale = True


Este es el código ejemplo. El probema está en que la propiedad "TypePictPictute" es tipo image.

Saludos

Fito...

[Kuk]

@Fito, cómo trata la grilla, vía COM/OLE o directamente invocando métodos?

Siguiendo con lo que decía en mi post anterior, se puede cargar la imagen con WinAPI y pasarle el Handle a la propiedad TypePictPicture: Función LoadImageA (winuser.h) - Win32 apps | Microsoft Learn (https://learn.microsoft.com/es-es/windows/win32/api/winuser/nf-winuser-loadimagea)

[Fito]

Hola @Kuk,

La grilla se incrusta en el formulario y la manejo invocando sus metodos.

La uso como detalle para cargar una orden de compra y me gustaría que en una de sus columnas (la marcada de rojo en la imagen) se vea la imagen del producto

Adjunto captura de pantalla.

Saludos.

Fito...

[fastpho]

@Fito Funciono pasando desde el control CmImage1 del pwc a la celda

*> columna 3 es la imagen
move 3 to "Col" OF fpSpread1.
move 1 to "Row" OF fpSpread1.
move 9 to "CellType" OF fpSpread1.



* move "Image" OF CmImage2 to "TypePictPicture" OF fpSpread1. *>ico
* move "Image" OF CmImage3 to "TypePictPicture" OF fpSpread1. *>bmp
move "Image" OF CmImage4 to "TypePictPicture" OF fpSpread1. *>jpg
move 250 to "ColWidth"(3) OF fpSpread1.
move 250 to "RowHeight"(1) OF fpSpread1.


Saludos ...

[Fito]

Hola Osvaldo:

En algún momento consideré esa opción, pero no llegué a concretarla. Anda perfecto, lo único que en vez de utilizar en control que trae power, usé otro que me permite trabaja con archvos PNG, pero lo hoce exactamente como vos decís.

Muchas gracias.

Saludos...

Fito