FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Bitmaps en TsButton: M. Mercado
Posts: 418
Joined: Wed Nov 26, 2008 06:33 PM
Bitmaps en TsButton: M. Mercado
Posted: Sat Dec 18, 2010 09:34 PM

Saludos.

En cuestion de la clase de Mster. M. Mercado, tengo un detalle que no he podido resolver:

En un boton envio 2 bitmaps para que cambie al recibir el foco, pero ello solo con el mouse, que podre hacer para que al tener el foco cambie al segundo bitmap, sin uso del mouse. Mi fuente es:

define COLOR_ACEPTA {|oBtn|If(oBtn:lMouseOver.or.oBtn:lFocused,COLOR_MAGENTA,If(oBtn:lPressed,COLOR_BLANCO,aCOLOR(10)))}

@ 0,nDer SBUTTON oBtn FILE 'LEVEL2.BMP','LEVEL1.BMP' OF oDLG SIZE 8,8;
ACTION (...)
COLOR COLOR_ACEPTA;
PIXEL
Tengo antes de este boton una serie de gets, y al llegar al oBtn como puedo hacer para que cambie al bitmap 2.

Gracias.

Fwh 8.11, xH 1.1, bcc 5.5

Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com

Continue the discussion