FoxPro/Visual FoxPro - Colores degradados con VFP 9.0

   
Vista:

Colores degradados con VFP 9.0

Publicado por Marco Aurelio (263 intervenciones) el 09/03/2009 18:48:10
Hola, corro unos formulacion con efecto de color degradados me corre bien en VFP 7.0, pero este mismo codigo lo corro con VFP 9.0 y se borran los objetos del formulario, alguna idea de que pasa o falta colocar alguna propiedad en el formularion aqui va el codigo esta ubicado en el evento INIT

*** Rutina para degradar el color ***
Local i,color1, R, G, B
With Thisform
.scalemode = 3 &&pixeles
.drawstyle = 0 && sólido
.drawwidth = 2
R=254
G=226
B=199

FOR i = 1 to 255
*-- Disminuimos valor de colores
If r > 0 then
r = r - .5
endif
IF g > 0 then
g = g - .5
endif
IF b > 0 Then
b = b - .5
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
********** fin rutina *********************

Saludos amigo....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Colores degradados con VFP 9.0

Publicado por HELDER MARTINEZ (COUNDY)  (710 intervenciones) el 09/03/2009 20:45:53
gracias por el aporte amigo,

saludes
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar