Изменение цвета обводки

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

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)}

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

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

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

Для изменения толщины и стиля обводки используется процедура SetLineStyle (англ. Set Line Style – установить тип линии), имеющая следующий вид:

SetLineStyle(<Стиль линии>, <Образец стиля>, <Толщина>);

Все параметры процедуры SetLineStyle должны являться целочисленными переменными или константами.

Пример изменений характеристик текущей обводки приведен следующем листинге: