Cambiar el color del Texto de tBtnFlat

[Gabo]

Hola
Es posible poder cambiar el color del texto de TBtnFlat.
cuando se pasa el raton y recibe el foco (Hot).
nClrHot = Color cuando se pasa el raton
nClrPane = Color de fondo del boton
nClrText = Color del Texto para nClrPane y nClrHot
nClrTextHot = ??
Saludos

[ignacio]

Gabo escribió el mar, 01 abril 2014 03:15Hola
Es posible poder cambiar el color del texto de TBtnFlat.
cuando se pasa el raton y recibe el foco (Hot).
nClrHot = Color cuando se pasa el raton
nClrPane = Color de fondo del boton
nClrText = Color del Texto para nClrPane y nClrHot
nClrTextHot = ??
Saludos
Prueba con este código:
METHOD FlatBtn1MouseMove( oSender, nKeyFlags, nPosX, nPosY ) CLASS TForm1
STATIC lCapture := .F.

IF !lCapture
SetCapture( oSender:Handle )
lCapture := .t.
oSender:nClrText := clRed
ELSEIF !PtInRect( GetClientRect(oSender:Handle), {nPosX, nPosY} )
SetCapture()
lCapture := .f.
oSender:nClrText := clBlack
ENDIF

RETURN Nil
Regards,

[Gabo]

Gracias Ignacio
Si cambia el color del Texto, Pero pierde el color del Hot.
Saludos

[ignacio]

Gabo escribió el mar, 01 abril 2014 15:30Gracias Ignacio
Si cambia el color del Texto, Pero pierde el color del Hot.
Saludos
Tienes razón. Acabo de añadir la propiedad nClrTextHot. Estará disponible en la próxima revisión de Xailer.
Un saludo

[Gabo]

Excelente!
Muchas gracias ignacio
Saludos

[Gabo]

Ignacio
Si es posible que consideres el color para cuando el boton se encuentre presionado lPushed:= .T., nClrPushed con estos colores agregados se puede dar un toque bastante windows 8
Saludos