Черный фон картинок в ImageList

@ht1515 · Регистрация: 31.01.2010

Студворк — интернет-сервис помощи студентам

на картинке тулбар с кнопками.
картинки- пнг с прозрачным фоном.
Гружу через имидж лист
Че он фон черным делает?

@VtaMC · 22.04.2011, 16:36

Т. к. не поддерживается png с прозрачным фоном.

@ht1515 · 22.04.2011, 20:22 **[ТС]**

как быть?

@VtaMC · 22.04.2011, 22:24

ht1515, вот процедура, написанная на Delphi (взята с rsdn):

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
procedure GetImgListBitmap(ImgList: TCustomImageList; ImageIndex: Integer; Bitmap: TBitmap);
var
  aMask : TBitmap;
begin
  aMask := TBitmap.Create;
  try
    Bitmap.Height := ImgList.Height;
    Bitmap.Width  := ImgList.Width;
 
    aMask.Handle := CreateBitmap(ImgList.Width, ImgList.Height, 1, 1, nil);
    FillRect(aMask.Canvas.Handle, Rect(0, 0, ImgList.Width, ImgList.Height), GetStockObject (WHITE_BRUSH));
 
    ImgList.GetBitmap(ImageIndex, Bitmap);
 
    ImageList_Draw (ImgList.Handle, ImageIndex, aMask.Canvas.Handle,  0, 0, ILD_MASK);
    ImageList_Draw (ImgList.Handle, ImageIndex, Bitmap.Canvas.Handle, 0, 0, ILD_NORMAL);
 
    Bitmap.MaskHandle   := aMask.Handle;
    aMask.ReleaseHandle;
  finally
    aMask.Free;
  end;
end;
 
 
Использование:
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ImageList1.Transparent := True;
  GetImgListBitmap (ImageList1, 0, Image1.Picture.Bitmap);
end;

Было сказано, что вытягивает из ImageList картинки с прозрачностью.

Новые блоги и статьи Все статьи Все блоги /
Определение даты списания и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: установить период списания автоматически и запретить. . .	Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

@ht1515 шарпопочитатель 59 / 26 / 7 Регистрация: 31.01.2010 Сообщений: 1,035

	Черный фон картинок в ImageList 22.04.2011, 10:21. Показов 3001. Ответов 3 Метки нет (Все метки) на картинке тулбар с кнопками. картинки- пнг с прозрачным фоном. Гружу через имидж лист Че он фон черным делает? Изображения 0

@VtaMC 161 / 101 / 22 Регистрация: 11.05.2009 Сообщений: 628
	22.04.2011, 16:36
	Т. к. не поддерживается png с прозрачным фоном. 0

@ht1515 шарпопочитатель 59 / 26 / 7 Регистрация: 31.01.2010 Сообщений: 1,035
	22.04.2011, 20:22 [ТС]
	как быть? 0