Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Создаю на главной форме фон с помощью Form.Canvas.Draw... Во время работы приложения, при перемещении окна за пределы экрана, либо накрывания окном другой программы, рисунок пропадает и получаются белые пятна. Что делать? Не прорисовывать же фон каждый такт.

Вопрос задал: Павлов Евгений Владимирович (статус: Посетитель) Вопрос отправлен: 10 декабря 2006, 23:33 Состояние вопроса: открыт, ответов: 3.

Ответ #1. Отвечает эксперт: Dron

Здравствуйте, Павлов Евгений Владимирович!
Самое простое, что можно сделать - это рисовать на канве TImage или TPaintBox вместо канвы формы. В этом случае изображение точно будет оставаться.
Кстати, если вы заливаете фон окна однотипной картинкой (т.е. т.н. режим "плитка"), то можете использовать свойство Brush:
Form1.Brush.Bitmap.LoadFromFile('background.bmp');

Ответ отправил: Dron (статус: Студент) Время отправки: 11 декабря 2006, 08:03 Оценка за ответ: 5 Комментарий к оценке: Отличный ответ! Просто и по существу.

Ответ #2. Отвечает эксперт: PaVeL-Ekt

Здравствуйте, Павлов Евгений Владимирович!

Просто делайте замещение рисунка в событии OnPaint
формы, и при необходимости можно всегда заново отрисовать форму событием Paint;

Ответ отправил: PaVeL-Ekt (статус: 2-ой класс) Время отправки: 11 декабря 2006, 09:49

Ответ #3. Отвечает эксперт: Матвеев Игорь Владимирович

Здравствуйте, Павлов Евгений Владимирович!
Добавлю и я пару слов на Ваш вопрос.

Итак, TCanvas - канва или, в простонародье, холст является надстройкой над HDС - Handle of Display Device Context - дисплейным контекстом устройства. Устройство, которому может принадлежать холст может быть разным - например экран (как в Вашем случае с холстом формы), а может быть холстом картинки TBitmap и еще много чего (принтер и т.д.).
Если Вы рисуете на канве экрана, т.е. на канфе формы или любого другого элемента управления, то если другие программы закрасят эту область, естественно она изменится.

С учетом всего этого у Вас есть два выхода:
1. Перерисовывать заново, когда область рисования была перекрашена (OnPaint/WM_PAINT).
2. Если рисование занимает продолжительное время и содержит циклы перерисовывания, когда одна область зарисовывается сначала одним цветом, потом другим. Чтобы избежать мерцания нужно имвользовать канву TBitmap того же размера. Рисовать на ней и в конце цикла рисования выводить на экран. В OnPaint тогда не нужно будет рисовать изображение снова - нужно будет только вывести на экран уже готовое, что намного быстрее.

Кстати TPaintBox не имеет буфера и рисует на экран аналогично всем остальным контролам, т.е. не сохраняет содержимое.

Ответ отправил: Матвеев Игорь Владимирович (статус: Студент) Время отправки: 11 декабря 2006, 11:12 Оценка за ответ: 4 Комментарий к оценке: Спасибо. Жаль конечно, что нет какой-нибудь особой команды для закрепления рисунка, но куда деваться...

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.