280 Приложение

GetFillSettings(Filllnfo);

SetFillStyle(SolidFill,BCol) ;

Bar(Xlg,Ylg,X2g,Y2g);

with Filllnfo do

SetFillStyle(Pattern,Color) ;

GotoXY(l,l) end end; {CIrScr} {„. —————————— ————;

Procedure Colors(Text,Back: Byte);

(Устанавливает цвета для текстового вывода} begin

TextColor(Text);

TextBackGround(Back) end; {Colors} {., _———————. ———.——;

Function GetMaxChar: Byte;

{Возвращает максимальное количество символов на строке} begin

GetMaxChar := MaxChar end; {GetMaxChar} /————————————————;

Function GetMaxLine: Byte;

{Возвращает максимальное количество строк} begin

GetMaxLine :"= MaxLine end; {GetMaxLine} {-, ———————— —————_-;

Procedure GetWindGraphCoo(var X1,Y1,X2,Y2: Integer);

!Возвращает графические координаты текстового окна} begin

XI := Xlg;

Yl :° Ylg;

X2 :- X2g;

Y2 :=• Y2g

end; {GetWindGraphCoo} /——___———— ——————,——;

Procedure GotoXY(X,Y: Byte);

^Перемещает курсор в заданную позицию} begin

if (FontoMIL) and (X in [1. .MaxChar]) and

(Y in [1..MaxLine]) and (X<=X2t-Xlt+l) and (Y<=Y2t-Ylt+l) then begin

Xt :» X+Xlt-1;

Yt := Y+Ylt-1;

Xg := GraphCooX(Xt) ;

Yg := GraphCooY(Yt) end end; {GotoXY} f,- _——————__———————;

Function GraphCooX(X: Byte): Integer;

{Возвращает графическую координату по заданной горизонтальной текстовой координате} begin

if FontoHIL then

GraphCooX := pred(X)*XF else

GraphCooX :•= -1 end; {GraphCooX}