Delphi программалау ортасыны графикалы ммкіндіктері

Delphi ортасы схемаларды, сызбаларды, трлі иллюстрацияларды экрана шыаратын программаларды нерлым арапайым жолмен руа ммкіндік береді.

Графикалы элементтер объектті стігі жаында шыарылады (формалар немесе Image компоненті), бан Canvas асиеттері сйкес келеді. Объектіні бетіне графиктік элементтерді (тзу сызы, шебер жне т.б) шыару шін осы объектіні Canvas асиетін олдану дісін пайдаланымыз.

Мысалы:

form1. Canvas. Restangle (10,10,100,100);

Бет (Холст);

арапайым графиктерді шыару дісінде сурет салуа болатын абстрактты бет (холст) ретінде Canvas асиеттері арастырылады. Бл бет (холст) жеке нктелерден-пикселдерден трады, оларды р айсысы клдене (Х) жне тік (Y) координаталар арылы аныталады.

арандаш жне ылалам

арапайым графиктерді бет (холст) бетіне салуды амтамасыз ететін дістер шін, арандаш жне ылалам олданылады: арандашты тзулер мен контурларды сызуа олданады, ал ылаламды айматарды шекаралы контурмен бояуа олданады.

Графиктерді бетке (холста) шыаратын арнайы арандаш жне ылалама Pen (арандаш) Brush (ылалам) асиеттері сйкес келеді, блар TPen жне TBrush типтерін крсетеді. Осы объектілерді асиеттеріні мні шыарылатын графикалы элементтерді трін анытайды.

TPen объектісіні мынадай асиеттері бар:

Color – тзуді тсі(контуры)

Width — тзуді алыдыы (пиксель бойынша)

Style — тзуді трі

Pen.Color – асиетіні мні ретінде мынадай атаулы тратыларды олдануа болады (TColor): clBlack, clOlive, clGray, clBlue, clMaroon, clNavy clSilver, clAqua, clGreen, clPurple, clRed, clWhite.

Pen.Style асиеті мынадай мндерді абылдайды:

psSolid – біркелкі тзу;

psDash – пункттирлік тзу, зын штрихтар;

psDot — пункттирлік тзу, ыса штрихтар;

psClear – тзу крінбейді.

Егер Pen.Width асиетіні мні бірден лкен болса, онда пункттирлік тзулер біркелкі тзулер болып шыады.

ылалам (Canvas.Brush) тйы айматарды сызатын жне сол облыстарды бояуды амтамасыз ететін діс ретінде олданылады.ылалам объект сыяты екі асиетке ие:

Color- тйы облысты бояйтын тс;

Style — айматы толытыру стилі (типі).

Brush.color асиетіні мні ретінде жоарыда айтылып ткен Tcolor типті атаулы тратыларды олдануа болады.

Brush.Style сиеті мынадай мндерді абылдайды:

bsSolid — біркелкі бояу;

bsClear – облыс болмайды;

bsHorizontal – клдене штрих;

bsVertical – тік штрих;

bsFDiogonal – ілгері арай клбеген диоганалды штрих.

Мтінді шыару

Графикалы объектті бетіне мтін шыару шін TextOut дісі олданылады. Осы дісті шаыру нсауы жалпы жадайда мынадай трде болады:

Объект. Canvas. TextOut(x , y , Текст);

Мндаы x , y – шыатын мтінні координат нктелері;

Текст – айнымалы немесе символды типті траты (шыарылатын мтін).

TextOut дісімен шыарылатын мтін облысыны о жа шекара координаттарын,

PenPos сиетін пайдаланып алуа болады,

мысалы: TextOut(PenPos.x , PenPos.y , ‘Руб’);

1.8 арапайым графиктерді сызу дістері

LineTo дісі тзуді арандашты аымдаы орынан координатасы крсетілген нктеге дейін сызады.

Объект. Canvas. LineTo(x , y);

MoveTo дісі арандашты белгіленген нктеге апарады.

Объект. Canvas. MoveTo(x , y);

Ellipse дісі эллипс сызады (жеке жадайда, шебер – параметр мніне туелді болады): Объект. Canvas.Ellipse(x1 , y1,x2,y2);

Мндаы: x1, y1, x2, y2 – ішіне эллипс сызылатын тікбрыш координаттары.

Arc дісі доа сызады:

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

Мндаы: x1, y1, x2, y2 – эллипс параметрі, эллипс белгілі, яни сызылатын доа болады.

Rectangle дісі тіктртбрыш сызады:

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

Мндаы: x1, y1 жне x2, y2 – сол жа стінгі жне о жа астыы тіктртбрыш брыштарыны координаттары.

FillRect дісі Brush.Color асиеті арылы берілген тсімен тіктртбрышты бояйды. Бл дісті бір ана параметрі бар, бл структураны Trect типі.

Мысалы:

Var

R:Rect(20,20,150,150);

With Canvas do

begin

Brush.Color:=clRed;

FillRect(R);

End;

End;