TextOut удалить текст

@DDim1000 · Регистрация: 17.12.2011

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

Здравствуйте!
Подскажите пожалуйста, как удалить текст Image.Canvas.TextOut?

@DDim1000 · 25.06.2019, 10:09 **[ТС]**

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

...1) все рисования должны быть в OnPaint

Каким образом можно совместить TextOut и OnPaint?

@mr-Crocodile · 25.06.2019, 10:11

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

если сделать Ctrl+Click на слове Refresh вам откроется страшная тайна, что из себя представляет этот Refresh в коде

Ты намекаешь на то, что Refresh - это просто обёртка для вызова Repaint()
а Repaint вызовет метод, назначенные на OnPaint и поэтому всё будет перерисовано?

ага. ну тогда твоё второе заключение про то, что нужно вызывать Invalidate не совсем корректно.
если нужно перерисовать один компонент, то для него можно просто вызвать Repaint (или Refresh).
Так?

Погоди, а OnPaint метод же есть только у формы?
А как связан код, который размещён на OnPaint формы с Repaint для визуального компонента?!

@AzAtom · 25.06.2019, 10:16

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

Это что значит, Canvas не обновляется?

Тайна раскрыта. После BitBlt Image на экран не перерисовывается, поэтому остаётся как было с буквой. А при выводе букв перерисовывается, потому, что буквы выводятся через функции Canvas. Тогда, надо или Image.Repaint делать на выходе из обработчика или использовать восстановление фона через функции самого Canvas. Почему не используешь его Canvas.CopyRect для удаления букв? Он бы сам обновил картинку на экране.

Добавлено через 2 минуты

Сообщение от mr-Crocodile

Ты намекаешь на то, что Refresh - это просто обёртка для вызова Repaint()

Исходники смотрите.

Delphi
1
2
3
4
procedure TControl.Refresh;
begin
  Repaint;
end;

@mr-Crocodile · 25.06.2019, 10:18

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

Каким образом можно совместить TextOut и OnPaint?

поместить ваш код, который выводит TextOut в коде, назначенном на событие OnPaint формы

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.FormPaint(Sender: TObject);
begin
  with Image1.Canvas do
  begin
    Font.Color:=clred;
    Font.Size:=44;
    //brush.style:=bsClear;
    TextWidth('100');
    TextOut(100, 100, Edit1.Text);  //???.?????
  end;
end;

Добавлено через 1 минуту

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

Исходники смотрите.

посмотрел.

смотри мой ответ выше.

@krapotkin · 25.06.2019, 11:23

ну, конкретно в этом случае, раз мы на канвасе формы не рисуем, то и в FormPaint вставлять ничего не нужно
достаточно image.repaint
хотя для меня это выглядит странно
потому что Image в принципе вроде в курсе, когда на нем рисуют,и перерисовывается сам
но это не точно!, я всегда использовал paintBox )

@AzAtom · 25.06.2019, 11:41

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

потому что Image в принципе вроде в курсе, когда на нем рисуют,и перерисовывается сам

Это верно, если делать Image.Canvas.Draw и т.п. А если рисовать на его DC сразу через BitBlt, то Image уже не в курсе и не перерисовывается.

@krapotkin · 25.06.2019, 12:47

А! точно! Хотя у Canvas есть и для BitBlt обертка. CopyRect() ?

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .

@DDim1000 -46 / 3 / 0 Регистрация: 17.12.2011 Сообщений: 611

	TextOut удалить текст 21.06.2019, 22:48. Показов 3776. Ответов 26 Метки нет (Все метки) Здравствуйте! Подскажите пожалуйста, как удалить текст Image.Canvas.TextOut? 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	25.06.2019, 11:23
	ну, конкретно в этом случае, раз мы на канвасе формы не рисуем, то и в FormPaint вставлять ничего не нужно достаточно image.repaint хотя для меня это выглядит странно потому что Image в принципе вроде в курсе, когда на нем рисуют,и перерисовывается сам но это не точно!, я всегда использовал paintBox ) 1

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	25.06.2019, 12:47
	А! точно! Хотя у Canvas есть и для BitBlt обертка. CopyRect() ? 0

TextOut удалить текст

Решение