Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Как сделать картинки в TImageList прозрачными

Delphi , Компоненты и Классы , TImage и TImageList

Как сделать картинки в TImageList прозрачными


procedure TForm1.Button1Click(Sender: TObject);
var
    bm : TBitmap;
    il : TImageList;
begin
    bm := TBitmap.Create;
    bm.LoadFromFile('C:\DownLoad\TEST.BMP');
    il := TImageList.CreateSize(bm.Width,bm.Height);
    il.DrawingStyle := dsTransparent;
    il.Masked := true;
    il.AddMasked(bm, clRed);
    il.Draw(Form1.Canvas, 0, 0, 0);
    bm.Free;
    il.Free;
end;

Статья Как сделать картинки в TImageList прозрачными раздела Компоненты и Классы TImage и TImageList может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: TImage и TImageList ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
03.06.2020 14:56:51/0.011320114135742/0