3.6. Установка стиля линии
Turbo Pascal позволяет вычерчивать линии самого различного стиля: тонкие, широкие, пунктирные, штриховые и т.д. Установка стиля производится процедурой
SetLineStyle( Style, Pattern, Thickness ),
где Style – параметр, определяющий стиль линии. Возможные значения этого параметра приведены в таблице 2; Pattern – образец; Thickness – толщина линии. Если применяется один из стандартных стилей, значение параметра Pattern должно быть равно 0.
Таблица 2. Стили линии
Описание стиля |
Константа |
Сплошная линия |
SolidLn = 0 |
Точечная линия |
DottedLn = 1 |
Штрих-пунктирная линия |
CenterLn = 2 |
Пунктирная линия |
DashedLn = 3 |
Стиль, определяемый пользователем |
UserBitLn = 4 |
Параметр Thickness может принимать всего два значения:
NormWidth = 1 – линия толщиной в один пиксел
ThickWidth = 3 – линия толщиной в три пиксела
Далее будут приведены процедуры с помощью которых можно строить различные геометрические фигуры (окружности, прямоугольники, дуги и т.д.). При этом стиль линии, которой вычерчивается контур той или иной фигуры также устанавливается процедурой SetLineStyle.