Очистка формы функцией библиотеки 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 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

@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+

Решение