Установка программно определяемой текущей обводки

Program ChangeLineStyleZ; {заголовок программы, имя программы – ChangeLineStyle2}

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(Green);{установка нового текущего цвета обводки – зеленого (для указания цвета использована константа Green)}

SetLineStyle(UserBitLn, 255,ThickWidth);

{установка текущих толщины линии (ThickWidth – толстая линия) и стиля линии (UserBitLn – использовать шаблон), шаблон, заданный числом 255 рассматривается как 0000000011111111, то есть пунктирная линия по 8 точек через такие же интервалы}

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

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

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