FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Gama de colores para todos
Posts: 219
Joined: Mon Dec 26, 2005 07:25 PM
Gama de colores para todos
Posted: Sat Feb 04, 2006 09:06 PM

Por si a alguien le interesa, ahí van algunos colores que utilizo en todos mis programas. Los he incluido en mi Colors.ch para no tener que definirlos a cada vez.

Primero, un par de funciones precompiladas que también tengo en Colors.ch, para los que como yo gustan de utilizar una amplia gama de colores. Son para aclarar u oscurecer colores especificos. Por Ejemplo ACLORO(CLR_BLUE,64) probadlas.

xTranslate OSCURO( <nColor>,<nVar> ) => ;

    RGB( MAX(0,nRGBRed(   &lt;nColor&gt; )-&lt;nVar&gt; ) , ;
     MAX(0,nRGBGreen( &lt;nColor&gt; )-&lt;nVar&gt; ) , ;
     MAX(0,nRGBBlue(  &lt;nColor&gt; )-&lt;nVar&gt; ) )

xTranslate ACLARO( <nColor>,<nVar> ) => ;

    RGB( MIN(255,nRGBRed(   &lt;nColor&gt; )+&lt;nVar&gt; ) , ;
     MIN(255,nRGBGreen( &lt;nColor&gt; )+&lt;nVar&gt; ) , ;
     MIN(255,nRGBBlue(  &lt;nColor&gt; )+&lt;nVar&gt; ) )

Los siguientes son colores pasteles, muy claritos para los fondos de los GET's

define CLR_AZUL 16711408 // RGB( 240, 254, 254 )

define CLR_PALIDO 14483198 // RGB( 254, 254, 220 )

define CLR_ROSA 16771327 // RGB( 255, 232, 255 )

define CLR_VERDE 15793904 // RGB( 240, 254, 240 )

Este es el Gris WINDOWS 95/98:

define CLR_WGRAY 12566463 // RGB( 191, 191, 191 )

Estos colores faltaban en mi gama cromática:

define CLR_NARANJA 42234 // RGB( 250, 164, 0 )

define CLR_VIOLETA 7234710 // RGB( 150, 100, 110 ) violeta oscuro

define CLR_BLUEW 10521740 // RGB( 140, 140, 160 ) azul grisaceo

define CLR_CIELO 16774388 // RGB( 244, 244, 255 )

define CLR_MARRON 3707588 // RGB( 212, 162, 72 )

Disfrutadlos.

Nos Gusta Programar

Continue the discussion