25 lines
463 B
Plaintext
25 lines
463 B
Plaintext
DECLARE SUB PaintCanvas
|
|
|
|
CREATE form AS QForm
|
|
Width = 640
|
|
Height = 480
|
|
CREATE canvas AS QCanvas
|
|
Height = form.ClientHeight
|
|
Width = form.ClientWidth
|
|
OnPaint = PaintCanvas
|
|
END CREATE
|
|
END CREATE
|
|
|
|
SUB PaintCanvas
|
|
' Fill background
|
|
canvas.FillRect(0, 0, canvas.Width, canvas.Height, &H301000)
|
|
|
|
' Draw a pixel
|
|
canvas.Pset(300, 200, &H00ddff)
|
|
|
|
' Read pixel color
|
|
PRINT canvas.Pixel(300, 200)
|
|
END SUB
|
|
|
|
form.ShowModal
|