Графикаси касб-ҳунар коллежлари учун ўқув қулланма

F_GrText модулининг ички дастурлари. 
F_GrText модулининг барча ички дастурларини 3 қисмга бўлиш 
мумкин: график режим учун CRT модули стандарт воситаларини 
(ClrScr,GotoXY,TextBackground,TextColor,Window 
процедуралари, 
WhereX,WhereY функциялари) имитацияловчи ички дастурлари, матнли 
хабарларни векторли шрифтда экран координа ўқларининг ихтиѐрий 
бурчагида ва ихтиѐрий миқдорда (бўлакда) (OutString процедураси ва 
RegisterCHRFile функцияси) чиқариш воситаси ва ѐрдамчи ички дастурлар. 
F_GrText модули ички дастурлари CRT модули бир хил номли ички 
дастурлари билан тўсилмаслиги учун Uses булимида F_GrText модулини CRT 
модулидан сўнг эълон қилиш керак.
CRT процедураси. Матнли ойна ѐки экранни тозалайди, яъни матнли 
фон ранги билан тўлдиради.
Procedure ClrScr; 
Процедура бажарилгандан сўнг курсор ойнанинг юқори чап бурчагига 
жойлашади.
Colors процедураси. Матнли чиқариш атрибутларини ўрнатади.
Procedure Colors(Text, Back:Byte); 
GetMaxChar функцияси. Экран қаторида рамзларнинг максимал сонини 
қайтаради.
Function GetMaxChar:Byte; 
GetMaxLine функцияси. Экранда максимал қаторлар сонини қайтаради.
Function GetMaxLine:Byte; 
GetWindGraphCoo процедураси. Матнли ойна график координаларини 
қайтаради.
Procedure GetWindGraphCoo (var x1,y1,x2,y2:integer); 
процедурадан чиққанда X1…Y2 ўзгарувчилар ҳозирги моментда 
матнли ойнада график координаталар ўрнатилган қийматни сақлайди. (агар 
ойна ўрнатилмаган бўлса экранда). Координаталар ташқи параметрига мос: 
X1 – 1-рамзнинг энг чап пиксели, X2 – охирги рамзнинг энг ўнг пиксел, Y1 – 
1-қаторнинг энг юқори пиксели, Y2 – охирги қаторнинг энг қуйи пиксели. 

---

189 
GotoXY процедураси. Матнли курсорни экраннинг керакли ўрнига 
жойлаштиради.
Procedure GotoXY(x,y:Byte); 
Бу ерда X,Y курсорнинг янги координаталари X,Y матнли 
координаталар бирдан то MaxChar(MaxLine) гача оралиқда бўлиши зарур. 
Агар курсорнинг янги ҳолати ҳозирда фаол бўлган ойна чегарасидан 
ташқарида бўлса, процедура ўз ишини бажармайди.
GraphCooX функцияси. Берилган матнли координата бўйича горизонтал 
график координатани қайтаради.
Function GraphCooX(X:Byte):Integer; 
Бу ерда X – берилган матнли координата
Функция Х позицияга чиқариладиган рамзнинг чап томони 
координатасини қайтаради, агар мурожаат пайтида шрифт юкланмаган ѐки Х 
фаол матнли ойна чегарасидан чиқиб кетса, -1 қиймат беради.
GraphCooY функцияси. Берилган матнли координата бўйича вертикал 
график координатани қайтаради.
GraphWriteOn процедураси. Стандарт Input ва Output файлларига янги 
драйвер бирлаштиради.
Procedure GraphWriteOn; 
GraphWriteOff процедураси. Input ва Output стандарт файллар 
берилишини тиклайди, яъни GraphWriteOn процедураси ҳаракатини 
тўхтатади.
Procedure GraphWriteOff; 
SetFont процедураси. Юкланган матрицали шрифтни кейинги киритиш-
чиқариш процерураларида ишлатиш учун рўйхатдан ўтказади.
Procedure SetFont (var Font,X,Y:Byte); 
Бу ерда Font – юкланган шрифтни сақловчи ихтиѐрий ўзгарувчи; Х – 
рамзнинг пикселдаги кенглиги; Y – рамзнинг баландлиги.
Мисол, шрифтни ―8x16.fnt‖ дан юклаш учун қуйидаги дастур кодини 
ишлатиш мумкин.