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

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

Как прилепить к bitbuttonу рисунок? [Delphi, Windows]

RTWolf ©   (2004-04-09 21:16:00) 

Памагите с праблемой. Суть такова мне надо создать кнопку с рисунком (bitbtn),
причем рисунок должен быть gif'ом или еще чен-нить. Моно канечно и из bmp грузить но там надо как-то
указать какой цвет будет являться прозрачным.
Вот как я делаю, что не так?:

var
 bmp: kol.PBitmap;
 gif: PGif;
begin
gif :=NewGif;
gif.LoadFromFile('E:\BTN_UNDO.gif');

bmp:=newbitmap(16,16);
bmp.Draw(gif.Handle,0,0);

btnReset := NewBitBtn( form, 'Oтмена',[],glyphLeft,bmp.Handle,1 );
.............

На выходе получаю кнопку с рисунком состоящий из черного цвета.

---

Delphi5.01   (2004-04-09 21:22:00) [1]

ia ne ispolzoval nikogda gif, no kak ia znau vmesto gif.Handle nado ukazat gif.Canvas.Handle. i mne ne sovsem ponatno pochemu vi risuete v gif fail, mojet vi hoteli sdelat chtoto vrode gif.Draw(bmp.Canvas.Handle,0,0);
V otlichie ot VCL v KOL Draw rabotaet zadom na perod, a imenno BMP.Draw oznachaet chto BMP budet risovatsa kudato a ne kak v VCL kuda sma BMP budet risovatsa! :-)))

---

Наверх