Создание логического пера функциями CreatePen, CreatePenIndirect

Пример работы с базовыми и штрихующими кистями.

Создание логической кисти функциями CreateSolidBrush, CreateBrushIndirect, CreatePatternBrush, CreateHatchBrush.

Для создания логической кисти используются перечисленные ниже функции, причем каждая из них создает дескриптор на кисть, которую необходимо после использования уничтожить функцией DeleteObject.

1. CreateBrushIndirect (lpLogBrushAsLOGBRUSH)-создает произвольную кисть. Аргумент lpLogBrush—это структура данных типа LOGBRUSH:TypeLOGBRUSH lbStyleAsLong'Стиль кисти lbColorAsLong' Цвет

lbHatchAsLong' Способ штриховки(орнамент) EndType

Стиль кисти lbStyle может иметь одно из следующих значений констант:

BS_SOLID=0 –сплошная кисть;

BS_NULL=1 –пустая кисть;

BS_HATCHED=2-штрихующая кисть;

BS_PATTERN=3 –кисть использует растровое изображение для заполнения фона;

BS_DIBPATTERN =5 –кисть использует аппаратно-независимый образец фона.

Если lbStyle=BS_SOLID, то значение поля штриховки lbHatch игнорируется. ЕслиlbStyle=BS_PATTERN, то поле lbHatch должно содержать дескриптор растрового изображения.

2. CreateHatchBrush (ByValnIndexAsLong, ByValcrColorAsLong) —создает штрихующую кисть. Например, создадим кисть с цветным орнаментом и заполнимим прямоугольник:Brush= CreateHatchBrush (hs_Cross, RGB (50,50,50)) OldBrush= SelectObject (MyDc, Brush)

Call Rectangle (MyDc,50,50,500,400)'Рисуем прямоугольник

Call SelectObject(MyDc,OldBrush) Call DeleteObject(Brush)

3.CreateSolidBrush(ByValcrColorAsLong) – создает сплошную без орнамента кисть.

4.CreatePatternBrush(ByValhBitmapAsLong) – создает кисть, заполняющую область узором растрового изображения.

Продемонстрировать работу с базовыми и штрихующими кистями.

PrivateSubCommand1_Click()

Dim MyDC AsLong, OldBrushAsLong, BrushAsLongMyDC= Form1.hdcFori%= 0 To5Call SelectObject(MyDC, GetStockObject(i)) Call Rectangle (MyDC, 10 + 60 * i, 30, 60 + 60 * i, 80)NextFori = 0 To5'Рисуем заштрихованные прямоугольники

Brush= CreateHatchBrush (i, RGB (255, 0, 0))OldBrush= SelectObject (MyDC,Brush)Call Rectangle (MyDC, 10 + 60 * i, 100, 60 + 60 * i, 150)Call SelectObject (MyDC,OldBrush)Call DeleteObject( Brush)NextCall ReleaseDC (hwnd, MyDC)

End SubPrivate Sub Form_Load() Caption= "Пример использования базовых и штрихующих кистей" BackColor= &HFFFFFF End Sub

Перо используется для вычерчивания прямых линий многогранников, окружностей, дуг и т.п. Перо характеризуется цветом линии, толщиной и стилем. По умолчанию используется перо черного цвета, толщинойв1 пиксель, и стиль PS_SOLID. В базовый набор инструментов входят три константы перьев: WHITE_PEN=6, BLACK_PEN=7 и NULL_PEN=8 (перо, которое не рисует). Любой из этих инструментов выбирается и устанавливается в контекст устройства функциями GetStockObjectиSelectObject. Логическое перо, имеющее собственный стиль, цвет и толщину, создается одной из следующих функций.

1. CreatePenIndirect(lpLogPenAsLOGPEN) AsLong -создает перо, определенное заданной структурой типа LOGPEN:

TypeLOGPEN lopnStyleAsLong' Стиль пера lopnWidthAsPOINTAPI ' Ширина пера lopnColorAsLong' Цвет пера EndType В структуре POINTAPI y-координата не используется. Поле lopnStyle должно содержать одну из 6 констант стилей: PS_SOLID = 0 {сплошной}; PS_DASH = 1 {пунктир}; PS_DOT = 2 {точки}; PS_DASHDOT = 3 {точка-тире}; PS_DASHDOTDOT = 4 {точка-точка-тире}; PS_NULL = 5 {невидимые линии}; PS_INSIDEFRAME = =6. При этом следует отметить, что стили PS_DASH, PS_DOT, PS_DASHDOT, PS_DASHDOTDOT определены только при толщине пера, равной единице. Толщина пера задается целым числом.

CreatePen (ByValnPenStyleAsLong, ByValnWidthAsLong, ByValcrColorAsLong) –создает перо явным определением параметров.

Дата добавления: 2014-12-23