Page 1 of 1
BMP en xBrowse?
Posted: Tue Jan 02, 2024 1:45 am
by 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
Re: BMP en xBrowse?
Posted: Tue Jan 02, 2024 11:23 am
by Manuel Aranda
Hola Armando,
Te pongo ejemplo con 2 BMP,s
Code: Select all | Expand
//
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
Re: BMP en xBrowse?
Posted: Tue Jan 02, 2024 12:25 pm
by cmsoft
Yo tengo algo así:
Code: Select all | Expand
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
Re: BMP en xBrowse?
Posted: Tue Jan 02, 2024 4:13 pm
by 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
Re: BMP en xBrowse?
Posted: Tue Jan 02, 2024 4:55 pm
by JoseAlvarez
cmsoft wrote:Yo tengo algo así:
Code: Select all | Expand
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.
Re: BMP en xBrowse?
Posted: Tue Jan 02, 2024 5:09 pm
by 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
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
Re: BMP en xBrowse?
Posted: Wed Jan 10, 2024 5:30 pm
by nageswaragunupudi
This code:
Code: Select all | Expand
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
oBrw:aCols[2]:AddBitMap( { 'PEND', 'VISADA', 'DISPO', 'NDISPO', 'DEV', 'ACEPT', 'RECH', 'INGR', 'RENU' } )
Re: BMP en xBrowse?
Posted: Wed Jan 10, 2024 7:20 pm
by Armando
Mr. Rao:
Thanks again.
Regards