Подпрограммы для работы с пером
Рисование линий осуществляется текущим пером. Доступ к свойствам текущего пера можно осуществлять как в процедурном, так и в объектно-ориентированном стиле.
Процедуры и функции для доступа к свойствам пера
сгруппированы парами: если Prop - имя
свойства пера, то функция PenProp возвращает
значение этого свойства, а процедура SetPenProp(p)
устанавливает это свойство:
procedure SetPenColor(c: Color);
Устанавливает цвет текущего пера |
function PenColor: Color;
Возвращает цвет текущего пера |
procedure SetPenWidth(Width: integer);
Устанавливает ширину текущего пера |
function PenWidth: integer;
Возвращает ширину текущего пера |
procedure SetPenStyle(style:
DashStyle);
Устанавливает стиль текущего пера. Константы стилей пера приведены здесь |
function PenStyle: DashStyle;
Возвращает стиль текущего пера. Константы стилей пера приведены здесь |
procedure SetPenMode(m: integer);
Устанавливает режим текущего пера |
function PenMode: integer;
Возвращает режим текущего пера |
function PenX: integer;
Возвращают x-координату текущей позиции рисования |
function PenY: integer;
Возвращают y-координату текущей позиции рисования |
Кроме этого, можно изменять свойства текущего пера через
объект Pen.