ImageList

← →
Alek_1 (2002-11-30 02:06) [0]

Доброе врямя суток.

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

Заранее спасибо.

← →
Goblinus (2002-11-30 02:25) [1]

var
B: TBitmap;
begin
B := TBitmap.Create;
B.LoadFromFile(FileName);
ImageList1.AddMasked(B, MaskColor) //Maskcolor - цвет маски, например, clFuchsia
B.Free;
end;

← →
Alek_1 (2002-11-30 02:32) [2]

Спасибо.

← →
Дмитрий К.К. (2002-11-30 08:42) [3]

> Goblinus © (30.11.02 02:25)

Такие вещи следует заключать в блок try-finally-end.

← →
Alek_1 (2002-12-01 01:12) [4]

теперь у меня другая проблема

когда когда я написал код который мне предложил
> Goblinus

то при загрузке бмп файла размеров в 2 килобайта вылетает ошибка

invalid image size

как от этого избавиться??

← →
Alek_1 (2002-12-01 02:13) [5]

и еще можно ли в imagelist загрузить jpg или gif картинку
если нет то может подскажите аналог imagelista который это позволяет делать.
Спасибо за ваши ответы.

← →
Song (2002-12-01 11:13) [6]

>>Такие вещи следует заключать в блок try-finally-end.
Нет, совсем не обязательно. Это как захочет разработчик.
Почему Вы так думаете?

← →
TTCustomDelphiMaster (2002-12-01 11:51) [7]

Alek_1 © (01.12.02 02:13)
А зачем вам imagelist. Используйте array of TPicture.

← →
Alek_1 (2002-12-02 01:09) [8]

> TTCustomDelphiMaster

Интересная идея попробую. Спасибо.

← →
Goblinus (2002-12-02 01:18) [9]

> теперь у меня другая проблема
>
> когда когда я написал код который мне предложил
> > Goblinus
>
> то при загрузке бмп файла размеров в 2 килобайта вылетает
> ошибка
>
> invalid image size
>
> как от этого избавиться??

Не знаю, почему. Попробуй запустить пошагово и выясни, где трабл.

> и еще можно ли в imagelist загрузить jpg или gif картинку
> если нет то может подскажите аналог imagelista который это
> позволяет делать.
> Спасибо за ваши ответы.

JPG: Просто сначала конвертишь JPG в BMP, а потом точно также.
Пример конертации есть в FAQ на этом сайте

GIF: Также конвертишь, как JPG в BMP, но используя спец. компонент, TRxGifAnimator, напр...

:)

← →
Alek_1 (2002-12-04 01:20) [10]

> Goblinus ©

> Не знаю, почему. Попробуй запустить пошагово и выясни, где
> трабл.

Ошибка вылетает в этой строке:
ImageList1.AddMasked(B, clBlack);

← →
wam (2002-12-04 01:59) [11]

А размеры и глубина цвета у картинок одинаковые?

ImageList Найти похожие ветки