РАБОТА СО  СИТЕ ФИГУРИ

Прво се подига програмскиот јазик Delphi и се прави избор на нова апликација File->NEW Application.

Се поставува и еден  Button  со Caption - Crtaj  од палетата со компоненти Standard. На Event клик на

Button1 се впишува следниот код

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
canvas.Pen.Color:=clred;
canvas.Pen.Width:=5;
canvas.Pen.Style:=psdash;
canvas.Pen.Style:=psdot;
canvas.Pen.Style:=psdashdot;
canvas.Pen.Style:=psdashdotdot;

canvas.Rectangle(10,10,200,200);

canvas.Pen.Color:=clyellow;
canvas.Pen.Width:=5;
canvas.Brush.Color:=clolive;
canvas.Brush.Style:=bshorizontal;
canvas.Brush.Style:=bsvertical;
canvas.Brush.Style:=bscross;
canvas.Brush.Style:=bsdiagcross;

canvas.Ellipse(10,10,200,200);

canvas.Pen.Color:=clblue;
canvas.Pen.Width:=4;
canvas.MoveTo(10,10);
canvas.LineTo(200,200);

canvas.RoundRect(200,200,500,500,50,80);
Canvas.Polyline([Point(40, 10), Point(20, 60), Point(70, 30),Point(10, 30), Point(60, 60), Point(40, 10)]);

canvas.Brush.Style:=bssolid;
Canvas.Brush.Color := clblue;
Canvas.Polygon([Point(10, 10), Point(30, 10),Point(130, 30), Point(240, 120)]);


canvas.Brush.Style:=bssolid;
Canvas.Brush.Color := clred;
Canvas.Pie(40,40,500,500,60,400,400,60);

canvas.pen.Style:=pssolid;
Canvas.pen.Color := clyellow;
Canvas.Pie(40,40,500,500,60,400,400,60);

canvas.Pen.Width:=5;
canvas.Pen.Color:=claqua;
for i:=1 to form1.Width do
canvas.Pixels[i,i];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.WindowState:=wsmaximized;                                    // максимизирање на работната форма
end;