мойоипа end;

Window(XI,Y1,X2,Y2) ;

CIrScr;

i? Border in [0..2] then begin

Write(BorderChar[Border,1]);

for k := 2 to X2-X1 do

Write(BorderChar[Border,2]);

Write(BorderChar[Border,3]) ;

for k := 2 to Y2-Y1 do begin

GotoXY(l,k) ;

Write(BorderChar(Border,4] )• t GotoXY(X2-Xl+l,k) ;

Write(BorderChar[Border,4]) end;

GotoXY(l,Y2-Yl+l) ;

Write(BorderChar[Border,5]);

for k :" 2 to X2-X1 do

Write(BorderChar[Border,2]) ;

Write(BorderChar[Border,6]) end;

if Length(Header)>0 then begin

if Length(Header)>X2-X1-2 then Header[0] :- chr(X2-X1-2):

GotoXY((X2-Xl-Length(Header)) div 2+2,1) ;

Write(Header) end;

if Clip then

Window(Xl+l,Yl+l,X2-l,Y2-l) end end; fSetffindow} ^-—————————.————————————————+

I Поддержка вывода сообщений вектортши I I шрифтами 1

+-------------—----—--—-——---—------——+;

type

PFontDesc =^TFontDesc;

TFontDesc = record {Описатель шрифта)

NextFont: PFontDesc; (Ссылка на следующий}

NFont : Integer; {Номер шрифта}

Name: record

case Byte of

0:(FName: String); (Имя файла)

l:(Flag : Byte; {Флаг формата) Addrs: record {Адрес}

sa,oa: Word end;

end;

FirstChr : Byte; {Первый сиывол}

LastChar : Byte; {Последний символ}

Height: ShortInt; {Высота от базы}

Bottom: ShortInt; {Высота до низа)

Offs: array [0..255] of Word; {Смещения!

Leng: array [0..255] of Word; {Длины} end;

TFontPara = record {Блок параметров шрифта/