Amigos del foro :
Estoy empezando a utilizar la clase TSButton del maestro Mercado, anexo una imagen del menu principal de mi aplicacion y parte del codigo de la misma
Lo que deseo es saber como al pasar el cursor sobre alguno de los bitmaps, este se vea con el efecto tal como en la clase TButton
Si alguien me pudiera ayudar
Codigo
Estoy empezando a utilizar la clase TSButton del maestro Mercado, anexo una imagen del menu principal de mi aplicacion y parte del codigo de la misma
Lo que deseo es saber como al pasar el cursor sobre alguno de los bitmaps, este se vea con el efecto tal como en la clase TButton
Si alguien me pudiera ayudar
Codigo
# INCLUDE "FiveWin.ch"
Saludos
# include "TSButton.ch"
#define CLR_NBLUE nRGB( 142, 171, 194 )
STATIC oWnd
Function Principal()
Local oIcono
Local oBmp
Local oBrush
Local oBar
LOCAL oBtn[ 3 ]
SetBalloon( .T. )
SET PATH TO c:\SerFw\Datos
SET CONFIRM ON
SET DELETED ON
SET MULTIPLE ON
SET DATE BRITISH
SET EPOCH TO 1980
SET 3DLOOK ON
SET RESOURCES TO "MENUSER.DLL", "PREV32.DLL"
IF lGetPassword()
DEFINE BRUSH oBrush STYLE BORLAND
DEFINE ICON oIcono FILENAME ".\bmps\Logo3.ico"
DEFINE WINDOW oWnd TITLE "Serretecno, S.A. de C.V. "+ ;
"(Cuentas por Cobrar - Oficina Matriz)" ;
ICON oIcono ;
BRUSH oBrush ;
MENU CreaMenu()
DEFINE SButtonBar oBar size 35,35 3D OF oWnd TOP
DEFINE SBUTTON oBtn[1] FILENAME ".\bmps\NotePad.bmp" OF oBar ;
TOOLTIP "Block de notas" BITMAP ;
ACTION WinExec("NotePad") ;
LOOK W97
DEFINE SBUTTON oBtn[2] FILENAME ".\bmps\Calculator.bmp" OF oBar ;
TOOLTIP "Calculadora" BITMAP ;
ACTION WinExec("Calc") ;
LOOK W97
DEFINE SBUTTON oBtn[3] FILENAME ".\bmps\Salir.bmp" OF oBar ;
TOOLTIP "Salir" BITMAP GROUP ;
ACTION oWnd:End() ;
LOOK W97
SET MESSAGE OF oWnd TO " " CENTERED ;
CLOCK DATE KEYBOARD
/* @01,00 BITMAP oBmp FILENAME "fachada.bmp" SIZE 1020,648 ;
NOBORDER OF oWnd */
ACTIVATE WINDOW oWnd MAXIMIZED ;
VALID MsgYesNo( "Está seguro ?", "Desea salir ?" )
SET RESOURCES TO
ENDIF
RETURN NIL