Как нарисовать гуманоида через 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 тыкаем, и делаем то что ниже написано.

gumanoid

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;

About admin

Speak Your Mind

Tell us what you're thinking...
and oh, if you want a pic to show with your comment, go get a gravatar!

Подтвердите, что Вы не бот — выберите самый большой кружок: