Подпрограммы для работы с пером
Рисование линий осуществляется текущим пером. Доступ к свойствам текущего пера можно осуществлять как в процедурном, так и в объектно-ориентированном стиле.
Процедуры и функции для доступа к свойствам пера сгруппированы парами: если 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.
http://pascalabc.net/downloads/pabcnethelp/PABC_Help_Web.html