QCanvasX

Align (Alinhamento)

Align determina como esse componente se alinha dentro do componente parent.

alNone = 0
alTop = 1
alBottom = 2
alLeft = 3
alRight = 4
                                                    alClient = 5   '-- Expande se ajustando ao cliente

CopyMode

                                                       cmBlackness = 0   'Preenche o retângulo destino
                                                                               no canvas com pręto
                                                       cmDstInvert = 1

cmMergeCopy = 2
cmMergePaint = 3
cmNotSrcCopy = 4
cmNotSrcErase = 5
cmPatCopy = 6
cmPatInvert = 7
cmPatPaint = 8
cmSrcAnd = 9
                                              cmSrcCopy = 10   'Copia a imagem fonte no canvas
cmSrcErase = 11
cmSrcInvert = 12
cmSrcPaint = 13
                                                cmWhiteness = 14 'Preenche o retângulo de destino
                                                             no canvas com branco

Cursor

                         crDefault = 0        ' Ponteiro normal
crNone = -1
crArrow = -2
crCross = -3
crIBeam = -4
crSize = -5
crSizeNESW = -6
crSizeNS = -7
crSizeNWSE = -8
crSizeWE = -9
crUpArrow = -10
crHourGlass = -11
crDrag = -12
crNoDrop = -13
   crHSplit = -14
crVSplit = -15
crMultiDrag = -16
crSQLWait = -17
crNo = -18
crAppStart = -19
crHelp = -20
crHandPoint = -21

CopyRect

Exemplo (copia QIMAGE para o canvas em 10,10):

DIM Destination AS QRECT
DIM Source AS QRECT
DIM Image AS QIMAGE
   Image.BMP = "whatever.bmp"

                    SUB CanvasPaint (Sender AS QCANVAS)
WITH Destination
.   Top = 10
.   Left = 10
.                       Right = .Left+Image.Width
.                          Bottom = .Top+Image.Height
END WITH
    WITH Source
.   Top = 0
.   Left = 0
.                      Right = Image.Width
.                          Bottom = Image.Height
END WITH
                                                  Sender.CopyRect(Destination, image, Source)
END SUB

DIM Canvas AS QCANVAS
     Canvas.OnPaint = CanvasPaint

Draw

BMP pode ser qualquer propriedade BMP, de QBitmap, QImage, QImageList, etc.
Qualquer componente com a propriedade BMP está ok.

Exemplo:

DIM Image1 AS QIMAGE
Image1.BMP = "whatever.bmp"
DIM Image2 AS QBITMAP
Image2.BMP = "whatever.bmp"

                SUB CanvasPaint (Sender AS QCANVAS)
          Sender.Draw(0,               Sender.Draw(50, 50, Image2.BMP)
END SUB

DIM Canvas AS QCANVA      S

Canvas.OnPaint = CanvasPaint