Бағдарламалау технологиялары және тілдер

Pen.Color:=clRed;

Pen.Width:=1;

Pen.Style:=psDash;

Ellipse(30,30,120,120);

end;

II. Brush (қылқалам)- тұйық облысты, геометриялық фигура ішін бояуды жүзеге асырады. Brush қасиетінің өз қасиеттері бар.

Color – фигура ішін бояу түсін көрсетеді.

Style- бояу стилін анықтайды.

Оның мәндері:

Pen.Color:=clRed; //1-фигура

Pen.Style:=psSolid;

Brush.Color:=clgreen;

Brush.Style:=bsHorizontal;

Ellipse(5,5,60,60);

Brush.Color:=clRed; //2-фигура

Brush.Style:=bsBDiagonal;

Rectangle(70,5,140,70);

Brush.Color:=clblack; //3-фигура

Brush.Style:=bsSolid;

Ellipse(5,75,75,120);

Brush.Color:=claqua; //4-фигура

Brush.Style:=bsVertical;

Chord(80,80,140,140,80,110,140,110);

end; end;

Келесі суретте қосымшаны орындату нәтижесі көрсетілген.