FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Color de fondo de un CheckBox
armando.lagunas
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Color de fondo de un CheckBox
Posted: Thu Nov 20, 2014 03:21 AM
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 (fw): Select all Collapse
      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.
SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
jmartial
Posts: 458
Joined: Tue Mar 14, 2006 07:26 PM
Re: Color de fondo de un CheckBox
Posted: Thu Nov 20, 2014 08:33 AM

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?

Un Saludo,

Joaquín Martínez
hmpaquito
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: Color de fondo de un CheckBox
Posted: Thu Nov 20, 2014 08:47 AM

Armando,

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

Saludos

armando.lagunas
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: Color de fondo de un CheckBox
Posted: Thu Nov 20, 2014 06:41 PM
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 (fw): Select all Collapse
      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
SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
armando.lagunas
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: Color de fondo de un CheckBox
Posted: Thu Nov 20, 2014 06:50 PM

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

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
carlos vargas
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
Re: Color de fondo de un CheckBox
Posted: Thu Nov 20, 2014 11:01 PM

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

salu2
carlos vargas

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
carlos vargas
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
Re: Color de fondo de un CheckBox
Posted: Thu Nov 20, 2014 11:01 PM

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

salu2
carlos vargas

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
jrestojeda
Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Re: Color de fondo de un CheckBox
Posted: Fri Nov 21, 2014 12:10 PM
Hola...
Yo tengo este diálogo:


Lo defino de la siguiente forma:
Code (fw): Select all Collapse
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,
Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

Continue the discussion

Static archive · New replies & topics via GitHub Discussions