QBITMAP Компонент

DIM Bitmap AS QBITMAP
Bitmap.BMP = "whatever.bmp"

 CONST cmBlackness = 0 ' Fill Destination rectange on the canvas with black
 CONST cmDstInvert = 1
 CONST cmMergeCopy = 2
 CONST cmMergePaint = 3
 CONST cmNotSrcCopy = 4
 CONST cmNotSrcErase = 5
 CONST cmPatCopy = 6
 CONST cmPatInvert = 7
 CONST cmPatPaint = 8
 CONST cmSrcAnd = 9
 CONST cmSrcCopy = 10 ' Copies source image to the canvas
 CONST cmSrcErase = 11
 CONST cmSrcInvert = 12
 CONST cmSrcPaint = 13
 CONST cmWhiteness = 14 ' Fill Destination rectange on the canvas with white

'-- QBITMAP Pixel Formats
CONST pfDevice = 0
CONST pf1bit = 1
CONST pf4bit = 2
CONST pf8bit = 3
CONST pf15bit = 4
CONST pf16bit = 5
CONST pf24bit = 6
CONST pf32bit = 7

'-- QBITMAP TransparentMode 
CONST tmAuto  = 0
CONST tmFixed = 1

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

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
Bitmap.CopyRect(Destination, Image, Source)