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

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

213
const
{константы кодов клавиш}
keyUp = #72; {стрелка вверх}
keyDown = #80; {стрелка вниз}
keyLeft = #75; {стрелка влево}
keyRight = #77; {стрелка вправо}
keyEnd = #79; {клавиша End}
keyHome = #71; {клавиша Home}
keyEnter = #13; {клавиша Enter}
keyEsc = #27; {клавиша Esc}
{Очистка ВСЕГО экрана черным цветом}
procedure BlackScreen;
begin
window(1,1,80,25);
TextBackground(0);
TextColor(7);
clrscr;
end;
{создание цветного окна
Left,Top – координаты левого верхнего угла окна
Width – ширина окна
Height – высота окна
BckColor – цвет фона (цвет окна)
}
procedure ColorWindow(Left,Top,Width,Height,BckColor:Byte);
begin
window(Left,Top,Left+Width-1,Top+Height-1);
TextBackground(BckColor);
clrscr;
end;
{показ строки текста в текущем активном окне
str – строка

Страницы