c6a9cd69c2
* NEW: Add examples again. I hope correctly this time. git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec
17 lines
305 B
Text
17 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
|