objetos transparentes
Publicado por marcelo (42 intervenciones) el 09/06/2007 23:47:40
Baje de esta pag. el siguiente codigo para hacer un form con color degradado
Local i,color1, R, G, B
With Thisform
.scalemode = 3 &&pixeles
.drawstyle = 0 && sólido
.drawwidth = 2
R=0
G=0
B=255
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
Lo probe y va de 10. El problema que encuentro es que al agregar un label, este me aparece con fondo gris o el que elija y no lo puedo hacer transparente para que se adapte al color del formulario
Local i,color1, R, G, B
With Thisform
.scalemode = 3 &&pixeles
.drawstyle = 0 && sólido
.drawwidth = 2
R=0
G=0
B=255
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
Lo probe y va de 10. El problema que encuentro es que al agregar un label, este me aparece con fondo gris o el que elija y no lo puedo hacer transparente para que se adapte al color del formulario
Valora esta pregunta


0