26 lines
525 B
Text
26 lines
525 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 = 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
|