18 lines
621 B
Text
18 lines
621 B
Text
|
Function CreatePicture(width As Integer, height As Integer, depth As Integer) As Picture
|
||
|
|
'It is not possible to create a Picture object with dimensions without initializing it
|
||
|
|
Return New Picture(width, height, depth)
|
||
|
|
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.Graphics.Pixel(x, y)
|
||
|
|
End Function
|
||
|
|
|
||
|
|
Sub SetPixelColor(p As Picture, x As Integer, y As Integer, pColor As Color)
|
||
|
|
p.Graphics.Pixel(x, y) = pColor
|
||
|
|
End Sub
|