Buenas noches.
necesito que al oprimir un boton de una ButtonBar este cambie su archivo bmp.
esta declarado asi:
DEFINE BUTTON oBoton1 OF oBar FILE "Efectivo.bmp" ;
ACTION Cobros() ;
MESSAGE "Mantenimiento de Cobros";
PROMPT "Cobros"
oBoton1:lTransparent = .t.
necesito que al oprimirlo muestre la imagen "cheque.bmp"
Gracias
DEFINE BUTTON oBoton1 OF oBar FILE cBmp1, cBmp2, cBmp3, cBmp4 ;
ACTION ...Gracias por su tiempo Mr. Rao.
Lo que busco es que cambie la imagen y quede fija la nueva imagen hasta volverlo a oprimir y alli retome la primera imagen del boton.
Como Ud. me lo indico solo lo cambia al oprimir pero no queda fija la nueva imagen.
me explico? solo quiero que el boton inicie con una imagen "efectivo.BMP" y al oprimirlo cambie a la imagen "cheque4.bmp" hasta que lo oprima nuevamente y regrese a la imagen de "efectivo.bmp".
he intentado de esta forma pero solo me cambia el CAPTION
DEFINE BUTTON oBoton1 OF oBar FILE "Efectivo.bmp" ;
ACTION (oBoton1:cCaption:='Cheque',oBoton1:FreeBitmaps(),oBoton1:LoadBitMaps("Cheque4.Bmp"),oBoton1:Paint(),oBoton1:refresh(),Cobros()) ;
MESSAGE "Mantenimiento de Cobros";
PROMPT "Cobros"
oBoton1:lTransparent = .t.
y se que solo estoy cambiando 1 vez la imagen
Gracias igualmente!!!!
#include "FiveWin.ch"
static oWnd
//----------------------------------------------------------------------------//
function Main()
local oBrush, oBar, oBoton1
DEFINE BRUSH oBrush STYLE TILED
DEFINE WINDOW oWnd FROM 1, 5 TO 20, 65 ;
TITLE "FiveWin ButtonBar & Menu Management" ;
BRUSH oBrush
DEFINE BUTTONBAR oBar SIZE 60, 60 _3D OF oWnd
DEFINE BUTTON OF oBar FILE "..\bitmaps\Exit.bmp" PROMPT "Salir" MESSAGE "End this session" ;
ACTION If( MsgYesNo( "Seguro de Salir ?", "Elija por favor" ),;
oWnd:End(), )
DEFINE BUTTON oBoton1 OF oBar FILE "..\bitmaps\Cut.bmp" PROMPT "Cambiar" MESSAGE "Copy" GROUP ;
ACTION Cambiarboton(oBoton1)
ACTIVATE WINDOW oWnd
return nil
//----------------------------------------------------------------------------//
STATIC FUNCTION Cambiarboton(oBot)
IF oBot:cCaption == 'Cambiar'
oBot:SetImages('..\bitmaps\paste.bmp')
oBot:cCaption := "Cambiar2"
ELSE
oBot:SetImages('..\bitmaps\Cut.bmp')
oBot:cCaption := "Cambiar"
ENDIF
RETURN nilfunction BarBtnToggle()
local oWnd, oBar, oBtn
local nBmp := 1
DEFINE WINDOW oWnd
DEFINE BUTTONBAR oBar OF oWnd SIZE 64,64 2007
DEFINE BUTTON oBtn OF oBar ;
PROMPT { || If( nBmp == 1, "Open", "Close" ) } ;
FILE "\fwh\bitmaps\open32.bmp", "\fwh\bitmaps\close32.bmp" ;
ACTION ( nBmp := nXor( nBmp, 3 ), oWnd:Refresh() )
oBtn:bBmpNo := { || nBmp }
ACTIVATE WINDOW oWnd CENTERED ;
ON PAINT oWnd:SayText( If( nBmp == 1, "CLOSED", "OPENED" ) )
return nil
Gracias por la aclaración y el código optimizado Mr. Rao
Muchas Gracias Mr. Rao y Cesar !!! por su tiempo y soluciones.
DEFINE BUTTON oSaida RESOURCE "FECHAR", "FECHAR2" OF oBar ;
NOBORDER GROUP PROMPT "Saida" ;
MESSAGE "Sair do Programa" ;
ACTION( oSaida:Toggle(), ENCERRA( oWnd ), oSaida:GoUp() ) ;
TOOLTIP { "Encerrar Programa - Finalizar", ;
"Encerrar o Programa Agora? ", 1, CLR_WHITE, CLR_HBLUE }
oSaida:nWidth := 80 // 120
oSaida:oCursor := oHand
// Acionar processo em um movimento do Mouse sobre um botao...
oSaida:bMMoved = { | nRow, nCol, nFlags | MsgBeep() }
oSaida:lBoxSelect := .F.Yes, we can use oBtn:Toggle()
function BarBtnToggle()
local oWnd, oBar, oBtn
DEFINE WINDOW oWnd MDI
DEFINE BUTTONBAR oBar OF oWnd SIZE 64,64 2007
DEFINE BUTTON oBtn OF oBar ;
PROMPT { || If( oBtn:lPressed, "Close", "Open" ) } ;
FILE "\fwh\bitmaps\open32.bmp", "\fwh\bitmaps\close32.bmp" ;
ACTION Child( oBtn )
ACTIVATE WINDOW oWnd CENTERED
return nil
static function Child( oBtn )
static oWnd
if oBtn:lPressed
oWnd:End()
else
oBtn:Toggle()
DEFINE WINDOW oWnd MDICHILD OF WndMain() COLOR 0,CLR_WHITE
oWnd:bPostEnd := { || oBtn:Toggle() }
ACTIVATE WINDOW oWnd
endif
return oWndvery good!!
Regards, saludos.