Скачать: CL | DM;

Прозрачный Bitmap и Image   Найти похожие ветки 

← →
Kwt   (2005-02-27 13:38) [0]

Уважаемые мастера.
Скажите как засунуть из 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;

---

← →
Viktop   (2005-02-27 13:56) [1]

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

---

← →
Anatoly Podgoretsky ©   (2005-02-27 13:59) [2]

TBitmap.Transparent

---

← →
Fenik   (2005-02-27 14:26) [3]

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

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

---

← →
Fenik   (2005-02-27 14:31) [4]

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

плюс TImage.Transparent

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.046 c