Прозрачный 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]

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