Antonio : Asignar color del texto en BUTTONBMP

[Raymundo Islas M.]

Antonio

Quisiera asignar un color X a XX botones y un color Y a YY botones, pero creo que esta clase no tiene el metodo, estuve checando algunos post, y en uno indicas esto :

SetTextColor( ::hDC, nColorQueQuieres ) // NUEVO!!!

Pero al parecer, esto le pondria un mismo color a todos.

Seria posible me indicaras que cambios hacer para poder hacer lo que deseo ?

Que seria algo asi :

REDEFINE BUTTONBMP aItmGrp[1] ID 106 OF oMainPages:aDialogs[1] ACTION ShwSubX(1) ;
PROMPT "Opcion 1" COLOR CLR_HBLUE

REDEFINE BUTTONBMP aItmGrp[2] ID 107 OF oMainPages:aDialogs[1] ACTION ShwSubX(2) ;
PROMPT "Opcion 2" COLOR CLR_HRED


Muchas Gracias

Saludos

[Raymundo Islas M.]

Y si de paso se puede al fondo del boton, mucho que mejor

Saludos

[Antonio Linares]

Raymundo,

Prueba a modificar la Clase TbuttonBmp en el método Paint():

Code: Select all  Expand view  RUN

METHOD Paint() CLASS TButtonBmp

   local aInfo := ::DispBegin()
   local nTop, nLeft, lPressed

   SetTextColor( ::hDC, ::nClrText )  // nuevo
   SetBkColor( ::hDC, ::nClrPane ) // nuevo
   CallWindowProc( ::nOldProc, ::hWnd, WM_PAINT, ::hDC, 0 )
   ...


Así asignando las DATA ::nClrText y ::nClrPane de cada botón, cada botón usaría sus propios colores.

[Raymundo Islas M.]

Muchas gracis MASTER, hare mis pruebas


Saludos