Главная страница
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.028 c
1-1109446045
Bogdan
2005-02-26 22:27
2005.03.13
Почему нету файла?


14-1109123213
shestoff
2005-02-23 04:46
2005.03.13
Из DBGrid в Excel


14-1109079932
anonim
2005-02-22 16:45
2005.03.13
Что такое uptime 100%


1-1109522141
AAAAA
2005-02-27 19:35
2005.03.13
Disconnect от TExcelApplication в ПОТОКЕ..


1-1109762690
ser35
2005-03-02 14:24
2005.03.13
Игнорирование невидимых компонентов