Как нарисовать гуманоида через Canvas
procedure TForm1.FormPaint (Sender: TObject);
begin
with Form1.Canvas do begin
Pen.Width:=2;
Pen.Color:=clBlack;
Ellipse (100,50,550,550);
Ellipse (200,100,300,400);
Ellipse (220,160,280,370);
Ellipse (230,190,270,350);
Ellipse (240,200,260,330);
Ellipse (350,100,450,400);
Ellipse (370,160,420,370);
Ellipse (380,190,410,350);
Ellipse (390,200,405,330);
end;
end;
В свойствах формы выбираем FormPaint тыкаем, и делаем то что ниже написано.
procedure TForm1.FormPaint (Sender: TObject);
begin
with Form1.Canvas do begin
Pen.Width:=2;
Pen.Color:=clBlack;
Ellipse (100,50,550,550);
Ellipse (200,100,300,400);
Ellipse (220,160,280,370);
Ellipse (230,190,270,350);
Ellipse (240,200,260,330);
Ellipse (350,100,450,400);
Ellipse (370,160,420,370);
Ellipse (380,190,410,350);
Ellipse (390,200,405,330);
end;
end;