canvas画粗点怎么画

Question

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

Answer 1

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;

Answer 2

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

Answer 3

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;

Answer 4

  Canvas.Pen.Width := ?;

Answer 5

{如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只是一个像素点，再怎么调画笔也无济于事。所以要换途径。粗点就是多个像素点。}