canvas画粗点怎么画

[cfjohn]

canvas画粗点怎么画？image.canvas.pixel[i,j]:=clblack画出来的点太小了

[cfjohn]

没人理我？看来我太菜了

[lihuasoft]

procedure DrawAPoint(Cvs: TCanvas; x,y: integer);
begin
  Cvs.Pixels[x,y] :=clblack;
  Cvs.Pixels[x-1,y] :=clblack;
  Cvs.Pixels[x,y-1] :=clblack;
  Cvs.Pixels[x+1,y] :=clblack;
  Cvs.Pixels[x,y+1] :=clblack;
  Cvs.Pixels[x,y] :=clblack;
  Cvs.Pixels[x+1,y+1] :=clblack;
  Cvs.Pixels[x+1,y-1] :=clblack;
  Cvs.Pixels[x-1,y+1] :=clblack;
  Cvs.Pixels[x-1,y-1] :=clblack;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DrawAPoint(Self.Canvas, 100, 100);
end;

[cfjohn]

只能这样吗？简单点的有没啊

[lihuasoft]

哦。自己晕了。可以设置画笔Pen的大小的

[lihuasoft]

procedure TForm1.Button1Click(Sender: TObject);
begin
  Self.Image1.Canvas.Pen.Width := 5;
  Self.Image1.Canvas.MoveTo(30,30);
  Self.Image1.Canvas.LineTo(30,30);
end;

[mr_liyouliang]

Canvas.Pen.Width := ?;

[lihuasoft]

{如5楼。或这样：}
procedure TForm1.Button1Click(Sender: TObject);
begin
  Self.Image1.Canvas.Pen.Color := clRed;
  Self.Image1.Canvas.Brush.Color := clRed;
  Self.Image1.Canvas.Ellipse(30,30,35,35);
end;
{Pixels只是一个像素点，再怎么调画笔也无济于事。所以要换途径。粗点就是多个像素点。}

[cfjohn]

[Quote=引用 7 楼 lihuasoft 的回复:]
...
{Pixels只是一个像素点，再怎么调画笔也无济于事。所以要换途径。粗点就是多个像素点。}
[/Quote]

哦，懂了谢谢