Quote:
Originally Posted by agraham
Gradient fill for circle is a nice idea but I'm afraid it is not supported on the device. It is possible on the desktop so I might look at putting it in my GDI+Desktop library.
|
I see. It's a known bug.....
I simulated it by changing radius and Fill color of the circle consecutively and it worked on device...
Code:
iRad = 20
fct1 = Ln(iRad)/255
For i=iRad To 1 Step -1
'1.7 to 0
cR1 = Int(Ln(i)/fct1)
cR2 = 255-Int(Ln(iRad+1-i)/fct1)
'Msgbox("Calculated Log(" & i & ") = " & cR1 & CRLF & cR2)
brs.Color = Rgb(cR1,0,0)
drw.FillCircle(brs.Value, xCtr-50, yCtr-50, i)
brs.Color = Rgb(cR2,0,0)
drw.FillCircle(brs.Value, xCtr+50, yCtr-50, i)
Next
Would be nice to have feature.
Thanks again for the kindness.