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

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

Прозрачный Bitmap и Image [D6]

Kwt ©   (2005-02-27 13:38:00) 

Уважаемые мастера.
Скажите как засунуть из Bitmap картинку
с прозрачностью в Image без белого квадрата.
var
   bm,m : TBitmap;
   il : TImageList;
begin
   bm := TBitmap.Create;
   m:=TBitmap.Create;
   m.Width:=30;
   m.Height:=30;
   bm.LoadFromFile('C:\02.bmp');
   il := TImageList.CreateSize(bm.Width,bm.Height);
   il.DrawingStyle := dsTransparent;
   il.Masked := true;
   il.AddMasked(bm, clRed);
   il.Draw(Form1.Canvas, 50, 50, 0);
   il.Draw(m.Canvas,5,5,0);
   Image1.Canvas.Brush.Color:=clred;
   Image1.Picture.Bitmap:=m;
   bm.Free;
   il.Free;
   m.Free;

---

Fenik   (2005-02-27 14:31:00) [1]

>Anatoly Podgoretsky ©  (27.02.05 13:59) [2]
>TBitmap.Transparent

плюс TImage.Transparent

---

Fenik   (2005-02-27 14:26:00) [2]

> Viktop  (27.02.05 13:56) [1]
> Намного проще использовать специальный компонент, добавляющий в Delphi возможность работы с PNG

"Отколупайте пеня от пола" (© Е-моё имя).
:-))))))))))))))))

---

Anatoly Podgoretsky   (2005-02-27 13:59:00) [3]

TBitmap.Transparent

---

Viktop   (2005-02-27 13:56:00) [4]

Намного проще использовать специальный компонент, добавляющий в Delphi возможность работы с PNG

---

Наверх