Тексты программ ДО/

PutCur(CurE); {Подучить образ}

{Расчерчиваем рабочее поле}

ClearWinEd;

fГотовим координаты окна повторения символа} XR :=(XE2-XE) div 2;

YR := GetMaxY-MaxH;

sz := ImageSize(XR,YR,XR+MaxW,YR+MaxH);

GetMem(WR,sz) ;

Getlmage (XR^R^R+MaxW^R+MaxH.WR*);

{Создаем таблицу символов)

XT :- XE+(MaxW+l)*DXE; {Левый верхний} YT :== YE; {угол таблицы символов} DXT := GetMaxX div 32; {Шаг по горизонту} DYT := GetMaxY div 20; {Шаг по вертикали} SetColor(White); /Белый цвет;

for n := 0 to 255 do /'Выводим символы} with FontPara do begin

X :» XT+(n mod 16)*DXT;

Y :" YT+(n div 16)*DYT;

if LengD[n]<>0 then begin

SetColor(White) ;

OutChar(X,Y+DYT,n,DXT/MaxW,DYT/(MaxH+5)) end •Xse

begin [Выводим недостающие символы} SetColor(DarkGray);

OutTextXY(X,Y+DYT-8,Chr(n)) end end;

{Загружаем шрифт из файла SxH.fntf Str(c,S);

S := '8x'+S+'.fnt';

Assign(FF,S) ;

{$!-} Reset (FF,1);

{$!+} if lOResultoO then begin

CloseGraph;

WriteLnCHer шрифтового файла '+S);

Halt end;

Sz := System.FileSize(FF);

GetMem(Font,Sz);

BlockRead(FF,Font",Sz,r) ;

Close(FF) ;

if rOSz then begin

CloseGraph;

WriteLn('Ошибка чтения файла '+S);

Halt end;

{Регистрируем шрифт и переназначаем ввод/вывод} SetFont(Font,8,с) ;

GraphWriteOn;

(Выводим строку меню} ' Colors(Black,LightGray) ;

for k := 1 to 6 do with Items[k] do