Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.13;
Скачать: 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 вся ветка

Текущий архив: 2005.03.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
1-1109574679
mmms
2005-02-28 10:11
2005.03.13
Как бы зациклить "Tab" на одной панели, не переходить на другие


11-1092328278
nOvell
2004-08-12 20:31
2005.03.13
Подсветка строки в ListView


1-1109242022
andycat
2005-02-24 13:47
2005.03.13
Глюк Delphi или другое?


6-1105369923
Константинов
2005-01-10 18:12
2005.03.13
Имитация локальной сети на одном ПК


14-1109109276
Витос
2005-02-23 00:54
2005.03.13
Dial-Up