Mail

В этот день много лет назад...
16 апреля. В 1934 году (91 год назад) - ЦИК СССР вводит почетное звание Героя Советского Союза - высшую степень отличия за заслуги перед государством, связанные с совершением геройского подвига. Первым Героем Советского Союза станет летчик Анатолий Ляпидевский, удостоенный его, как и еще 6 летчиков - С.А. Леваневский, В.С. Молоков, Н.П. Каманин, М.Т. Слепнев, М.В. Водопьянов, И.В. Доронин, за спасение терпящих бедствие членов экипажа и пассажиров парохода "Челюскин".

Turbo Pascal Documentation

Процедура HighVideo
Модуль Сrt

     Функция: Устанавливает для символов подсветку.
     Описание: HighVideo
     Примечания: В модуле Сrt  имеется  байтовая  переменная
ТехtАttr,  которая используется для хранения текущих атрибу-
тов изображения. Процедура HighVideo устанавливает для цвета
символов  переменной  ТехtAttr бит подсветки. Таким образом,
цвета 0..7 отображаются в цвета 8..15.
     Отличия: В версии 3.0 процедура HighVideo всегда  выби-
рала  желтый цвет на черном фоне (белый на черном фоне в мо-
нохроматическом режиме и в видеорежимах ВW80).
     Прочее: См. также процедуры NomVideo, LowVideo, TextCo-
lor, TextBackGround.
     Пример:

uses Crt;
begin
   TextAttr := LightGray;
   HighVideo;                   { цвет становится белым }
end;