改变图片效果

标签：实现   phi   ros   mod   end   canvas   roc   改变   form   

想不想另图片有另一番效果，使用下列语句实现吧，增加两个Timage图片框，分别为Image1、Image2，用Image1引入一张图片，按下按钮就可以在Image2上出现惊人的效果
procedure TForm1.Button1Click(Sender: Tobject);
begin
Image2.Canvas.Brush.Style := bsCross;
Image2.Canvas.CopyMode := cmMergeCopy;
Image2.Canvas.Draw(0,0, Image1.Picture.Graphic);
end;

改变图片效果

标签：实现   phi   ros   mod   end   canvas   roc   改变   form   

原文地址：http://www.cnblogs.com/yzryc/p/6374392.html