Подпрограммы для работы с пером

Рисование линий осуществляется текущим пером. Доступ к свойствам текущего пера можно осуществлять как в процедурном, так и в объектно-ориентированном стиле.

Процедуры и функции для доступа к свойствам пера сгруппированы парами: если 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-координату текущей позиции рисования function RGB(r,g,b: byte): Color;

Возвращает цвет, который содержит красную (r), зеленую (g) и синюю (b) составляющие (r,g и b - в диапазоне от 0 до 255)