Графикалық примитивтерді салу әдістері

Тү зу. Тү зу сызық ты салу ә дісі LineTo командасы арқ ылы орындалады. Оның жалпы тү рі:

Компонент.Canvas.LineTo(x, y)

LineTo ә дісі тү зу сызық ты қ аламның ағ ымдағ ы орнынан координатасы кө рсетілген нү ктеге дейін салады. Тү зудің бастапқ ы нү ктесін қ аламды графикалық беттің керекті нү ктесіне жылжыту арқ ылы орындауғ а болады. Оны MoveTo параметр арқ ылы беруге болады.

Графикалық беттегі тү зудің тү сі Pen объектісінің қ асиеті арқ ылы беріледі.

Сынық сызық. Poliline ә дісі сынық, кесінділер сызады. Параметр ретінде бұ л ә діс Tpoint типті массивті алады. Массивтің ә р элементі жазу ретінде қ арастырылады, x жә не y ө рістері иілу нү ктелерінің координаталары.

Шең бер жә не эллипс. Ellips ә дісі берілген параметрге байланысты эллипс немесе шең бер сызады. Оның жалпы тү рі:

Объект.canvas.Ellips(x1, y1, y2, y2);

Мұ ндағ ы:

Объект – сызу орындалатын беттің объектісі; x1, y1, y2, y2 – ішіне шең бер салынатын тіктө ртбұ рыштың координаталары.

X1, Y1 x1, y1

X2, Y2 x2, y2

10.3-сурет. Объектілердің беттегі орналасуы

Доғ а. Доғ аны салу Arc ә дісі арқ қ ылы орындалады. Оның жалпы тү рі:

Объект. canvas.Arc(x1, y1, y2, y2, x3, y3, x4, y4)

Мұ ндағ ы,

x1, y1, y2, y2 - эллипсті анық тайтын параметрлер;

x3, y3 – доғ аның бастапқ ы нү ктесін анық тайтын параметр;

x4, y4 – доғ аның соң ғ ы нү ктесін параметр;

Бастапқ ы нү кте – бұ л эллипс жә не тү зу шекараларының қ иылысу нү ктесі. Бұ л шекара эллипс центрінен (x3, y3) нү ктесіне дейінгі кесінді.

Доғ аның тү сі, ені, тү зу стилі беттегі Pen қ асиетімен анық талады.

X1, y1 x3, y3

X4, y4

x2, y2

10.4-сурет. Доғ а

Тіктө ртбұ рыш. Тіктө ртбұ рыш Rectangle ә дісі арқ ылы салынады. Оның жалпы тү рі:

Объект.Canvas. Rectangle(x1, y1, x2, y2)

x1, y1

y3

x2, y2

10.5-сурет. Тіктө ртбұ рыш

Мұ ндағ ы:

Объект – объект немесе компонент аты;

X1, y1 жә не x2, y2 – тіктө ртбұ рыштың жоғ арғ ы сол жақ жә не тө менгі оң жақ коорданаталары.

Кейде Объект.Canvas.rectangle(x1, y1, x2, y2, x3, y3) болады. Параметр ретінде ә діс Tpoint типті массив алынады. Массивтің ә р элементі жазба ретінде қ арастырылады. Poligon ә дісі координаталары массивте орналасқ ан нү ктелерді тү зу арқ ылы қ осады. Мұ нда бірінші нү кте мен екінші нү кте, екінші мен ү шінші т.с.с. соң ында біріншісі мен соң ғ ысы қ осылады.

Тө менде Poligon ә лісін қ олданғ ан процедура жазылғ ан.

Procedure TForm1.Button2Click(sender: TObject);

Var

Pol: array: [1..3] of Tpoint;

Begin

Pol[1].x: =10;

Pol[2].x: =20;

Pol[3].x: =30;

Pol[4].x: =40;

Pol[5].x: =50;

Pol[6].x: =60;

Pol[7].x: =70;

Form1.canvas.Poligon(pol);

Сектор. Ріе ә дісі арқ ылы эллипс немесе шең бердің секторы саланады. Оның жалпы тү рі:

Объект.Pie(x1, y1, y2, y2, x3, y3, x4, y4)

x1, y1 x3, y3 x1, y1 x4, y4

x4, y4 x3, y3

x2, y2 x2, y2

10.6-сурет. Сектор

Мұ ндағ ы

x1, y1, y2, y2 – эллипстің і бө лшегі болатын сектордың параметрлері;

x3, y3, x4, y4 – сектордың шекаралары болатын тү зулердің соң ғ ы координата нү ктелері. Тү зулердің бастапқ ы нү ктелері эллипс центрімен сә йкес келеді. Сектор сағ ат тіліне қ арсы қ иылады.