21e325b27a
* NEW: Put the old examples in '/trunk/app/examples'. git-svn-id: svn://localhost/gambas/trunk@6724 867c0c6c-44f3-4631-809d-bfa615b0a4ec
19 lines
484 B
Text
19 lines
484 B
Text
Public Sub Example18()
|
|
|
|
Paint.Font.Size = 24
|
|
Paint.Save
|
|
Paint.Rectangle(10, 10, 285, 100)
|
|
Paint.Background = Color.RGB(255, 31, 31, 224)
|
|
Paint.Fill(True)
|
|
Paint.LineWidth = 3
|
|
Paint.Background = Color.Blue
|
|
Paint.Stroke(True)
|
|
Paint.Clip
|
|
Paint.Background = Color.Red
|
|
Paint.Text("TO BE, OR NOT TO BE: THAT IS THE QUESTION:", 20, 20, 30, 30)
|
|
Paint.Fill
|
|
Paint.Restore
|
|
Paint.Text("TO BE, OR NOT TO BE: THAT IS THE QUESTION:", 20, 60, 30, 30)
|
|
Paint.Fill
|
|
|
|
End
|