FiveTech Software tech support forums

Posted: **Fri Sep 01, 2006 7:37 pm**

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

Posted: **Fri Sep 01, 2006 7:38 pm**

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

Saludos

Posted: **Fri Sep 01, 2006 10:49 pm**

Raymundo,

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

Code: Select all

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.

Posted: **Fri Sep 01, 2006 11:55 pm**

Muchas gracis MASTER, hare mis pruebas

Saludos

FiveTech Software tech support forums

Antonio : Asignar color del texto en BUTTONBMP

Antonio : Asignar color del texto en BUTTONBMP