Как нарисовать гуманоида через Canvas



style="display:block"
data-ad-client="ca-pub-0562610021414947"
data-ad-slot="5792664354"
data-ad-format="link">

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;

Популярность: 1% [?]



style="display:inline-block;width:468px;height:60px"
data-ad-client="ca-pub-0562610021414947"
data-ad-slot="7620109552">

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!

Подтвердите, что Вы не бот — выберите человечка с поднятой рукой: