TCanvas.CopyRect方法中参数CopyMode的意义

小程序：扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序

首先看可能取值:

cmBlackness = BLACKNESS;

cmDstInvert = DSTINVERT;

cmMergeCopy = MERGECOPY;

cmMergePaint = MERGEPAINT;

cmNotSrcCopy = NOTSRCCOPY;

cmNotSrcErase = NOTSRCERASE;

cmPatCopy = PATCOPY;

cmPatInvert = PATINVERT;

cmPatPaint = PATPAINT;

cmSrcAnd = SRCAND;

cmSrcCopy = SRCCOPY;

cmSrcErase = SRCERASE;

cmSrcInvert = SRCINVERT;

cmSrcPaint = SRCPAINT;

cmWhiteness = WHITENESS;

看效果.来点儿代码试一下:

procedure TForm3.Button1Click(Sender: TObject);

var

RC1,RC2:TRect;

begin

RC1:=Rect(0,0,img1.Width,img1.Height);

RC2:=Rect(0,0,img2.Width,img2.Height);

with img2.Canvas do

begin

CopyMode:=cmBlackness;//就改这个

CopyRect(RC1,img1.Canvas,RC2);

end;

来弄个表格:
原图

CopyMode	效果
Blackness	用黑色填充目标矩形区域.
Whiteness	用白色填充目标矩形区域
DstInvert	将目标矩形图象进行反相
MERGECOPY	将源矩形图象与指定的图案刷(Pattern)进行布尔"与"运算
MERGEPAINT	将源矩形图形经过反相后，与目标矩形图象进行布尔"或"运算
NOTSRCCOPY	将源矩形图象经过反相后，复制到目标矩形上
NOTSRCERASE	先将源矩形图象与目标矩形图象进行布尔"或"运算，然后再将得图象进行反相
PATCOPY	将指定的图案刷复制到目标矩形上
PATINVERT	将指定的图案刷与目标矩形图象进行布尔"异或"运算
PATPAINT	先将源矩形图象进行反相，与指定的图案刷进行布尔"或"运算，再与目标矩形图象进行布尔"或"运算SRCAND 将源矩形图象与目标矩形图象进行布尔"与"运算
SRCCOPY	将源矩形图象直接复制到目标矩形上
SRCERASE	将目标矩形图象进行反相，再与源矩形图象进行布尔"与"运算
SRCINVERT	将源矩形图象与目标矩形图象进行布尔"异或"运算
SRCPAINT	将源矩形图象与目标矩形图象进行布尔"或"运算