HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
23 октября. В 1768 году (250 лет назад) - (12.10) Доктор Димсдейл делает Екатерине II прививку против оспы. Прививка делается от семилетнего отрока Александра Маркова, которому пожалуют дворянство и новую фамилию - Оспеин. Это событие даст толчок к началу массовых прививок против оспы по всей стране. Уже через месяц прививка будет сделана наследнику престола Павлу Петровичу, а чуть позднее - 140 придворным. За этим последует массовая кампания по прививкам, а врачи, младший медицинский персонал и священники, участвующие в проведении вакцинации, будут награждены специальными памятными медалями. Английский врач Димсдаль, делающий прививку, получит баронский титул, звание лейб-медика, действительного статского советника и громадную по тем меркам пенсию в 500 фунтов стерлингов в год.
 
 

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;




HOME