Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Текстуру на форму. [D5, Win2k]


Сергей ©   (2004-09-14 21:21:00) 

Как сделать фоном формы текстуру.Спасибо.


Defunct   (2004-09-15 04:17:00) [1]

Defunct ©   (15.09.04 04:15) [3]

поправка:

4. при событии OnResize изменить размеры Bitmap (width, height)и выполнить пункт [3]


Defunct   (2004-09-15 04:15:00) [2]

Сергей ©   (14.09.04 21:21)  

Сложный но правильный путь, годится не только для формы но и для TPanel, TPaintBox и т.п.:
1. перекрыть метод Paint формы.
2. при создании формы создать Bitmap соответствующего размера.
3. заполнить Bitmap прямоугольниками текстуры.
4. при событии OnResize выполнить пункты [2,3]

Перекрытый метод Paint должен только копировать на форму содержимое Bitmap, созданного в п.[2], либо вызывать предка если Bitmap не был создан.

Простой путь:
Кинуть на форму Image, установить его свойство StretchDraw в True, загрузить текстуру в Picture.


KilkennyCat   (2004-09-15 01:55:00) [3]

Обработать событие репаинта формы. В двумерном цикле, ограниченном ширинаформы/ширинакартинки и высотаформы/высотакартинки, рисовать прямоугольники текстуры на форму.


Palladin   (2004-09-14 21:33:00) [4]

Картинку штоль?


Наверх

Титульная страница Поиск, карта сайта Написать письмо