PaintPicture method

@Argus19 · Регистрация: 24.09.2017

Студворк — интернет-сервис помощи студентам

Написал небольшой учебник с комментариями метода PaintPicture.
Как оказалось, я сам чего-то недопонимаю. Визуально отказываются работать RasterOp:
vbPatCopy
vbPatInvert
vbPatPaint
Скорее всего, я их не правильно использую. Какие будут мнения?

I can · 13.04.2021, 18:29

Не по теме:

Holding shut their eyes and ears and always feeling pain
Pain, pain, pain, pain,that's right...

Извини, не удержался

@Argus19 · 13.04.2021, 20:37 **[ТС]**

I can, Я, к сожалению, по басурмански не понимаю, а машинный перевод часто не точен.

I can · 13.04.2021, 21:02

Не по теме:

Сообщение от Argus19

к сожалению,

Извини, просто там у тебя опечатка в названии проекта, по ушам резануло, не смог мимо пройти.

А по теме ничего сказать не могу, опыта маловато

@Argus19 · 14.04.2021, 09:26 **[ТС]**

Сообщение от I can

опечатка в названии проекта

Это и есть тот самый машинный перевод.

@The trick · 14.04.2021, 09:55

Сообщение от Argus19

vbPatCopy
vbPatInvert
vbPatPaint

Это растровые операции для кистей.

@Argus19 · 14.04.2021, 11:46 **[ТС]**

Сообщение от The trick

Это растровые операции для кистей.

Я смотрел здесь:
http://computers.plib.ru/progr... h%2011.htm
Сравнил с тут:
http://www.geocities.ws/kentta... x1-26.html
Опять "Трудности перевода". В зарубежном источнике, в отличие от нашего, используется слово "шаблон". В ссылке, которую вы привели используется "кисть".
Я не встречал в VB 6.0 работу с кистями. Получается, что Метод paintpicture - прокладка между VB и библиотекой GDI, для которой, разработчики сделали константы по принципу - "пусть будут".
Как я понимаю, чтобы заработали

vbPatCopy

vbPatInvert

vbPatPaint

, сначала надо создать кисть с помощью функций GDI?

@The trick · 14.04.2021, 12:01

Argus19, чтобы увидеть результат для этого режим заливки должен отличаться от vbFSTransparent.

@Argus19 · 14.04.2021, 12:29 **[ТС]**

Сообщение от The trick

режим заливки должен отличаться от vbFSTransparent

Менял Picture2.FillStyle на Solid и другие стили. Разница стала видна, но это фиксированные стили. Получается, что всё-таки надо создавать пользовательские.
Метод мощный, но до конца не продуманный. Жаль, что бросили развивать VB.

@The trick · 14.04.2021, 13:54

Сообщение от Argus19

Менял Picture2.FillStyle на Solid и другие стили. Разница стала видна, но это фиксированные стили. Получается, что всё-таки надо создавать пользовательские.
Метод мощный, но до конца не продуманный. Жаль, что бросили развивать VB.

Меняй цвет кисти и фона и смотри.

@Argus19 · 14.04.2021, 19:46 **[ТС]**

Сообщение от The trick

Меняй цвет кисти и фона и смотри.

Поиграл. Интересно.

@Pro_grammer · 14.04.2021, 20:32

Сообщение от Argus19

Интересно.

Да, весьма увлекательно.

@The trick · 14.04.2021, 21:10

Argus19, растровыми операциями удобно маски делать. Список растровых операций не ограничивается теми что есть в Object Browser'е.

@Argus19 · 14.04.2021, 21:56 **[ТС]**

Сообщение от The trick

растровыми операциями удобно маски делать.

Пока интесно, как создать кисть из DIB. Есть функция GDI CreateBrushIndirect. Описание есть, но как создать кисть из рисунка, не описано.

@The trick · 14.04.2021, 22:11

Сообщение от Argus19

Пока интесно, как создать кисть из DIB.

CreatePatternBrush.
Вот реальный случай когда мне понадобились нестандартные растровые операции. Нужно было сделать меню с чекбоксами + иконки. Для этого я сделал OwnerDraw меню. В обработчике нужно было просто отрисовывать каждый пункт, но возник вопрос как отрисовывать чекбоксы. Есть такая функция DrawFrameControl, но она отрисовывает на белом фоне и если использовать ее так как есть будет не очень красиво смотреться. Так вот используя растровые операции можно менять отрисовку очень гибко:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
...
    ' // Создаем кисть с изображением галочки
    tRC.Right = GetSystemMetrics(SM_CXMENUCHECK)
    tRC.Bottom = GetSystemMetrics(SM_CXMENUCHECK)
    
    hDC = CreateCompatibleDC(UserControl.hDC)
    SaveDC hDC
    m_hCheckBitmap = CreateCompatibleBitmap(UserControl.hDC, tRC.Right, tRC.Bottom)
    SelectObject hDC, m_hCheckBitmap
    DrawFrameControl hDC, tRC, DFC_MENU, DFCS_MENUCHECK
    RestoreDC hDC, -1
    DeleteDC hDC
    m_hMarkBrush = CreatePatternBrush(m_hCheckBitmap)
 
