画线条时我的坐标不是整数怎么处理？请进来看看

Question

这实际上就是一个分辨率的问题了
比如说TC，分辨率只有320＊240，那还不是要画图，
只好找出最相近的点了，这也就是图示学的要求嘛！
比如四舍五入，再有就是你可以把图放大一点，这样
在原坐标上乘2后，可能会更接近吧比如：100.45*2 = 200.9  -->  201 比 100.45->100 要好一点吧

Answer 1

多谢几位,
只有用Pixels来画了？

Answer 2

Canvas.Pen.Width : = ...
当然如果用点的话最好（灵活）

Answer 3

对不起，怪我没说清楚，我说的就是
var
  W: Word;
begin
  for W := 10 to 200 do
    Canvas.Pixels[W, 10] := clRed;
能画一条线，但粗只有一个像素粗，我想再粗一点
只能用Canvas.Pixels[W, 9] := clRed;吗?

Answer 4

可以写一个drawPixel（x,y）
with ... do
 moveto(x,y);
 lineto(x,y);

Answer 5

write a new procedure
drawPixel(x:Integer;y:Integer)
with ...Canvas do
  MoveTo(x,y);
  LineTo(x,y);
这样pen的设置就有用了