Подпрограммы для работы с кистью
Рисование внутренностей замкнутых областей осуществляется текущей кистью. Доступ к свойствам текущей кисти можно осуществлять как в процедурном, так и в объектно-ориентированном стиле.
Процедуры и функции для доступа к свойствам кисти
сгруппированы парами: если 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.