Pascal 7 & Objects

       

Логические кисти


-----------------------------------------------------------------

Вы можете создавать логические кисти с помощью функций Windows CreateHatchBrush, CreatePatternBrush, CreateDIBPatternBrush или CreateBrushInderect. Например:

TheBrush := CreateHatchBrush(hs_Vertical, RGB(0, 255, 0)); TheBrush := CreateBrushInderect(@ALogBrush);

Определение записи TLogBrush имеет следующий вид:

TLogBrush = record lbStyle: Word; lbColor: Longint; lbHatch: Integer; end;

Поле стиля, lbStyle, содержит константы, задающие стиль кис- ти:

* bs_DIBPattern указывает, что образец кисти задан аппарат- но-независимым побитовым отображением.

* bs_Hatched задает один из заранее определенных образцов штриховки (см. lbHatch).

* bs_Hollow - это пустая кисть.

* bs_Pattern использует левый верхний угол 8 на 8 элементов побитового отображения, которое находится в этот момент в памяти.

* bs_Solid - это непрерывная кисть.

Поле lbColor содержит значение цвета, аналогично записи TLogPen. Это поле игнорируется кистями со стилями bs_Hollow и bs_Pattern.

Поле lbHatch содержит целую константу, задающую образец штриховки для кисти со стилем bs_Hatched. Если стиль bs_DIBPattern, то lbHatch содержит описатель побитового отображе- ния.

----------------------------------------------------------------- Константа Результат -----------------------------------------------------------------

////////////////////////////////////// HS_BDIAGONAL ////////////////////////////////////// //////////////////////////////////////

++++++++++++++++++++++++++++++++++++++ HS_CROSS ++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++++++++++

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx HS_DIAGCROSS xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ HS_FDIAGONAL \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

-------------------------------------- HS_HORIZONTAL -------------------------------------- --------------------------------------

HS_VERTICAL

-----------------------------------------------------------------

Рис. 17.2 Стили штриховки для кисти.



Содержание раздела