Question

delphi canvas怎样画菱形

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
x: integer;
begin
x := 80;
form1.canvas.pen.width := 2;
form1.canvas.pen.color := clred;

form1.canvas.moveto(x, 0);
form1.canvas.lineto(0,x);

form1.canvas.Moveto(0,x);
form1.canvas.Lineto(x, 2*x);

form1.canvas.MoveTo(x, 2*x);
form1.canvas.lineto(2*x, x);

form1.canvas.MoveTo(2*x, x);
form1.canvas.LineTo(x, 0);
end;