Desplegar bmps en celdas de xbrowse (solucionado)

[jose_murugosa]

Hola,

Como se despliega un bmp en una celda?
La idea es que en un xbrowse agrego una columna que en base a una función, devuelve un bmp, el cual se despliega en la celda del xbrowse.
He hecho sin éxito algunas pruebas con este código:

Code: Select all  Expand view

SET RESOURCES TO midll.dll

......
colbmp:=oBrw:AddCol()
colbmp:cHeader := "Smf"
WITH OBJECT :oCol( "Smf" )
:bBmpData := { || SelBmp() }
:nDataBmpAlign := AL_LEFT
:nWidth := 30
:AddResource("verde")
:AddResource("amarillo")
:AddResource("rojo")
:AddResource("transparente")
......


FUNCTION SelBmp()
    LOCAL hbmp
    IF DATOS->pesocarne*100/DATOS->peso >= 60
        hbmp := 1       //verde
    ELSEIF DATOS->pesocarne*100/DATOS->peso < 60 .and. DATOS->pesocarne*100/DATOS->peso >= 40
        hbmp := 2       //amarillo
    ELSEIF DATOS->pesocarne*100/DATOS->peso >=1 .and. DATOS->porcent < 40
        hbmp := 3       //rojo
    ELSE
        hbmp := 4       //transparente
    ENDIF

 

En midll.dll tengo los bmps con esos nombres (verde, amarillo .. etc )

no me da error ni nada, pero no despliega los bmps

[VitalJavier]

Jose, yo hago algo parecido

Code: Select all  Expand view

    oBrow:aCols[12]:AddResource("B_ON")
    oBrow:aCols[12]:AddResource("B_OFF")
    oBrow:aCols[12]:bBmpData            := { || IIF(RetornaExistencia(),2,1) }        
 

Espero y te sirva. Saludos.

[Manuel Aranda]

//
oCol := oLbxTc:AddCol()
oCol:AddResource("LEVELB")
oCol:AddResource("LEVELAZ")
oCol:bBmpData := { || IIF(DATOS->Anotacion=" ",1,2 )}
oCol:cHeader := "Not"
AADD(aCols,6)
//

[jose_murugosa]

Javier y Manuel, gracias mil por responder.

Haré unas pruebas y comento

[jose_murugosa]

Bueno, he probado y no logro que se vean los bmps, les adjunto un ejemplo autocontenido de el problema y el exe que resulta de compilar.

https://mega.nz/#!BB0kULLS!ZDM1FGxFmzvz2IqD_MtH3voRRfsIxR5mjmYX_-RWxmc

Gracias nuevamente por vuestra buena voluntad en ayudarme

[Manuel Aranda]

Sólo por probar, ¿has probado a cambiar el orden de las líneas de código de esta forma?

WITH OBJECT Col( "Smf" )
:AddResource("verde")
:AddResource("amarillo")
:AddResource("rojo")
:AddResource("transparente")
:bBmpData := { || SelBmp() }
:nDataBmpAlign := AL_LEFT
:nWidth := 30

[jose_murugosa]

Gracias nuevamente por tu respuesta Manuel,

Efectivamente lo he probado sin resultados, de todos modos hice un copy/paste del código tal como me lo enviaste y recompilé y el resultado es el mismo

La verdad, es que no me doy cuenta aún cual podría ser el error.

[VitalJavier]

Jose

Prueba poniendo

:bBmpData := { || 1 }

Debe ponerte el color Verde

[VitalJavier]

Jose mándame tu correo y te mando un demo que acabo de hacer

[jose_murugosa]

Muuuchas gracias, mi correo es jmurugosa arroba gmail punto com.

[VitalJavier]

Jose, tu correo no me acepta, esta bien escrito ?

[jose_murugosa]

jmurugosa@gmail.com
jmurugosa@hotmail.com
jmurugosa@live.com
jmurugosa@outlook.com

Puedes enviarlo a cualquiera de estos

Gracias desde ya Javier!!!!

[FranciscoA]

José.
No sé si ya lo resolviste, pero si uso cualquier .dll de las que tienen mis programas y renombre algunos recursos con los nombres de los tuyos, y renombro la .dll como la tuya, tu codigo funciona perfectamente. Mis .dll son creadas con PellesC.

Es decir, uso tu ejecutable con mi .dll, y funciona bien.
Saludos.

[jose_murugosa]

No, aún no lo solucioné, pero arrojas luz a mi situación

Lo revisaré, quizá ese sea el problema.

Muchas gracias por tomarte tu tiempo para hacer las pruebas y brindarme esta ayuda gracias también a todos los que me han aportado ideas, lo revisaré y te cuento.

[jose_murugosa]

Muuuuchas Gracias a Todos!!!!!

Francisco!!!!! efectivamente era un problema del recurso, y yo me volvía loco y no lograba resultados, volví a guardar el recurso, ahora con pellesc (yo uso otro editor de recursos) y el resultado fue excelente.

Muuuuchas gracias.