c6a9cd69c2
* NEW: Add examples again. I hope correctly this time. git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec
16 lines
413 B
Text
16 lines
413 B
Text
Public Sub Example18()
|
|
|
|
Paint.Save
|
|
Paint.Rectangle(10, 10, 200, 100)
|
|
Paint.Stroke(True)
|
|
Paint.Clip
|
|
Paint.Font.Size = 18
|
|
'Paint.Brush = Paint.Color(Color.Blue)
|
|
Paint.Text("TO BE, OR NOT TO BE: THAT IS THE QUESTION:", 10, 10, 30, 30)
|
|
Paint.Fill
|
|
Paint.Restore
|
|
'Paint.Brush = Paint.Color(Color.Blue)
|
|
Paint.Text("TO BE, OR NOT TO BE: THAT IS THE QUESTION:", 10, 40, 30, 30)
|
|
Paint.Fill
|
|
|
|
End
|