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

时间：2016-02-09 01:12:12 阅读：270 评论：0 收藏：0 [点我收藏+]

标签：

首先看可能取值:

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;
end;

来弄个表格:
原图

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