| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TImage в качестве Background, как убрать мерцание? [D6, WinXP]
zam © (2002-08-26 00:23:00)Задача - сделать фоновое изображение для приложения(основной формы).
Беру TImage, растягиваю на всю форму, устанавливаю туда нужный background.
Все конечно работает, но очень не красиво получается при загрузки формы. Сначала загружается и показывается сама форма без фонового рисунка, а через 1-2 сек сам фон.
Не красиво однако.
Как показывать форму с уже отрисованным background"ом?
Или если есть, подскажите другие метобы создания форм с background"ом.
zam (2002-08-26 02:03:00) [1]Спасибо, все понял все работает.
Ученик (2002-08-26 01:40:00) [2]Забыл добавить Image1.Visible=False
Ученик (2002-08-26 01:35:00) [3]А так:
procedure TForm1.WMEraseBkgnd(var Message: TWmEraseBkgnd);
begin
Canvas.Draw(0, 0, Image1.Picture.Graphic);
Message.Result := 1
end;
zam (2002-08-26 00:54:00) [4]Да, сама форма не рисуется, но контролы то перерисовываются, и все равно при загрузке сначала появляются контролы, потом уже фоновый рисунок.
Ученик (2002-08-26 00:30:00) [5]procedure WMEraseBkgnd(var Message: TWmEraseBkgnd); message WM_ERASEBKGND;
procedure TForm1.WMEraseBkgnd(var Message: TWmEraseBkgnd);
begin
Message.Result := 1
end;
| |
