Cambiar imagen de un BottonBMP en tiempo de ejecucion

Board index FiveWin para Harbour/xHarbour Cambiar imagen de un BottonBMP en tiempo de ejecucion

Posts: 654

Joined: Mon May 29, 2006 03:14 PM

Cambiar imagen de un BottonBMP en tiempo de ejecucion
Posted: Wed Jan 25, 2012 07:31 AM

Quisiera cambiar, en tiempo de ejecución, el bmp de un bottonBMP segun un criterio deseado.

Este código fuente me da error en ejecución:

Code (fw): Select all Collapse

Ok:=.T.
@ 35*25+5,225 BTNBMP OkBtn NAME "Ok_rojo" SIZE 20,20 OF ::oWndChild PIXEL ;
ACTION {Ok:=(.not.Ok),iif(Ok,OkBtn:cResName1:="Ok_rojo",OkBtn:cResName1:="Ok_verde"),OkBtn:Refresh()}

Fichero RC:
Ok_rojo BITMAP "ok_rojo.bmp"
Ok_verde BITMAP "ok_verde.bmp"

Me da este error:
Error description: Warning BASE/1004 Message not found: TBTNBMP:OK

Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013

Bayron

Posts: 883

Joined: Thu Dec 24, 2009 12:46 AM

Re: Cambiar imagen de un BottonBMP en tiempo de ejecucion
Posted: Wed Jan 25, 2012 11:09 AM

Code (fw): Select all Collapse

