FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Actualizar Buttonbar
Posts: 711
Joined: Thu Oct 06, 2005 09:57 PM

Actualizar Buttonbar

Posted: Fri Jan 27, 2012 10:36 PM

En una ventana, tengo definida la siguiente barra:

DEFINE BUTTONBAR oBar TOP _3D SIZE (50*nRancho), 50 OF oWnd

Tiene varios botones, entre ellos este:

  DEFINE BUTTON  oBtnBar[8] OF oBar  ;
     RESOURCE "bVerde" ;
     MESSAGE cM[66] ;  
     TOOLTIP cM[72] ;  
     GROUP ;
     NOBORDER

Durante la ejecucion de la aplicación, necesitaria cambiar el botón por Resource"bRojo".

¿Como podría hacerlo?.

Un saludo



Manuel
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM

Re: Actualizar Buttonbar

Posted: Sat Jan 28, 2012 04:23 AM
Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Posts: 711
Joined: Thu Oct 06, 2005 09:57 PM

Re: Actualizar Buttonbar

Posted: Sat Jan 28, 2012 10:01 AM

Muchas gracias Carlos. Ha funcionado perfectamente.

Un saludo



Manuel
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM

Re: Actualizar Buttonbar

Posted: Sat Jan 28, 2012 06:40 PM

solo recuerda agregar la llamada al metodo de liberacion de bitmap como indica daniel antes de realizar el cambio de bitmap.

salu2

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Posts: 711
Joined: Thu Oct 06, 2005 09:57 PM

Re: Actualizar Buttonbar

Posted: Sun Jan 29, 2012 12:07 PM

Carlos, asi lo he hecho, incorporando el freebitmap:

  if lAviso
     oBtnFilter:FreeBitmaps()
     oBtnFilter:LoadBitmaps( "bRojo" )
     oBtnFilter:cTooltip := cM[15]
     oBtnFilter:cMsg := cM[16]
  else
     oBtnFilter:FreeBitmaps()
     oBtnFilter:LoadBitmaps( "bVerde" )
     oBtnFilter:cTooltip := cM[13]
     oBtnFilter:cMsg := cM[14]
  endif
  oBtnFilter:Refresh()

Muchas gracias por todo.

Un saludo



Manuel

Continue the discussion