...

В обработчике уже смотрим на состояние пункта и исходя из того находится мышь над пунктом меню выбираем растровые операции:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
...
 
    If tItem.itemState And ODS_SELECTED Then
    
        FillRect tItem.hDC, tItem.rcItem, COLOR_MENUHILIGHT + 1
        SetDCBrushColor tItem.hDC, GetSysColor(COLOR_MENUHILIGHT)
        SetTextColor tItem.hDC, GetSysColor(COLOR_HIGHLIGHTTEXT)
        lROP = &HAF0229 ' // DPno
        lIconMode = ILD_TRANSPARENT Or ILD_SELECTED
        
    Else
        
        FillRect tItem.hDC, tItem.rcItem, COLOR_MENU + 1
        SetDCBrushColor tItem.hDC, GetSysColor(COLOR_MENU)
        SetTextColor tItem.hDC, GetSysColor(COLOR_MENUTEXT)
        lROP = &HA00086 ' // DPa
        lIconMode = ILD_TRANSPARENT
        
    End If
    
    SetBkMode tItem.hDC, TRANSPARENT
    
    SetRect tRC, tItem.rcItem.Left, tItem.rcItem.Top, tItem.rcItem.Left + GetSystemMetrics(SM_CXMENUCHECK), tItem.rcItem.Bottom
    
    If tItem.itemState And ODS_CHECKED Then
    
        SelectObject tItem.hDC, m_hMarkBrush
        SetBrushOrgEx tItem.hDC, tItem.rcItem.Left, tItem.rcItem.Top, ByVal 0& '
        PatBlt tItem.hDC, tItem.rcItem.Left, tItem.rcItem.Top, GetSystemMetrics(SM_CXMENUCHECK), GetSystemMetrics(SM_CXMENUCHECK), lROP
        
    End If
 
...

Название: menu_veloz.png
Просмотров: 65

Размер: 5.5 Кб

Как видно используются нестандартные растровые операции DPno и DPa.

@Argus19 · 14.04.2021, 22:45 **[ТС]**

Сообщение от The trick

hDC = CreateCompatibleDC(UserControl.hDC)

Подразумевается, что изображение предварительно загружено в UserControl?

@The trick · 14.04.2021, 22:50

Сообщение от Argus19

Подразумевается, что изображение предварительно загружено в UserControl?

При чем тут изображение? Это создание контекста.

@Argus19 · 14.04.2021, 22:56 **[ТС]**

Сообщение от The trick

При чем тут изображение?

Я про это:

Сообщение от The trick

// Создаем кисть с изображением галочки

@The trick · 14.04.2021, 23:00

Argus19, я опять не понял. Изображение никуда не загружено. Там создается далее растр и в него рисуется галочка. Далее это изображение используется для создания кисти.

@Argus19 · 14.04.2021, 23:04 **[ТС]**

Сообщение от The trick

Там создается далее растр и в него рисуется галочка.

Ясно.
В Win95 можно использовать изображения не более, чем 8Х8 пикселей. В более поздних версиях можно использовать и большие изображения для кисти. Как использовать готовое изображение?

BS_DIBPATTERNPT
--------------
Узорчатая кисть, определяемая спецификацией независимого от устройства растрового изображения (DIB). Если lbStyle - BS_DIBPATTERNPT, член lbHatch содержит указатель на упакованный DIB. Для получения дополнительной информации см. Обсуждение в lbHatch.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Argus19 1427 / 444 / 78 Регистрация: 24.09.2017 Сообщений: 2,526 Записей в блоге: 22
	13.04.2021, 20:37 [ТС]
	I can, Я, к сожалению, по басурмански не понимаю, а машинный перевод часто не точен. 0

@The trick Модератор 10052 / 3897 / 884 Регистрация: 22.02.2013 Сообщений: 5,850 Записей в блоге: 79
	14.04.2021, 12:01
	Argus19, чтобы увидеть результат для этого режим заливки должен отличаться от vbFSTransparent. 0

@The trick Модератор 10052 / 3897 / 884 Регистрация: 22.02.2013 Сообщений: 5,850 Записей в блоге: 79
	14.04.2021, 21:10
	Argus19, растровыми операциями удобно маски делать. Список растровых операций не ограничивается теми что есть в Object Browser'е. 0

@The trick Модератор 10052 / 3897 / 884 Регистрация: 22.02.2013 Сообщений: 5,850 Записей в блоге: 79
	14.04.2021, 23:00
	Argus19, я опять не понял. Изображение никуда не загружено. Там создается далее растр и в него рисуется галочка. Далее это изображение используется для создания кисти. 0