VPF::Заливка TPanel и TButton текстурой - Форум программистов

AlexV1

Дата 5.3.2004, 13:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 27.1.2003

Репутация: нет
Всего: нет

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, то этот бордер не заливается.

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

Guest

Дата 13.5.2004, 12:40 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

AlexV1
Элементарно
У любого объекта есть свойство Canvas, в том числе и у Panel1 и у Button1

Var
Bit: Bitmap
Begin
bit:=TBitmap.Create;
bit.LoadFromFile('c:\1.bmp');
Form1.Panel1.Canvas.Brush.Bitmap := bit;
Form1.Panel1.Canvas.FillRect(0,0,100,100);
end;

Так же и с любым компанентом

SkilFul

Дата 13.5.2004, 15:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 12.5.2004

Репутация: нет
Всего: 1

Цитата

Guest
Дата 13.5.2004, 12:40

AlexV1
Элементарно
У любого объекта есть свойство Canvas, в том числе и у Panel1 и у Button1

Нефига! у Panel свойства Canvas - нет!

Можно только на Panel растянуть компонент TPaintBox он находится на вкладке System, второй по счету. Вот у него как раз и кроме свойства Canvas больше ничего нет!

AlexV1 - если будут ещё вопросы по созданию скинов можешь спрашивать у меня я в этом деле АС. (можешь отправлять по почте, отвечу)

Это сообщение отредактировал(а) SkilFul - 13.5.2004, 15:29

x77

Дата 13.5.2004, 15:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: нет
Всего: 22

SkilFul,

вы оба гоните.

1. у панели есть канвас, но это protected свойство, объявленное в TCustomControl. соответственно, добраться до него можно через пресловутый взлом класса:

Код


type
  TFake = class (TCustomControl);
...
begin
  TFake (Panel1).Canvas. ...
...

2. для нормальной заливки панели придётся переписать саму панель, переопределив Paint.
Добавлено @ 15:39
paintbox, кстати, ничего не даст, если у панели выставлены бордюры.

Это сообщение отредактировал(а) x77 - 13.5.2004, 15:38

--------------------

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »