版主: 測試了canvas的諸多功能之後有一個盲點無法解決 在canvas畫line,一般均正常,只有在Line寬度為1,座標位於(2,2),(4098,40)至(2,2),(2,4135)的區間會看不見line,不知何故?即使在Tgraphic control物件上依然如此,想請版主看看是否是DELPHI 本身的問題? 謝謝 chieh procedure TForm1.FormPaint(Sender: TObject); begin SetWindowOrgEx (Canvas.Handle, HorzScrollbar.Position, VertScrollbar.Position, nil); Canvas.Pen.Width := 1; Canvas.Pen.Color := clblack; Canvas.MoveTo (2, 2); Canvas.LineTo (4090, 9);{在4097之前或4138之後均正常顯現,介於 期間的均不能顯現} end;

经过我测试，D7，是有点奇怪。 我的测试代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
  Canvas.Pen.Width := 1;
  Canvas.Pen.Color := clRed;
  Canvas.MoveTo (13, 13);
  i:=4139;
  Canvas.LineTo (i, 13);
end;

测试结果，如果Pen.Width:=2，则一切正常。如果是1，则当 i=4139或4138等数字的时候，只画出来长度大概只有10的一条横线。 i在1851以下，画出线来没问题，到1852或更大的数字，就看不到任何线了。