BMP en xBrowse?

[Armando]

Foreros:

Antes que nada, quiero desearles un año 2024 lleno de salud y trabajo, el resto viene por añadidura.

Les cuento, tengo un xBrowse y en una columna llamada estatus quiero mostrar un BMP dependiendo
del estatus del registro, pueden ser hasta 5 diferentes BMPs, algún ejemplo?

Saludos, ánimo

[Manuel Aranda]

Hola Armando,

Te pongo ejemplo con 2 BMP,s

Code: Select all  Expand view

   //
   oCol := oLbxTc:AddCol()
   oCol:AddResource("LEVELJ")
   oCol:AddResource("LEVELGC")
   oCol:bBmpData   := { || IIF(SSTC28C->MODOCO="J",1,2 )}
   oCol:cHeader   := "Ctz."
   AADD(aCols,5)
   //  
 

No sé si podrás tirar de ahí para lo que pretendes

[cmsoft]

Yo tengo algo así:

Code: Select all  Expand view

     oBrw:aCols[2]:bStrData := {|| ""}
     oBrw:aCols[2]:AddBitMap( 'BITMAPS\PEND.BMP' )
     oBrw:aCols[2]:AddBitMap( 'BITMAPS\VISADA.BMP' )
     oBrw:aCols[2]:AddBitMap( 'BITMAPS\DISPO.BMP' )
     oBrw:aCols[2]:AddBitMap( 'BITMAPS\NDISPO.BMP' )
     oBrw:aCols[2]:AddBitMap( 'BITMAPS\DEV.BMP' )
     oBrw:aCols[2]:AddBitMap( 'BITMAPS\ACEPT.BMP' )
     oBrw:aCols[2]:AddBitMap( 'BITMAPS\RECH.BMP' )
     oBrw:aCols[2]:AddBitMap( 'BITMAPS\INGR.BMP' )
     oBrw:aCols[2]:AddBitMap( 'BITMAPS\RENU.BMP' )    
     oBrw:aCols[2]:bBmpData := {|| oQryBrw:estado  }
 

La columna 2 tiene 9 posibles estados y muestro un bmp según el estado. Con bStrData := {||""} no muestro el texto
El dato guardado en estado es un numero de 1 a 9
Espero que te sirva

[Armando]

Amigos:

Manuel, gracias por el código, veo que solo hay dos posibles estatus y yo tengo hasta 5
por lo que voy a probar con el código de César.

Gracias a ambos

[JoseAlvarez]

Yo tengo algo así:

Code: Select all  Expand view

     oBrw:aCols[2]:bStrData := {|| ""}
     oBrw:aCols[2]:AddBitMap( 'BITMAPS\PEND.BMP' )
     oBrw:aCols[2]:AddBitMap( 'BITMAPS\VISADA.BMP' )
     oBrw:aCols[2]:AddBitMap( 'BITMAPS\DISPO.BMP' )
     oBrw:aCols[2]:AddBitMap( 'BITMAPS\NDISPO.BMP' )
     oBrw:aCols[2]:AddBitMap( 'BITMAPS\DEV.BMP' )
     oBrw:aCols[2]:AddBitMap( 'BITMAPS\ACEPT.BMP' )
     oBrw:aCols[2]:AddBitMap( 'BITMAPS\RECH.BMP' )
     oBrw:aCols[2]:AddBitMap( 'BITMAPS\INGR.BMP' )
     oBrw:aCols[2]:AddBitMap( 'BITMAPS\RENU.BMP' )    
     oBrw:aCols[2]:bBmpData := {|| oQryBrw:estado  }
 

La columna 2 tiene 9 posibles estados y muestro un bmp según el estado. Con bStrData := {||""} no muestro el texto
El dato guardado en estado es un numero de 1 a 9
Espero que te sirva

Feliz año nuevo a todos, amigos del foro! Mis mejores deseos para quienes formamos esta maravillosa comunidad!

César, saludos amigo.
Interesante el código que muestras, tengo 2 preguntas al respecto:

1. Como lo hago con imagenes desde recursos?
2. Entiendo que por cada fila se agregan los 9 elementos y al momento de mostrar se ve el que corresponda en posicion con la variable estado. Es asi? O estoy entendiendo mal? Lo que me llama la atención es que se puedan guardar varios elementos en una misma celda.

[Armando]

José:

Con el permiso de Cesar y Manuel, esa te la respondo yo

Obviamente ya debes tener los BMPs en tu archivo de recursos y luego basta con
quitar el path y hasta la extensión

Code: Select all  Expand view

     oBrw:aCols[2]:bStrData := {|| ""}
     oBrw:aCols[2]:AddBitMap( 'PEND' )
     oBrw:aCols[2]:AddBitMap( 'VISADA' )
     oBrw:aCols[2]:AddBitMap( 'DISPO' )
     oBrw:aCols[2]:AddBitMap( 'NDISPO' )
     oBrw:aCols[2]:AddBitMap( 'DEV' )
     oBrw:aCols[2]:AddBitMap( 'ACEPT' )
     oBrw:aCols[2]:AddBitMap( 'RECH' )
     oBrw:aCols[2]:AddBitMap( 'INGR' )
     oBrw:aCols[2]:AddBitMap( 'RENU' )    
     oBrw:aCols[2]:bBmpData := {|| oQryBrw:estado  }
 

Listo, saludos

[nageswaragunupudi]

This code:

Code: Select all  Expand view

    oBrw:aCols[2]:AddBitMap( 'PEND' )
     oBrw:aCols[2]:AddBitMap( 'VISADA' )
     oBrw:aCols[2]:AddBitMap( 'DISPO' )
     oBrw:aCols[2]:AddBitMap( 'NDISPO' )
     oBrw:aCols[2]:AddBitMap( 'DEV' )
     oBrw:aCols[2]:AddBitMap( 'ACEPT' )
     oBrw:aCols[2]:AddBitMap( 'RECH' )
     oBrw:aCols[2]:AddBitMap( 'INGR' )
     oBrw:aCols[2]:AddBitMap( 'RENU' )

Can be simplified as:

Code: Select all  Expand view

oBrw:aCols[2]:AddBitMap( { 'PEND', 'VISADA', 'DISPO', 'NDISPO', 'DEV', 'ACEPT', 'RECH', 'INGR', 'RENU' } )

[Armando]

Mr. Rao:

Thanks again.

Regards