27 lines
486 B
Text
27 lines
486 B
Text
|
Public Sub Example11()
|
||
|
|
|
||
|
|
Dim X, Y, W, H As Float
|
||
|
|
Dim hBrush As PaintBrush
|
||
|
|
Dim hImage As Image
|
||
|
|
|
||
|
|
hImage = Image.Load(IMAGE_NAME)
|
||
|
|
|
||
|
|
X = 16
|
||
|
|
Y = 40
|
||
|
|
W = 200
|
||
|
|
H = 200
|
||
|
|
|
||
|
|
hBrush = Paint.Image(hImage)
|
||
|
|
hBrush.Translate(X, Y)
|
||
|
|
hBrush.Scale(W / hImage.W, H / hImage.H)
|
||
|
|
Paint.Brush = hBrush
|
||
|
|
Paint.Rectangle(X, Y, W, H)
|
||
|
|
Paint.Fill
|
||
|
|
'Paint.DrawImage(hImage, X, Y, W, H)
|
||
|
|
|
||
|
|
Paint.Brush = Paint.Color(Color.RGB(255, 127, 127, 153))
|
||
|
|
Paint.Arc(X, Y, 10)
|
||
|
|
Paint.Fill
|
||
|
|
|
||
|
|
End
|