17 lines
511 B
Plaintext
17 lines
511 B
Plaintext
Function CreatePicture(width As Integer, height As Integer) As Picture
|
|
Return New Picture(width, height)
|
|
End Function
|
|
|
|
Sub FillPicture(ByRef p As Picture, FillColor As Color)
|
|
p.Graphics.ForeColor = FillColor
|
|
p.Graphics.FillRect(0, 0, p.Width, p.Height)
|
|
End Sub
|
|
|
|
Function GetPixelColor(p As Picture, x As Integer, y As Integer) As Color
|
|
Return p.RGBSurface.Pixel(x, y)
|
|
End Function
|
|
|
|
Sub SetPixelColor(p As Picture, x As Integer, y As Integer, pColor As Color)
|
|
p.RGBSurface.Pixel(x, y) = pColor
|
|
End Sub
|