W Cat - Описание языка PascalABC.NET Страница 40

clWhite

clWhiteSmoke

clYellow

clYellowGreen

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

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

Процедуры и функции для доступа к свойствам пера сгруппированы парами: если 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.

Текущее перо Pen

Объект текущего пера возвращается функцией 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 имеет следующий интерфейс:

type

GraphABCBrush = class

property NETBrush: System.Drawing.Brush;

property Color: GraphABC.Color;

property Style: BrushStyleType;

property Hatch: HatchStyle;

property HatchBackgroundColor: GraphABC.Color;

property GradientSecondColor: GraphABC.Color;

end;

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

property NETBrush: System.Drawing.Brush;

Текущая кисть .NET

property Color: GraphABC.Color;

Цвет кисти

property Style: BrushStyleType;

Стиль кисти

property Hatch: HatchStyle;

Штриховка кисти

property HatchBackgroundColor: GraphABC.Color;

Цвет заднего плана штриховой кисти

property GradientSecondColor: GraphABC.Color;

Второй цвет градиентной кисти

Пример.

Brush.Color := clRed;

Brush.Style := bsHatch;

Brush.Hatch := bhBackwardDiagonal;

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

Стили кисти

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

type BrushStyleType = (bsSolid, bsClear, bsHatch, bsGradient);

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

bsSolid

Сплошная кисть (по умолчанию)

bsClear

Прозрачная кисть

bsHatch

Штриховая кисть

bsGradient

Градиентная кисть

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

Стили штриховки кисти

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

bhHorizontal

bhVertical

bhForwardDiagonal

bhBackwardDiagonal

bhCross

bhDiagonalCross

bhPercent05

bhPercent10

bhPercent20

bhPercent25

bhPercent30

bhPercent40

bhPercent50

bhPercent60

bhPercent70

bhPercent75

bhPercent80

bhPercent90

bhLightDownwardDiagonal

bhLightUpwardDiagonal

bhDarkDownwardDiagonal

bhDarkUpwardDiagonal

bhWideDownwardDiagonal

bhWideUpwardDiagonal

bhLightVertical

bhLightHorizontal

bhNarrowVertical

bhNarrowHorizontal

bhDarkVertical