oBtnF[x]:SetFile( ltrim(Camino + 'graficos\botones\brush\' + botonfam->nombre) )
obtnF[x]:= AllTrim(familia->texto_tecl)
oBtnF[x]:= oFont1
oBtnF[x]:Refresh()

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

JmGarcia

Posts: 654

Joined: Mon May 29, 2006 03:14 PM

Re: Cambiar imagen de un BottonBMP en tiempo de ejecucion
Posted: Wed Jan 25, 2012 12:20 PM

Gracias por tu ayuda pero no entiendo lo de [x]
Los BMPs los tengo en recursos ¿ valdría ? oBtnF[x]:SetFile("ok_verde.bmp")
¿ Que significa ? obtnF[x]:= AllTrim(familia->texto_tecl) y oBtnF[x]:= oFont1

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: Cambiar imagen de un BottonBMP en tiempo de ejecucion
Posted: Wed Jan 25, 2012 12:48 PM

JmGarcia

Supongo que "obtnF" es un array de objetos y los accede por medio de la variable "x"

viendo el titulo de tu post, no concuerda con el codigo de tu ejemplo, porque existe una clase ButtonBMP y una Clase BTNBMP...

Como expreso en mi firma, nuestra mejor documentacion es el codigo fuente, yo en lo personal cuando tengo que trabajar con una clase (incluso con las que yo mismo he diseñado), mantengo la clase abierta en el editor para recordar todas sus propiedades y metodos, de esa forma mantengo a la mano todas las caracteristicas del objeto, esto lo puedo llamar una "tecnica" para programar, como puedes ver todo lo tenemos a nuestro alcance y es mas facil que lo que nos imaginamos, espero te sirva este simple consejo

ahora abriendo el archivo btnbmp.prg, podemos examiarlo y estudiar sus metodos, que tienen nombres bastante intuitivos para un mejor entendimiento de lo que hacen

oBtn:SetFile( "ruta_nombre_imagen_para_buttonup", "ruta_nombre_imagen_para_buttondown" ) // para imagenes en disco

para ti ese metodo no sirve, pues lo necesitas desde recurso

existe otro metodo llamado LoadBitmaps( cResName1, cResName2, cBmpFile1, cBmpFile2, cResName3, cBmpFile3, cResName4, cBmpFile4 )
alli podemos ver cuales son los parametros usados para el nombre de los recurso y el usado para lso archivos

para los recursos son los parametros 1, 2, 5 y 7

el codigo del metodo nos dice para que son cada uno de esos parametros
cResName1 = Button Up (imagen en estado normal )
cResName2 = Button Down (imagen cuando se tiene el boton del mouse abajo )
cResName3 = imagen cuando el boton esta en estado "disable"
cResName4 = imagen cuando el mouse pasa sobre el boton

Nota... es importante antes de asignar nuevas imagenes, liberar las imagenes anteriores primero usa FreeBitmaps()

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

JmGarcia

Posts: 654

Joined: Mon May 29, 2006 03:14 PM

Re: Cambiar imagen de un BottonBMP en tiempo de ejecucion
Posted: Thu Jan 26, 2012 08:09 AM

Daniel Garcia-Gil wrote:viendo el titulo de tu post, no concuerda con el codigo de tu ejemplo, porque existe una clase ButtonBMP y una Clase BTNBMP...

Quería decir Botón BMP en vez de BottonBMP.
Desconocía que hubiera dos clases BTNBMP y ButtonBMP y he empezado por querer usar la primera.

Sea como fuere tu explicación es estupenda pero me encuentro en la texitura de no saber cual usar.

Voy a tratar de explicarme.
Necesito un botón con clausula ACTION donde al pulsarlo pueda hacer algunas cosas. Ese boton en principio nace con un bmp con forma de aspa roja, al pulsarlo quiero cambiarlo a un aspa (o similar) de color verde. Es decir quiero cambiar el bmp en tiempo de ejecución. Además este bmp tiene que estar en recursos (en un RC).

¿ Podrías ponerme un pequeño código fuente de como sería ?

Desde ya muchas gracias por tu ayuda, por vuestra ayuda.

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: Cambiar imagen de un BottonBMP en tiempo de ejecucion
Posted: Thu Jan 26, 2012 06:10 PM

este ejemplo sta aplicado a una toolbar que contiene botones btnbmp, puede ser facilmente
implementado en botones solitarios.

Code (fw): Select all Collapse

/*-------------------------------------------------------------------------------------------------*/
/*procedimiento que muestra toolbar en dialogo*/
PROCEDURE Clientes_Toolbar()
   LOCAL oToolbar

   DEFINE BUTTONBAR oToolBar OF oDlg SIZE 70, 60 2010

   DEFINE BUTTON NAME "TB_CLOSE"       OF oToolBar ACTION oDlg:END()                 PROMPT "&Salir"
   DEFINE BUTTON NAME "TB_ADD"         OF oToolBar ACTION Clientes_Editar( TRUE  )   PROMPT "&Nuevo"      GROUP
   DEFINE BUTTON NAME "TB_EDIT"        OF oToolBar ACTION Clientes_Editar( FALSE )   PROMPT "&Editar"
   DEFINE BUTTON NAME "TB_DELETE"      OF oToolBar ACTION Clientes_Borrar()          PROMPT "&Borrar"
   DEFINE BUTTON NAME "TB_SEARCH"      OF oToolBar ACTION Clientes_BuscarXPrestamo() PROMPT "B&uscar"
   DEFINE BUTTON NAME "TB_EXPORTXLS"   OF oToolBar ACTION Clientes_Exportar()        PROMPT "&Exportar"   GROUP
   DEFINE BUTTON NAME "TB_PRINTER"     OF oToolBar ACTION Clientes_Listar()          PROMPT "&Imprimir"
   DEFINE BUTTON NAME "TB_TABLESMONEY" OF oToolBar ACTION Clientes_Prestamos()       PROMPT "&Prestamos"  GROUP
   DEFINE BUTTON NAME "TB_FILTERADD"   OF oToolBar ACTION Clientes_FiltroAplicar()   PROMPT "&Filtrar"    GROUP


   /*muestra barra de estado*/
   SET MSGBAR OF oDlg TO "INS=Nuevo, DEL=Borrar, ENTER=Editar, F2=Prestamos, F3=Buscar, F4=Filtrar, F5=Imprimir, F8=Exportar, F9=Refrescar" 2010

   oDlg:SetControl( oBrw )
   oBrw:nTop    += 1
   oBrw:nHeight -= 1

   oToolBar:bRClicked := {|| TRUE }
   oToolBar:bLClicked := {|| TRUE }

   /*objeto boton para manejar boton del filtro*/
   oBtnFilter := oToolbar:aControls[ 9 ] /*aca tomo el control no. 9 del arreglo aControls que todo control contenedor tiene*/

RETURN

Code (fw): Select all Collapse

   /*si selecciono filtrar info*/
   IF lFiltrado

      IF nFNumCiu = 0 .and. ;
         nFNumRut = 0 .and. ;
         nFAmbito = 1 .and. ;
         nFSaldo  = 1 .and. ;
         Empty( dFFecIni ) .and. Empty( dFFecFin )

         Clientes_FiltroQuitar()

         RETURN

      ELSE

         STORE "" TO cFilter0, cFilter1, cFilter2, cFilter3, cFilter4, cFilter5

         IF nFNumCiu > 0
            cFilter1 := StrFormat( "NUM_CIUD=%1", AllTrim( Str( nFNumCiu ) ) )
         ENDIF

         IF nFNumRut > 0
            cFilter2 := StrFormat( "NUM_RUTA=%1", AllTrim( Str( nFNumRut ) ) )
         ENDIF

         IF nFAmbito > 1
            IF nFAmbito=2
               cFilter3 := "ACTIVO=.T."
            ELSE
               cFilter3 := "ACTIVO=.F."
            ENDIF
         ENDIF

         IF !Empty( dFFecIni ) .and. !Empty( dFFecFin )
            cFilter4 := StrFormat( "(FECHA_ING>=%1 .and. FECHA_ING<=%2)", Var2Str( dFFecIni ), Var2Str( dFFecFin ) )
         ENDIF

         IF nFSaldo > 1
            cFilter5 := "SALDO_ACT>0"
         ENDIF

         cFilter0 := IIf( !Empty( cFilter1 ), cFilter1 + " .and. ", "" ) +;
                     IIf( !Empty( cFilter2 ), cFilter2 + " .and. ", "" ) +;
                     IIf( !Empty( cFilter3 ), cFilter3 + " .and. ", "" ) +;
                     IIf( !Empty( cFilter4 ), cFilter4 + " .and. ", "" ) +;
                     IIf( !Empty( cFilter5 ), cFilter5 + " .and. ", "" )

         cFilter0 := StrTran( AllTrim( cFilter0 ), "  ", " " )

         IF Right( cFilter0, 5)==".and."
            cFilter0 := SubStr( cFilter0, 1, Len( cFilter0 ) - 5 )
         ENDIF

         oBtnFilter:LoadBitmaps( "TB_FILTERDEL" )
         oBtnFilter:cTooltip := "Elimina filtro aplicado a tabla de datos"
         oBtnFilter:Refresh()

         IF !Empty( cFilter0 )
            CLIE->( cmFilter( cFilter0 ) )
         ENDIF

      ENDIF

   ENDIF

   Refrescar_Browse( oBrw )

RETURN

Code (fw): Select all Collapse

/*procedimiento para eliminar filtro en lista de clientes*/
PROCEDURE Clientes_FiltroQuitar()

   IF lFiltrado

      oBtnFilter:LoadBitmaps( "TB_FILTERADD" )
      oBtnFilter:cTooltip := "Agrega filtrado a tabla de datos"
      oBtnFilter:Refresh()

      CLIE->( cmFilter( "" ) )

      lFiltrado := FALSE

   ENDIF

   Refrescar_Browse( oBrw )

RETURN

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: Cambiar imagen de un BottonBMP en tiempo de ejecucion
Posted: Thu Jan 26, 2012 06:25 PM

Carlos

tienes que liberar los bitmap anteriores antes de cargar uno nuevo, sino te quedaras sin recursos

usa el metodo FreeBitMaps(), pero ojo eso libera todos los bitmaps del objeto

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: Cambiar imagen de un BottonBMP en tiempo de ejecucion
Posted: Thu Jan 26, 2012 10:38 PM

copiado, daniel, gracias.

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

FiveTech Support Forums

Continue the discussion