Delphi 的绘图功能[12] - TPen 类(下) : 学习橡皮线

最新推荐文章于 2014-07-19 13:57:00 发布

原创

最新推荐文章于 2014-07-19 13:57:00 发布 · 812 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #integer #button #forms #windows #class

这篇博客介绍了如何在Delphi中利用TPen类的pmXor模式创建橡皮线效果。通过监听鼠标事件，改变画布上的线条，实现类似橡皮擦的功能。用户在按下鼠标时设定线条起点，移动鼠标时擦除路径，释放鼠标时画出最终线条。

//奇妙的异或运算, 就这些简单的代码, 反复点击按钮...

procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.Pen.Color := clYellow; {指定笔颜色为黄色}
  Canvas.Pen.Width := 20;       {笔宽 20}
  Canvas.Pen.Mode := pmXor;     {指定画笔模式为: 画笔色与背景色的异或运算}

  {画线}
  Canvas.MoveTo(0,0);
  Canvas.LineTo(ClientWidth,ClientHeight);
end;

 
 

//效果图: