Изменение характеристик текущей обводки

ProgramChangeLiheStylel;

{заголовок программы, имя программы - ChangeLineStylel}

Uses {начало раздела подключения модулей}

Graph, CRT; {подключение модулей Graph и CRT}

Var{начало раздела описания переменных}

GraphDriver, GraphMode: Integer;

{описание двух целочисленных переменных: GraphDriver – для передачи в качестве параметра, определяющего номер графического драйвера, и GraphMode – для передачи в качестве параметра, определяющего номер графического режима}

Begin{начало раздела описания логики программы}

GraphDriver:= Detect;

{присвоение переменной GraphDriver значения 0 с использованием константы Detect модуля Graph для наглядности}

GraphMode:=0; {присвоение переменной GraphMode значения 0, определяющего необходимый графический режим – 640х480х16 цветов}

InitGraph (GraphDriver, GraphMode,' ');

{вызов процедуры InitGraph, автоматически определяющей драйвер, подходящий для видеоустройства, установленного на компьютере; запускающей драйвер; и инициализирующей графический режим с номером 0}

SetColor(Red);{установка нового текущего цвета обводки – красного (для указания цвета использована константа Red)}

SetLineStyle(CenterLn, 0, ThickWidth);

{установка текущих толщины линии (ThickWidth – толстая линия) и стиля линии (CenterLn – штрих-пунктирная линия), параметр Образец стиля игнорируется, поэтому можно задать любое значение, в данном случае – 0}

ReadKey {программа приостанавливается до нажатия пользователем клавиши}

CloseGraph; {закрываем графический режим}

End.{конец раздела описания логики программы}

Однако если параметр Стиль линии имеет значение UserBitLn, то для установки стиля линии используется параметр Образец стиля. Для понимания смысла параметра Образец стиля необходимо разобраться в том, как именно хранятся данные в оперативной памяти.