Page 1 of 1
Desplegar bmps en celdas de xbrowse (solucionado)
Posted: Tue Jul 05, 2016 11:57 am
by 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
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
Re: Desplegar bmps en celdas de xbrowse
Posted: Tue Jul 05, 2016 2:49 pm
by VitalJavier
Jose, yo hago algo parecido
Code: Select all
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.
Re: Desplegar bmps en celdas de xbrowse
Posted: Wed Jul 06, 2016 6:27 am
by Manuel Aranda
//
oCol := oLbxTc:AddCol()
oCol:AddResource("LEVELB")
oCol:AddResource("LEVELAZ")
oCol:bBmpData := { || IIF(DATOS->Anotacion=" ",1,2 )}
oCol:cHeader := "Not"
AADD(aCols,6)
//
Re: Desplegar bmps en celdas de xbrowse
Posted: Wed Jul 06, 2016 9:27 am
by jose_murugosa
Javier y Manuel, gracias mil por responder.
Haré unas pruebas y comento
Re: Desplegar bmps en celdas de xbrowse
Posted: Wed Jul 06, 2016 11:51 am
by 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!ZDM1FGxFmzvz ... mYX_-RWxmc
Gracias nuevamente por vuestra buena voluntad en ayudarme
Re: Desplegar bmps en celdas de xbrowse
Posted: Wed Jul 06, 2016 5:37 pm
by Manuel Aranda
Sólo por probar, ¿has probado a cambiar el orden de las líneas de código de esta forma?
WITH OBJECT :oCol( "Smf" )
:AddResource("verde")
:AddResource("amarillo")
:AddResource("rojo")
:AddResource("transparente")
:bBmpData := { || SelBmp() }
:nDataBmpAlign := AL_LEFT
:nWidth := 30
Re: Desplegar bmps en celdas de xbrowse
Posted: Wed Jul 06, 2016 5:57 pm
by 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.
Re: Desplegar bmps en celdas de xbrowse
Posted: Wed Jul 06, 2016 6:26 pm
by VitalJavier
Jose
Prueba poniendo
:bBmpData := { || 1 }
Debe ponerte el color Verde
Re: Desplegar bmps en celdas de xbrowse
Posted: Wed Jul 06, 2016 6:59 pm
by VitalJavier
Jose mándame tu correo y te mando un demo que acabo de hacer
Re: Desplegar bmps en celdas de xbrowse
Posted: Wed Jul 06, 2016 9:20 pm
by jose_murugosa
Muuuchas gracias, mi correo es jmurugosa arroba gmail punto com.
Re: Desplegar bmps en celdas de xbrowse
Posted: Thu Jul 07, 2016 3:28 pm
by VitalJavier
Jose, tu correo no me acepta, esta bien escrito ?
Re: Desplegar bmps en celdas de xbrowse
Posted: Thu Jul 07, 2016 5:51 pm
by jose_murugosa
Puedes enviarlo a cualquiera de estos
Gracias desde ya Javier!!!!
Re: Desplegar bmps en celdas de xbrowse
Posted: Wed Jul 13, 2016 2:41 am
by 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.
Re: Desplegar bmps en celdas de xbrowse
Posted: Wed Jul 13, 2016 10:52 am
by 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.
Re: Desplegar bmps en celdas de xbrowse
Posted: Wed Jul 13, 2016 1:54 pm
by 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.