como hacerlo con button bar

[JoseAlvarez]

Saludos estimados amigos

¿Cómo puedo hacer este efecto con button bar?

[FranciscoA]

José:

Code: Select all  Expand view

#include "FiveWin.ch"
Static oWnd

//----------------------------------------------------------//
Function Main()
   local oBar, oBoto1, oBoto2

   DEFINE WINDOW oWnd MDI TITLE "Titulo Wind"

   DEFINE BUTTONBAR oBar OF oWnd SIZE 60, 64 2007

   DEFINE BUTTON oBoto1 FILENAME "C:\FWH1204\BITMAPS\32X32\DATABASE.BMP"  PROMPT "Recibo-C" OF oBar TOOLTIP "Emision Recibo de Caja" ;
              ACTION Msginfo("Hola")

   DEFINE BUTTON oBoto2 FILENAME "C:\FWH1204\BITMAPS\32X32\TILED.BMP" PROMPT "C-Egreso"  OF oBar TOOLTIP "Emision Comprobante de Egreso" ;
              ACTION MsgInfo("Hola")

   ACTIVATE WINDOW oWnd MAXIMIZED ON INIT ColorBar(oBar)  

RETURN NIL

Function ColorBar(oBar)
     oBar:bClrGrad := { | lInvert | If( ! lInvert, ;
     { { 0.80,11446950,15657704 }, ;
       { 0.80,15657704,11446950 } }, ;
     { { 0.10,9363707,16777215 },;
       { 0.10,16777215,9363707 } } ) }

Return nil
 

Saludos.

[JoseAlvarez]

Francisco,

Listo y funcionando... muchas gracias amigo.