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

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

Заливка TPanel иTButton текстурой.Пытаюсь сообразить прост-й скин


AlexV ©   (2004-03-06 12:52:00) 

imgTemp.Picture.LoadFromFile('skin0101.bmp'); // Загрузка текстуры
Form1.Brush.Bitmap:=imgTemp.Picture.Bitmap; // Заливка формы
Form1.Refresh;

Panel1.Brush.Bitmap:=imgTemp.Picture.Bitmap; // Это не дало эффекта
Button1.Brush.Bitmap:=imgTemp.Picture.Bitmap; // Это не дало эффекта

Форма залилась, а вот элементы формы Panel1 и Button1 не залились.

Также, если у формы BorderWidth ставлю, например 5, то этот бордер не заливается.

Как проще всего залить эл-ты формы текстурой ?


Gero   (2004-03-10 17:47:00) [1]

Sorry, есть. Был не прав.


AlexV   (2004-03-10 13:20:00) [2]

Зато свойство Brush есть у TWinControl, от которого потом пошла TForm.
У меня свойство Form1.Brush доступно и прекрасно компилится


Gero   (2004-03-09 08:10:00) [3]

Заливка не происходит, ибо программа не компилируется.
У TForm нет свойства Brush, если, конечно, Вы его не дописали в TForm1.


AlexV   (2004-03-09 07:17:00) [4]


> Form1.Brush.Bitmap:=imgTemp.Picture.Bitmap; ... Форма
> залилась
> Не врите :)

Заливка реально происходит не на этой строке, а после вызова
Form1.Refresh;


Gero   (2004-03-06 19:09:00) [5]

Писать потомков, перехватывать WM_PAINT, и делать собственную прорисовку.

> Form1.Brush.Bitmap:=imgTemp.Picture.Bitmap; ... Форма залилась
Не врите :)


Наверх

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