Dyestuff Helper - Подсчет лута для изготовления n-ного кол-ва красок.

Зря альфа контролы используешь, очень много мусора в проекте идёт. В данном случае ты не используешь ничего того, чего нет в стандартном наборе Дэльфишных классов, а вот размер существенно вырос. Пользовался бы стандартными классами не пришлось бы использовать ASPack для упаковки, не тянулся бы в проект классы и формы калькулятора, календаря, формы выбора цвета, выбора директории и т.д.

Ini файл мог бы расширить. Сделать одну инишку в качестве базы итемов, в которой бы итемы хранились в виде имя секции -- [id_итема], Name = Название итема, Img = ссылка на файл с изображением итема. Вторую инишку в качестве рецептов, где опять же [Id_изготавливаемого_итема], Name = Название изготавливаемого итема, Img = ссылка на файл с изображением итема, SubItemCount = кол-во используемых различных ингридиентов, si_n_id = id ингридиента, si_n_count = кол-во ингридиентов, где n - номер итема по счёту.
Ну и соответственно в проге это всё загружать и формировать списки рецептов и подсчитывать кол-во нужных итемов. Получилась бы расширяемая прога в плане добавления/удаления рецептов без пересборки и изменения логики.

Не, код мне не интересен. Всё банально просто реализуется.
Прозрачность и в обычном ImageList пахала вроде. Во всяком случае она там есть.

Вообще-то оно и сейчас работает.


Мне вот больше интересно, на кой нужна прозрачность, если область ListView белого цвета. Достаточно поменять фон картинки на белый и обойтись без использования левых вещей в проекте.

2-мя постами выше скрин показывает, что прозрачность там есть и она работает. Картинка чёрная с красным пятном. Добавлена в imagelist и выбрана прозрачность для чёрного цвета.

Тем, что в Bmp прозрачность не всунешь, а gif и прочие форматы, у которых есть прозрачность не катят для данных компонентов.

В событие формы OnCreate вставь для теста такой код (на форме соответственно должен быть ImageList с картинками. Имя сменишь на своё):

Код:

 
var
  bmp:TBitmap;
  i : integer;
begin
  bmp := TBitmap.Create();
  for i := 0 to ImageList1.Count - 1 do
  begin
    //  чуток подправил, лишнее действие было
    if (ImageList1.GetBitmap(i, bmp)) then
        ImageList1.ReplaceMasked(i, bmp, clBlack);
  end;
  bmp.Free;
end;