РАБОТА СО  Pixels, Polygon, Polyline,Arc i Pie

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

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

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

var i:integer;
p1,p2,p3,p4,p5:Tpoint;                    // декларирање на точки - сопствени типови на податоци
begin                           
canvas.Pen.Width:=1;
for i:=1 to form1.Width do
if i mod 2=0 then
canvas.Pixels[i,i]:=clred                // наредба PIXELS
else
canvas.Pixels[i,i]:=clgreen;

canvas.PolyLine([point(20,20),point(80,20),point(80,80),point(20,80),point(20,20)]);    //наредба POLYLINE

canvas.Brush.Style:=bsSolid;
canvas.Brush.Style:=bsClear;

canvas.Brush.Style:=bshorizontal;
canvas.Brush.Style:=bsvertical;

canvas.Brush.Style:=bsbdiagonal;
canvas.Brush.Style:=bsfdiagonal;

canvas.Brush.Style:=bsdiagcross;
canvas.Brush.Style:=bscross;

canvas.Brush.Color:=clyellow;
canvas.Pen.Color:=clblue;
p1:=point(620,620);                                                    // точките имаат две координати
p2:=point(680,620);
p3:=point(680,680);
p4:=point(620,680);
p5:=point(620,620);
canvas.Polygon([p1,p2,p3,p4,p5]);                            // наредба POLYLINE
canvas.roundrect(100,100,300,300,20,40);                 // заокружен правоаголник 
canvas.Arc(20,20,400,400,40,60,600,400);                  // дел од елипса
canvas.pie(220,220,600,600,40,60,600,400);               // дел од пита
end;