langs a-z

Task/Bitmap/RapidQ/bitmap.rapidq

@@ -0,0 +1,24 @@
+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