transparencia en controles.

[JoseAlvarez]

Hola a todos nuevamente.

hace poco los amigos cNavarro y Joao me enseñaron como cambiar el color de los dialgos en tiempo de ejecucion.
Pero ahora tengo un problema que me imagino que ya muchos deben saber la solucion pero no he dado con ella.
Necesito que el color de fondo de los controles adopte o tome el mismo color que los dialogos.
anexo una imagen donde indico dentro del cuadro rojo el feo detalle que queda en un checkbok al cambiar el color del dialogo

Agredezco la ayuda por anticipado.

[cnavarro]

Qué versión de Fw utilizas?
La mayoría de los controles tienen la claúsula TRANSPARENT

[karinha]

Esto controle és una BitMap?

Code: Select all  Expand view

   REDEFINE BITMAP oFiveWin ID 122 RESOURCE "FIVEPOWER" TRANSPARENT ;
      OF oDlg ADJUST
 

Saludos.

[karinha]

En CHECKBOX, el comando TRANSPARENT no funciona.

Code: Select all  Expand view

   REDEFINE CHECKBOX oPdfTelaSumatra VAR lPdfTelaSumatra ID 103 OF oDlg UPDATE ;
      COLORS CLR_HGREEN, CLR_WHITE
 



[JoseAlvarez]

Gracias nuevamente a cNavarro y Joao.
Efectivemente, antes de poner la pregunta acá en el foro, me cansé de aplicar el TRANSPARENT de todas las maneras que me pude imaginar y no funcionó.

Joao, Apliqué lo que me indicaste:

REDEFINE CHECKBOX oPdfTelaSumatra VAR lPdfTelaSumatra ID 103 OF oDlg UPDATE ;
COLORS CLR_HGREEN, CLR_WHITE

y funcionó perfecto...

Nuevamente agradecidos a ambos por su atención.

Me quedá un solo problema por resolver y así poder satisfacer a mi cliente en lo que me solicitó de poder cambiar los colores de los dialogos a su gusto. No se trata de cambiar el color de toda la aplicación. El cliente quiere poder cambiar el color de CADA DIALOGO y sus letras según su deseo, por eso, de pronto en un módulo quiere un fondo azul con letra amarilla, pero en otro quiere un fondo verde con letra roja... caprichos de clientes que no esta en nosotros juzgar, sino hacerlo, ya que estará pagandonos para hacer la aplicación 100% a su gusto. Y entre gustos y colores...

Bien, el detalle que me falta es poder cambiar el color de los botones, con la clase nativa de FW:

Redefine button oButtonExit id 21 OF oDlg

Alguna idea de como hacerlo por favor ?

[karinha]

En el menu Principal:

Code: Select all  Expand view

   SetBalloon( .T. ) // Balloon shape required for tooltips

   SkinButtons()     // Botoes Coloridos nas novas versoes

   SetGetColorFocus( CLR_MENTA )

   tGet():lDisColors  := FALSE
   tGet():nClrTextDis := CLR_BLUE
   tGet():nClrPaneDis := CLR_SOFTYELLOW