如何在Delphi里实现类似于画图软件的画笔功能？

Question

设个变量 IsMouseDownOnMouseDown 时 IsMouseDown := True;
OnMouseMove 时 如果IsMouseDown = True就画吧，当然还要记个上次位置
OnMouseUp   时 IsMouseDown := False;

Answer 1

关键“要记住上次位置”。我要直接给象素点赋值而不是通过Canvas.lineto来实现。
如果很长的轨迹，会不会暴力访问内存呀。

Answer 2

关注，前提。希望 Go on !

Answer 3

可以随意拖动的线不用画在Form.Canvas上，最后直接画在屏幕上

Answer 4

look at:
http://www.truevcl.com

Answer 5

在《delphi4编程技术内幕》中有个例子，主要用了异或方式画图。