Перерисовка PaintBox - Мультимедиа в Delphi

gusluk · 25.01.2010, 06:35

При перекрытии PaintBox-а каким либо окном, перекрытая часть стирается. Чтобы этого избежать перерисовываю изображение по таймеру. Может есть более оптимальный способ перерисовки? Например как то определять что есть не прорисованые участки, и тд...

megachuhancer · 25.01.2010, 07:56

Событие OnPaint.

mihali4 · 25.01.2010, 13:19

Есть такой способ.
Он заключается в том, что нужно забыть про компонент PaintBox и использовать канву простого TImage, поскольку ТPaintBox - это "урезанный в правах" TImage и рисовать на нем - то же самое, что рисовать на канве формы.
Будете иметь вечный геморрой с перерисовкой. В отличие от TImage...

Цитата:

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

mihali4, да я бы не сказал. Всего-то добавить код перерисовки в событие OnPaint.

А TImagе этого не нужно - перекрывай/не перекрывай - на нем изображение перерисовывать принудительно не надо.
Будем выбирать путь попроще или посложнее (как свойственно мазохистам) ?

mutabor · 25.01.2010, 19:23

mihali4, да я бы не сказал. Всего-то добавить код перерисовки в событие OnPaint.

gusluk · 26.01.2010, 04:31

Спасибо всем, воспользовался советом megachuhancer.
mihali4, TImagе не стал использовать потому как так и не решл проблему с ним описанную мной тут.

mihali4 · 26.01.2010, 12:54

Цитата:

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

так и не решил проблему с ним описанную мной тут.

Да там всего-то нужно поставить свойство Image1.Stretch в True...

25.01.2010, 06:35	#1
gusluk Форумчанин Регистрация: 16.10.2008 Сообщений: 205	Перерисовка PaintBox При перекрытии PaintBox-а каким либо окном, перекрытая часть стирается. Чтобы этого избежать перерисовываю изображение по таймеру. Может есть более оптимальный способ перерисовки? Например как то определять что есть не прорисованые участки, и тд...

25.01.2010, 19:23	#4
mutabor Телепат с дипломом Старожил Регистрация: 10.06.2007 Сообщений: 4,929	mihali4, да я бы не сказал. Всего-то добавить код перерисовки в событие OnPaint. The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen) Проверь себя! Онлайн тестирование \| Мой блог

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
перерисовка форм	dampirik	Общие вопросы .NET	4	20.12.2009 10:23
Перерисовка RichEdit	SanekIrk	Компоненты Delphi	9	15.09.2009 00:31
Перерисовка канвы	Bayazet	Мультимедиа в Delphi	4	09.04.2009 22:14
перерисовка канвы	Bayazet	Общие вопросы Delphi	14	27.01.2009 16:02

25.01.2010, 07:56	#2
megachuhancer Форумчанин Регистрация: 16.04.2009 Сообщений: 247	Событие OnPaint.

26.01.2010, 04:31	#5
gusluk Форумчанин Регистрация: 16.10.2008 Сообщений: 205	Спасибо всем, воспользовался советом megachuhancer. mihali4, TImagе не стал использовать потому как так и не решл проблему с ним описанную мной тут.