Как нарисовать гуманоида через 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% [?]

Метки:на delphi

Связанные записи

Рубрика: Delphi · Метки:

Выразите свои мысли

Скажите нам, что вы думаете...
и если вы хотите сопроводить комментарий своей аватаркой, воспользуйтесь сервисом gravatar!