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.

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

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

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

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

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