Главная страница
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.048 c
1-1109606243
markers
2005-02-28 18:57
2005.03.13
TreeView


14-1109014939
тихий вовочка
2005-02-21 22:42
2005.03.13
Корпуса


3-1108393724
Gost
2005-02-14 18:08
2005.03.13
Как добавить индексное поле?


14-1108665627
Alexander Panov
2005-02-17 21:40
2005.03.13
Погрустим?


3-1108374949
atruhin
2005-02-14 12:55
2005.03.13
IBDatabase требует ввода пароля, как избивиться