Un efecto "GROOVY" en la aplicación

Podemos agregar un efecto de cambio de colores que reaccionen al mouse

1. Agregar al InitEvent de un formulario el código de "efecto degradado por colores" de Ramón Rodriguez Ramírez:

*!* Rutina para generar degradados en Visual FoxPro
*!* -----------------------------------------------

*!* Para probar este ejemplo, pegue el código
*!* en el método init de un formulario y
*!* presione CTRL+D.

*!* Autor: L.C.C. Ramón Rodríguez martínez
*!* Pais de procedencia: México.
*!* Actualizacion: 7 de agosto de 2002
*!* Version 1.0


Local i,color1, R, G, B
With Thisform
 .scalemode = 3 &&pixeles 
 .drawstyle = 0 && sólido 
 .drawwidth = 2 
 R=0
 G=255
 B=0
 FOR i = 1 to 255 
  *-- Disminuimos valor de colores
  If r > 0 then 
   r = r - 1 
  endif 
  IF g > 0 then 
   g = g - 1 
  endif 
  IF b > 0 Then 
   b = b - 1 
  endif 
  color1 = RGB(R,G,B) 
  
  *Establesco el color
  .forecolor=Color1
  
  *- Dibujo linea sobre el fomulario
  .line (0,.ViewPortHeight * (i - 1) / 255, .ViewPortwidth, .ViewPortheight * i / 255)
 NEXT i 
EndWith

2. En el MouseMoveEvent del formulario agragar lo siguiente:

LPARAMETERS nButton, nShift, nXCoord, nYCoord
_screen.backcolor=this.Point(nXCoord,nYCoord)

Y listo, un efecto tipo "disco" para el Screen principal.

Quiero agradecer a Ramón por enseñarme el "efecto degradado". Espero te guste lo que hice con tu código.

Lucio Manuel Núñez Ramírez