if fselected = true then begin
acanvas.rectangle((ptstart.x - forcusrange),
(ptstart.y - forcusrange),
(ptstart.x + forcusrange),
(ptstart.y + forcusrange));
acanvas.rectangle((ptend.x - forcusrange),
(ptend.y - forcusrange),
(ptend.x + forcusrange),
(ptend.y + forcusrange));
end;
end;
canvas是任何一个拥有画笔的组件的canvas都可以。具体几何依据原作者没有讲。但是经过底下验算。有三个特点。
1. 箭头两翼端点连线和直线垂直（斜率之积等于-1）。
2. .箭头两翼长度相同。（等腰三角形）
3. 箭头两翼长度和两翼端点间的距离比值一定。（决定了夹角）
