Основы программирования на языке Turbo Pascal. Беляева И.В. - 212 стр.

UptoLike

Составители:

Рубрика:

212

MarkedItem:byte; {номер выделенного пункта меню}

end;

{Очистка ВСЕГО экрана черным цветом}

procedure BlackScreen;

{создание цветного окна

Left,Top – координаты левого верхнего угла окна

Width – ширина окна

Height – высота окна

BckColor – цвет фона (цвет окна)

}

procedure ColorWindow(Left,Top,Width,Height,BckColor:Byte);

{Меню

озвращаемое значение:

0 – в случае отказа от выбора

menu.item[menu.markedItem].res – в случае выбора пункта меню

}

function MenuVert(var menu:TMenu):byte;

{показ строки текста в текущем активном окне

str – строка

x,y – координаты начала строки

TxtColor – цвет текста

BckColor – цвет фона

ЗАМЕЧАНИЕ: после вывода строки курсор перемещается в начало

выведенной строки

}

procedure ShowText(const str:string; x,y,TxtColor,BckColor:byte);

implementation

uses crt;