21e325b27a
* NEW: Put the old examples in '/trunk/app/examples'. git-svn-id: svn://localhost/gambas/trunk@6724 867c0c6c-44f3-4631-809d-bfa615b0a4ec
25 lines
528 B
Text
25 lines
528 B
Text
Public Sub Example16()
|
|
|
|
Paint.Font.Name = "Sans"
|
|
Paint.Font.Size = 90
|
|
Paint.Font.Bold = True
|
|
Paint.MoveTo(10, 135)
|
|
Paint.Text("Hello")
|
|
Paint.Fill
|
|
|
|
Paint.MoveTo(70, 165)
|
|
Paint.text("void")
|
|
Paint.Brush = Paint.Color(Color.RGB(128, 128, 255))
|
|
Paint.Fill(True)
|
|
Paint.Brush = Paint.Color(0)
|
|
Paint.LineWidth = 0 '2.56
|
|
Paint.Stroke
|
|
|
|
'Draw helping lines
|
|
Paint.Brush = Paint.Color(Color.RGB(255, 31, 31, 93))
|
|
Paint.Arc(10, 135, 5.12)
|
|
Paint.ClosePath
|
|
Paint.Arc(70, 165, 5.12)
|
|
Paint.Fill
|
|
|
|
End
|