topic-26857

Posts: 243

Joined: Wed Sep 19, 2007 04:32 PM

BTNBMP Estilo 2010 desde Recursos
Posted: Sat Jul 27, 2013 05:35 PM

Hola a todos

Estoy queriendo actualizar el interfaz de mis aplicaciones ya que estoy con la FWH13.06, pero al tomar el consejo de siempre usar la clausula de 2007 y agregando GRADIENT bGrad
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=23315&p=125730&hilit=BUTTON+2010#p125730

Consultado el archivo include FiveWin.ch en REDEFINE BTNBMP no incluye la clausula GRADIENT.
¿Habra alguna manera de hacerlo?

Gracias de antemano

Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06

Blessed

Posts: 243

Joined: Wed Sep 19, 2007 04:32 PM

Re: BTNBMP Estilo 2010 desde Recursos (solucionado)
Posted: Sat Jul 27, 2013 07:46 PM

Hola a todos

Contestandome a mi mismo, y de la forma que se critico antes, cambie la clase BTNBMP, y solo modifique el arreglo de Gradient, en el metodo ReDefine.

Saludos

Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: BTNBMP Estilo 2010 desde Recursos
Posted: Sun Jul 28, 2013 06:36 AM

Oscar,

Puedes mostrarnos como lo has modificado ? Asi lo incluimos en FWH para próximas versiones, gracias

REDEFINE BTNBMP ... GRADIENT bGrad ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

Blessed

Posts: 243

Joined: Wed Sep 19, 2007 04:32 PM

Re: BTNBMP Estilo 2010 desde Recursos
Posted: Mon Jul 29, 2013 10:27 PM

Maestro
No no hice nada complicado, solo cambie el color por defecto del Gradient, un tanto soso, para no cambiar el codigo de mis programas.

Code (fw): Select all Collapse

   
DEFAULT ::bClrGrad := { | lInvert | If( lInvert, ;
         { { 1/3, nRGB( 255, 253, 222 ), nRGB( 255, 231, 151 ) }, ;
           { 2/3, nRGB( 255, 215,  84 ), nRGB( 255, 233, 162 ) }  ;
         }, ;
         { { 1/2, nRGB( 219, 230, 244 ), nRGB( 207-50, 221-25, 255 ) }, ;
           { 1/2, nRGB( 201-50, 217-25, 255 ), nRGB( 231, 242, 255 ) }  ;
         } ) }

Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: BTNBMP Estilo 2010 desde Recursos
Posted: Tue Jul 30, 2013 06:18 AM

Añadida la claúsula GRADIENT al commando REDEFINE BTNBMP ... GRADIENT ... en FWH 13.07 :-)