como hacerlo con button bar
Posted: Mon Jan 08, 2024 5:07 pmSaludos estimados amigos
¿Cómo puedo hacer este efecto con button bar?
¿Cómo puedo hacer este efecto con button bar?
- 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.