BTNBMP Estilo 2010 desde Recursos

[Blessed]

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

[Blessed]

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

[Antonio Linares]

Oscar,

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

REDEFINE BTNBMP ... GRADIENT bGrad ?

[Blessed]

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: Select all  Expand view

 
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 ) }  ;
         } ) }

 

[Antonio Linares]

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

[Blessed]

Gracias Antonio

A recoger ahorros para estar actualizado