18 lines
305 B
Text
18 lines
305 B
Text
|
Public Sub Example20()
|
||
|
|
|
||
|
|
Dim eWidth As Float
|
||
|
|
Dim Y As Float
|
||
|
|
|
||
|
|
Y = 20.5
|
||
|
|
For eWidth = 0 To 5 Step 0.25
|
||
|
|
Paint.LineWidth = eWidth
|
||
|
|
Paint.MoveTo(50, Y)
|
||
|
|
Paint.RelLineTo(200, 0)
|
||
|
|
Paint.Stroke
|
||
|
|
Paint.Text(eWidth, 0, Y - 10, 40, 20, Align.Right)
|
||
|
|
Paint.Fill
|
||
|
|
Y += 20
|
||
|
|
Next
|
||
|
|
|
||
|
|
End
|