FWH 8.07 - degradados definidos por el usuario

FWH 8.07 - degradados definidos por el usuario

Postby Antonio Linares » Fri Jul 25, 2008 12:37 pm

Los colores degradados para Bars, Buttons y XBrowses pueden ser facilmente definidos, y aceptan un número ilimitado de zonas de degradado (no solamente "dos"). Nueva DATA bClrGrad:
Image
Code: Select all  Expand view  RUN
   DEFINE BUTTONBAR oBar OF oWnd SIZE 60, 60 2007

   oBar:bClrGrad = { | lInvert | If( ! lInvert,;
                                     { { 0.25, nRGB( 129, 132, 135 ), nRGB( 54, 58, 62 ) },;
                                       { 0.75, nRGB(  20,  40,  60 ), nRGB(  5, 10, 15 ) } },;
                                     { { 0.25, nRGB( 160, 173, 174 ), nRGB( 67, 112, 133 ) },;
                                       { 0.75, nRGB(  11,  66,  94 ), nRGB( 74, 134, 187 ) } } ) }
   oBar:nClrText = { | lInvert | If( ! lInvert, nRGB( 235, 160, 86 ), nRGB( 20, 20, 20 ) ) }                       

Pueden usarse muchos colores diferentes, como resultado de evaluar esos codeblocks!
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Antonio Linares » Fri Jul 25, 2008 12:38 pm

Colores del iTunes:
Image
Code: Select all  Expand view  RUN
   oBar:bClrGrad = { | lInvert | If( ! lInvert,;
                                     { { 1, nRGB( 195, 196, 194 ), nRGB( 151, 149, 150 ) } },;
                                     { { 1, nRGB( 254, 255, 232 ), nRGB( 214, 219, 191 ) } } ) }
   oBar:nClrText = { | lInvert | If( ! lInvert, nRGB( 235, 160, 86 ), nRGB( 20, 20, 20 ) ) }                       
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Antonio Linares » Fri Jul 25, 2008 12:51 pm

Ejemplo de tres areas de degradados. Se pueden usar un numero ilimitado de áreas:
Image
Code: Select all  Expand view  RUN
   oBar:bClrGrad = { | lInvert | If( ! lInvert,;
                                     { { 0.30, nRGB( 0, 228, 1 ), nRGB( 168, 231, 38 ) },;
                                       { 0.30, nRGB( 168, 231, 38 ), nRGB( 233, 175, 5 ) },;
                                       { 0.30, nRGB( 233, 175, 5 ), nRGB( 236, 8, 9 ) } },;
                                     { { 1, nRGB( 254, 255, 232 ), nRGB( 214, 219, 191 ) } } ) }
   oBar:nClrText = nRGB( 255, 0, 255 )
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Ale SB » Fri Jul 25, 2008 12:55 pm

Muy bueno, veo que mi idea foi aprobado.

Gracias

Saluds, Ale
aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, você não subtrai quando divide; mas soma e multiplica."
**---Mário Persona---**
User avatar
Ale SB
 
Posts: 248
Joined: Wed Jan 11, 2006 11:30 am
Location: Campo Grande-MS / Brasil

Postby Antonio Linares » Fri Jul 25, 2008 12:59 pm

Ale,

Siempre escuchamos todas las sugerencias, aunque tardemos algo en ir implementándolas :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby jcaro » Fri Jul 25, 2008 2:28 pm

Antonio:

Excelente trabajo - se nota que estamos creativos y te hace bien el verano !!

Saludos ,
Juan
==> Pasando a FWH16.04 + Harbour32 + BCC70 + PellesC
=> Abandonando FWH 13.7 + xHarbour + BCC582
http://www.mitaller.cl
jcaro
 
Posts: 270
Joined: Fri Nov 11, 2005 7:39 pm

Postby Antonio Linares » Fri Jul 25, 2008 6:01 pm

Colores de la barra de botones del iPhone:
Image
Code: Select all  Expand view  RUN
   oBar:bClrGrad = { | lInvert | If( ! lInvert,;
                                     { { 0.50, nRGB( 178, 187, 202 ), nRGB( 137, 155, 179 ) },;
                                       { 0.50, nRGB( 129, 149, 174 ), nRGB( 114, 132, 156 ) } },;
                                     { { 0.50, nRGB( 139, 166, 193 ), nRGB(  69, 119, 170 ) },;
                                       { 0.50, nRGB(  52, 104, 152 ), nRGB(  50, 107, 162 ) } } ) }
   oBar:nClrText = nRGB( 255, 255, 255 )
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 53 guests