Рисунок в модуле vcl на паскале - Pascal ABC

Формулировка задачи:

Помогите пожалуйста! Нужно создать рисунок в форме с использованием модуля vcl. За ранее спасибо.

Решение задачи: «Рисунок в модуле vcl на паскале»

textual
                            Листинг программы 
                        

                            uses vcl;
var f:Form;
    p:PaintBox;
begin
f:=Form.Create(0,0);
f.ClientWidth:=500;
f.ClientHeight:=500;
f.Position:=poScreenCenter;
p:=PaintBox.Create(10,10,480,480);
with p.Canvas do
 begin
  pen.Width:=10;
  pen.Color:=clRed;
  rectangle(50,50,400,400);
 end;
end.
                        

Оцени полезность:

6 голосов , оценка 3.5 из 5

Похожие ответы