Color de fondo de un CheckBox

[armando.lagunas]

Amigos

No logro colocar el color de texto en blanco y el color de fondo negro.



este es el código y es muy simple pero no funciona

Code: Select all  Expand view  RUN

      REDEFINE CHECKBOX oChk VAR lEli ID 90 PROMPT "Limpieza de Temporales" OF oDlg COLOR CLR_WHITE, CLR_BLACK
                        oChk:oFont        := oFont[2]
                        oChk:SetColor( CLR_WHITE, CLR_BLACK )
 

Estoy usando recursos y he buscado en los foros, pero no doy con la respuesta.

uso xHarbour 1.2.3 FW13.7 BCC582

una alma caritativa que me ayude.

Saludos desde Chile

Armando.

[jmartial]

Buenas,

Prueba a poner en el redefine del diálogo TRANSPARENT, a ver si te funciona.

Por cierto, esos botones ¿Cómo están hechos?

[hmpaquito]

Armando,

¡ Qué bonita pantalla ! Felicidades !
Una pregunta, si es posible... ¿ has mantenido el resto el programa con la misma aparicencia ?

Saludos

[armando.lagunas]

Joaquin, gracias por responder:

coloque el oDlg:lTransparent := .T. y quedo peor, los says se volvieron blancos y no respetaban los colores y menos el checkbox, voy a intentar colocando un boton de 3 estados para indicar que lo he seleccionado.

los botones son con la clase SBUTTON 7.0 de Manuel Mercado, creo y el código es bastante simple:

Code: Select all  Expand view  RUN

      REDEFINE SBUTTON ID 50 PROMPT "&Login" OF oDlg ACTION  MSGINFO("OK") SUNSET ;
                                          FONT oFont[2] COLORS CLR_WHITE,CLR_BLACK

 

hace un efecto muy bonito.

solo hay que buscar el font adecuado y la conbinación de colores correcta

[armando.lagunas]

hola hmpaquito

gracias por tu comentario, y si he mantenido la apariencia en el programa, trato de innovar, colocando cosas parecidas a las de windows 8 y visual studio 2013, trae un skin Dark que es muy bueno, ademas es darle la funcionalidad al máximo al usuario con los menos clicks posibles y ademas dar comodidad a usuarios con pantallas táctiles.

todo lo que he puesto en mis aplicaciones, han salido de los ejemplos distribuidos por FW y sin tocar las librerías originales.

si necesitas algo solo pídemelo, con gusto comparto mi experiencia.

Saludos

[carlos vargas]

si mal no recuerdo,con la tsbutton venian lineas,group y checkbox traspareste propios.

salu2
carlos vargas

[carlos vargas]

si mal no recuerdo,con la tsbutton venian lineas,group y checkbox trasparente propios.

salu2
carlos vargas

[jrestojeda]

Hola...
Yo tengo este diálogo:


Lo defino de la siguiente forma:

Code: Select all  Expand view  RUN

hDLL:=LoadLibrary("Fondos.dll")
SET RESOURCES TO "Fondos.dll"
DEFINE BRUSH oBrush1 RESOURCE "FONDO"
FreeLibrary(hDLL)

cTitulo:=IF(nKey=45,"Alta de cliente","Modificación de cliente")

DEFINE DIALOG oDlg1 RESOURCE "ABMCLIENTES" OF oWnd ICON "A_ICONO1";
   TITLE cTitulo;
   TRANSPARENT BRUSH oBrush1

   REDEFINE BTNBMP Btn1 ID 200 OF oDlg1 RESOURCE "ACEPTAR22" LEFT;
      ACTION GrabaClientes(nKey),;
             oWnd2:End(),oDbf:GoTop(),oLbx:GoTop(),oLbx:Refresh(),oLbx:SetFocus();
      PROMPT "Grabar" 2007;
      TOOLTIP "Grabar" FONT oFont1

   REDEFINE BTNBMP Btn2 ID 201 OF oDlg1 RESOURCE "CANCELAR22" LEFT;
      ACTION  oWnd2:End(),oDbf:GoTop(),oLbx:GoTop(),oLbx:Refresh(),oLbx:SetFocus();
      PROMPT "Cancelar" 2007;
      TOOLTIP "Cancelar" FONT oFont1

   Btn1:bGotFocus :={|| Btn1:bClrGrad:=bClrGradGF,Btn1:refresh()}
   Btn1:bLostFocus:={|| Btn1:bClrGrad:=bClrGradLF,Btn1:refresh()}

   Btn2:bGotFocus :={|| Btn2:bClrGrad:=bClrGradGF,Btn2:refresh()}
   Btn2:bLostFocus:={|| Btn2:bClrGrad:=bClrGradLF,Btn2:refresh()}

   REDEFINE GET oCod   VAR vCod    ID 100 OF oDlg1 PICTURE "######";
      WHEN(nKey=45) VALID{||VerCodigo(vCod,oDbf)};
      FONT oFont1

   REDEFINE CHECKBOX oAct VAR vAct ID 101 OF oDlg1

   REDEFINE GET oNom   VAR vNom    ID 102 OF oDlg1 PICTURE "@!";
      VALID(!EMPTY(vNom));
      FONT oFont1

   REDEFINE GET oDom   VAR vDom    ID 103 OF oDlg1 PICTURE "@!";
      FONT oFont1

   REDEFINE GET oLoc   VAR vLoc    ID 104 OF oDlg1 PICTURE "@!";
      FONT oFont1

   REDEFINE GET oEma   VAR vEma    ID 105 OF oDlg1;
      FONT oFont1

   REDEFINE GET oTe1   VAR vTe1    ID 106 OF oDlg1 PICTURE "@!";
      FONT oFont1

   REDEFINE GET oTe2   VAR vTe2    ID 107 OF oDlg1 PICTURE "@!";
      FONT oFont1

   REDEFINE RADIO oLis VAR vLis    ID 108,109,110,111,112 OF oDlg1

   REDEFINE CHECKBOX oCta VAR vCta ID 113 OF oDlg1

   REDEFINE GET oCre   VAR vCre    ID 114 OF oDlg1 PICTURE "#######.##";
      FONT oFont1

   REDEFINE CHECKBOX oEsp VAR vEsp ID 115 OF oDlg1

   REDEFINE GET oOb1   VAR vOb1    ID 116 OF oDlg1 PICTURE "@!";
      FONT oFont1

   REDEFINE GET oOb2   VAR vOb2    ID 117 OF oDlg1 PICTURE "@!";
      FONT oFont1

   REDEFINE GET oOb3   VAR vOb3    ID 118 OF oDlg1 PICTURE "@!";
      FONT oFont1

   REDEFINE GET oOb4   VAR vOb4    ID 119 OF oDlg1 PICTURE "@!";
      FONT oFont1

ACTIVATE DIALOG oDlg1 CENTERED
 

Espero te sirva la idea.
Saludos,