Очистка формы функцией библиотеки GDI+

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

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

Экспериментирую с кодом:

Visual Basic
1
2
3
                Form1.Cls
               GdipDrawImageRect graphics, img, 0, 0, nWidth, nHeight
                   Form1.Refresh

После очистки формы копирование прекращается.
Есть ли функция GDI+ для очистки объекта graphics?

@The trick · 22.12.2020, 22:08

Ничего не понятно. Что за graphics? Залить graphics можно через GdipGraphicsClear

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

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

Залить graphics можно через GdipGraphicsClear

Вы как всегда точны. Спасибо!
Пробовал функцию GDI FloodFill. Не помогло. По всей видимости, из-за занятости Form1.hDC.
Один иностранец спросил, как сделать вот так:
https://www.xspdf.com/images/38798-2.jpg
Я с вашей помощью сделал так:

@Pro_grammer · 23.12.2020, 09:54

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

Я с вашей помощью сделал так:

Не соблюдаются пропорции при изменении размера?

@Argus19 · 23.12.2020, 10:59 **[ТС]**

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

Не соблюдаются пропорции при изменении размера?

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

@The trick · 23.12.2020, 11:19

Argus19, просто задавай мировые-трансформации и ничего считать не нужно.

@Argus19 · 23.12.2020, 11:33 **[ТС]**

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

задавай мировые-трансформации и ничего считать не нужно.

Тут я пока слабоват.
Сделал простой арифметикой без проверки максимального и минимального размеров:

@Pro_grammer · 23.12.2020, 12:07

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

Сделал простой арифметикой

Ну это опять частный случай.
При других соотношениях сторон работать не будет.
Можно же легко вычислять коэф-т прямо в коде!
Определить переменную для коэффициента
Public nWidth As Long, nHeight As Long, Kf As Single
Там где у вас определяются размеры изображения

Visual Basic
1
2
3
4
5
6
7
     nWidth = lngWidth
            nHeight = lngHeight
     If nWidth > nHeight Then
       Kf = nWidth / nHeight
     Else
       Kf = nHeight / nWidth
     End If

Процедура станет такая

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Public Sub Redraw()
    If Wheel = -1 Then
       nWidth = nWidth / Kf
            nHeight = nHeight / Kf
                Call RCopy
    End If
    If Wheel = 1 Then
       nWidth = nWidth * Kf
            nHeight = nHeight * Kf
                Call RCopy
    End If
End Sub

@Argus19 · 23.12.2020, 12:10 **[ТС]**

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

При других соотношениях сторон работать не будет.

Согласен. Ваш вариант лучше. Сейчас попробую ещё вариантец.

@The trick · 23.12.2020, 12:27

Argus19, достаточно одной функции GdipScaleWorldTransform в которой указать масштаб - размеры сами посчитаются.

@Argus19 · 23.12.2020, 13:13 **[ТС]**

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

достаточно одной функции GdipScaleWorldTransform

Сейчас почитаю про эту функцию. Пока так:

@Argus19 · 23.12.2020, 14:35 **[ТС]**

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

GdipScaleWorldTransform

После того, как я стал загружать два изображения, данная функция масштабирует оба, что уже неудобно.

@The trick · 23.12.2020, 14:40

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

После того, как я стал загружать два изображения, данная функция масштабирует оба, что уже неудобно.

Ну так сбрасывай масштаб или изменяй или что ты там хочешь?

@Argus19 · 23.12.2020, 14:48 **[ТС]**

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

Ну так сбрасывай масштаб

В объект graphics, созданный из Form1.hDC, загружается изображение .jpeg и затем изображение .png. Масштабировать надо только .png.
Функция GdipScaleWorldTransform модифицирует весь объект graphics.
Получается, что надо восстановить прежний масштаб для изображения .jpeg, а затем установить новый для .png?

@The trick · 23.12.2020, 14:57

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

В объект graphics, созданный из Form1.hDC, загружается изображение .jpeg и затем изображение .png.

Так неверно говорить. Туда ничего не загружается, а отрисовывается. Graphics - это аналог контекста устройства GDI.

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

Получается, что надо восстановить прежний масштаб для изображения .jpeg, а затем установить новый для .png?

Это зависит от ситуации. Логичнее сначала отрисовать без масштабирования, а затем отмасштабировать. Сбросить все трансформации можно через GdipResetWorldTransform. Вот тут есть описание большинства функций - изучай. Про трансформации написано в MSDN.

@Argus19 · 24.12.2020, 00:07 **[ТС]**

Сделал с помощью функции GdipScaleWorldTransform. Для простоты управление масштабированием клавишами "+" и "-". Без арифметики опять не обойтись. Или каждый раз пересчитывать начальные координаты для функции GdipDrawImageRect, или использовать какую-то другую функцию копирования.

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	22.12.2020, 22:08
	Сообщение было отмечено Argus19 как решение Решение Ничего не понятно. Что за graphics? Залить graphics можно через GdipGraphicsClear 1

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	23.12.2020, 11:19
	Argus19, просто задавай мировые-трансформации и ничего считать не нужно. 0

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	23.12.2020, 12:27
	Argus19, достаточно одной функции GdipScaleWorldTransform в которой указать масштаб - размеры сами посчитаются. 0

Очистка формы функцией библиотеки GDI+

Решение