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

psClear = DashStyle.Clear;

Прозрачное перо

psDash = DashStyle.Dash;

Штриховое перо

psDot = DashStyle.Dot;

Пунктирное перо

psDashDot = DashStyle.DashDot;

Штрихунктирное перо

psDashDotDot = DashStyle.DashDotDot;

Альтернативное штрихунктирное перо

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

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

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

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

functionBrush: GraphABCBrush;

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

type

GraphABCBrush = class

propertyNETBrush: System.Drawing.Brush;

propertyColor: GraphABC.Color;

propertyStyle: BrushStyleType;

propertyHatch: HatchStyle;

propertyHatchBackgroundColor: GraphABC.Color;

propertyGradientSecondColor: GraphABC.Color;

end;

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

Пример.

Brush.Color := clRed;

Brush.Style := bsHatch;

Brush.Hatch := bhBackwardDiagonal;

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

Стили кисти задаются перечислимым типом BrushStyleType:

typeBrushStyleType = (bsSolid, bsClear, bsHatch, bsGradient);

Константы имеют следующий смысл:

Для всех кистей используется свойство Color. Для штриховой кисти дополнительно можно устанавливать свойства Hatch и HatchBackgroundColor, для градиентной - свойство GradientSecondColor.

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

bhHorizontal
bhVertical
bhForwardDiagonal