FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Desplegar bmps en celdas de xbrowse (solucionado)
jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Desplegar bmps en celdas de xbrowse (solucionado)
Posted: Tue Jul 05, 2016 11:57 AM
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 (fw): Select all Collapse
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 :-)
Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"
VitalJavier
Posts: 257
Joined: Mon Jun 10, 2013 06:40 PM
Re: Desplegar bmps en celdas de xbrowse
Posted: Tue Jul 05, 2016 02:49 PM
Jose, yo hago algo parecido

Code (fw): Select all Collapse
    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
Posts: 610
Joined: Wed Oct 19, 2005 08:20 PM
Re: Desplegar bmps en celdas de xbrowse
Posted: Wed Jul 06, 2016 06:27 AM

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

Un saludo,

Manuel



xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Desplegar bmps en celdas de xbrowse
Posted: Wed Jul 06, 2016 09:27 AM

Javier y Manuel, gracias mil por responder.

Haré unas pruebas y comento :)

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"
jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Desplegar bmps en celdas de xbrowse
Posted: Wed Jul 06, 2016 11:51 AM
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 :-)
Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"
Manuel Aranda
Posts: 610
Joined: Wed Oct 19, 2005 08:20 PM
Re: Desplegar bmps en celdas de xbrowse
Posted: Wed Jul 06, 2016 05:37 PM

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

Un saludo,

Manuel



xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Desplegar bmps en celdas de xbrowse
Posted: Wed Jul 06, 2016 05:57 PM

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. :oops:

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"
VitalJavier
Posts: 257
Joined: Mon Jun 10, 2013 06:40 PM
Re: Desplegar bmps en celdas de xbrowse
Posted: Wed Jul 06, 2016 06:26 PM

Jose

Prueba poniendo

:bBmpData := { || 1 }

Debe ponerte el color Verde

VitalJavier
Posts: 257
Joined: Mon Jun 10, 2013 06:40 PM
Re: Desplegar bmps en celdas de xbrowse
Posted: Wed Jul 06, 2016 06:59 PM

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

jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Desplegar bmps en celdas de xbrowse
Posted: Wed Jul 06, 2016 09:20 PM

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

:)

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"
VitalJavier
Posts: 257
Joined: Mon Jun 10, 2013 06:40 PM
Re: Desplegar bmps en celdas de xbrowse
Posted: Thu Jul 07, 2016 03:28 PM

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

jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Desplegar bmps en celdas de xbrowse
Posted: Thu Jul 07, 2016 05:51 PM
jmurugosa@gmail.com
jmurugosa@hotmail.com
jmurugosa@live.com
jmurugosa@outlook.com


Puedes enviarlo a cualquiera de estos :-)

Gracias desde ya Javier!!!!
Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"
FranciscoA
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Desplegar bmps en celdas de xbrowse
Posted: Wed Jul 13, 2016 02:41 AM

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.

Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Desplegar bmps en celdas de xbrowse
Posted: Wed Jul 13, 2016 10:52 AM

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.

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"
jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: Desplegar bmps en celdas de xbrowse
Posted: Wed Jul 13, 2016 01:54 PM

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.

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"

Continue the discussion

Static archive · New replies & topics via GitHub Discussions