Описание языка PascalABC.NET

Объект текущего пера возвращается функцией Pen и имеет тип GraphABCPen:

function Pen: GraphABCPen;

Класс GraphABCPen имеет следующий интерфейс:

type

GraphABCPen = class

property NETPen: System.Drawing.Pen;

property Color: GraphABC.Color;

property Width: integer;

property Style: DashStyle;

property Mode: integer;

property X: integer;

property Y: integer;

end;

Свойства класса GraphABCPen описаны в следующей таблице:

property NETPen: System.Drawing.Pen; Текущее перо .NET. Служит для более тонкой настройки свойств пера

property Color: GraphABC.Color; Цвет пера

property Width: integer; Ширина пера

property Style: DashStyle; Стиль пера. Константы стилей пера приведены здесь

property Mode: integer; Режим пера

property X: integer; Координата X пера (только чтение)

property Y: integer; Координата Y пера (только чтение)

Пример.

Pen.Color := clRed;

Pen.Style := psDot;

Кроме этого, можно изменять свойства текущего пера, используя соответствующие процедуры и функции.

Стили пера

Стили пера задаются перечислимым типом DashStyle. Кроме того, для стилей пера определены следующие константы:

psSolid = DashStyle.Solid; Сплошное перо
psClear = DashStyle.Clear; Прозрачное перо
psDash = DashStyle.Dash; Штриховое перо
psDot = DashStyle.Dot; Пунктирное перо
psDashDot = DashStyle.DashDot; Штрихунктирное перо
psDashDotDot = DashStyle.DashDotDot; Альтернативное штрихунктирное перо

Подпрограммы для работы с кистью

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

Процедуры и функции для доступа к свойствам кисти сгруппированы парами: если Prop - имя свойства кисти, то функция PenProp возвращает значение этого свойства, а процедура SetPenProp(p) устанавливает это свойство:

procedure SetBrushColor(c: Color); Устанавливает цвет текущей кисти

function BrushColor: Color; Возвращает цвет текущей кисти

procedure SetBrushStyle(bs: BrushStyleType); Устанавливает стиль текущей кисти. Константы стилей кисти приведены здесь

function BrushStyle: BrushStyleType; Возвращает стиль текущей кисти. Константы стилей кисти приведены здесь

procedure SetBrushHatch(bh: HatchStyle); Устанавливает штриховку текущей кисти. Константы стилей штриховки кисти приведены здесь

function BrushHatch: HatchStyle; Возвращает штриховку текущей кисти. Константы стилей штриховки кисти приведены здесь

procedure SetHatchBrushBackgroundColor(c: Color); Устанавливает цвет заднего плана текущей штриховой кисти

function HatchBrushBackgroundColor: Color; Возвращает цвет заднего плана текущей штриховой кисти

procedure SetGradientBrushSecondColor(c: Color); Устанавливает второй цвет текущей градиентной кисти

function GradientBrushSecondColor: Color; Возвращает второй цвет текущей градиентной кисти

Кроме этого, можно изменять свойства текущей кисти через объект Brush.

Текущая графическая кисть Brush

Объект текущей кисти возвращается функцией Brush и имеет тип GraphABCBrush:

function Brush: GraphABCBrush;

Класс GraphABCBrush имеет следующий интерфейс: