1-маъруза: Математик моделлаштиришнинг асосий тушунчалари, масалаларни эщмда ечиш бос=ичлари ва алгоритмлар назарияси

5. График режимдаги матнлар
График режимда матнларни ёзиш учун икки хил типдаги шрифтдан фойдаланиш мумкин: ну=талар матрицаси ва символни ташкил этувчи векторлар =атори ор=али.
Шрифтлар файллари .CHR кенгайтмасига эга былади ва шрифтни ишга созлаганда керакли файллар ишчи каталогда ёки .BGI график драйвери жойлашган каталогда былиши керак.
Шрифтни танлаш ва масштаб ырнатиш SetTextStyle процедураси ёрдамида амалга оширилади:
SetTextStyle(Font, Direction, Size) - керакли шрифтни ырнатади, матнни чи=ариш йыналишини ани=лайди ва белгилар ылчовини белгилаб беради. Font- шрифтни ани=ловчи ызгарувчи, Direction-матнни чоп этиш йыналишини кырсатувчи ызгарувчи (чапдан ынгга ёки пастдан юкорига), Size-шрифт ылчовини ани=ловчи ызгарувчи. Матрицали шрифтда ылчов Size=1, вектор шрифтида эса Size=4 =ийматларида эришилади.
Турли хил шрифтларни кырсатиш ва матнларни чоп этиш йыналишларини танлаш учун =уйидаги ызгармаслар ани=ланган:

const
{шрифтлар}

DefaultFont=0;{8х8 ну=тали стандарт матрицали шрифт}
TriplexFont=1;{векторли шрифт}
SmallFont=2;{векторли шрифт}
SansSerifFont=3;{векторли шрифт}
GothicFont=4;{векторли шрифт}
{матн йыналиши}
HorizDir=0;{чапдан ынгга}
VertDir=1;{пастдан ю=орига}


OutTextXY(x,y,TextString) процедураси - олдиндан ани=ланган шрифтда, йыналишда ва белги ылчовида TextString =аторини (х,у) ну=тадан бошлаб чоп этади.
SetTextJustify(Horiz,Vert) процедураси OutTextXY процедураси чоп этадиган матнни автоматик тарзда текислаб беради. Horiz - горизонтал, Vert - вертикал текислашлар.
Матнларни текислаш учун =уйидаги ызгармаслар ани=ланган:

const
{горизонтал текислаш учун}

LeftText=0;{чап томонга нисбатан текислаш}
CenterText=1;{марказга нисбатан текислаш }
RightText=2;{ынг томонга нисбатан текислаш}
{вертикал текислаш учун}
BottomText=0;{пастги томонга нисбатан текислаш}
CenterText=1;{марказга нисбатан текислаш}
TopText=2;{ю=ори томонга нисбатан текислаш}