VPF::ImageList: загрузка прозрачных bitmap

Alexeyt

Дата 3.3.2008, 17:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 15.9.2006
Где: около Москвы

Репутация: нет
Всего: 2

Загружаю в ImageList битмепы командой:

Код


  b.LoadFromFile(fnTool);
  with ImageList3 do
    begin
    Clear;
    WIdth:= b.Height;
    Height:= WIdth;

    Add(b, nil);
    end;

-загружается битмеп, но без прозрачности. Т.е. цвет прозрачности битмепа в ImageList не "загружается". На тулбаре это видно.

Как загрузить битмепы с прозрачностью?

Это сообщение отредактировал(а) Alexeyt - 3.3.2008, 17:35

Rennigth

Дата 3.3.2008, 18:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76

Цитата(Alexeyt @ 3.3.2008, 17:32

)

цвет прозрачности битмепа

Это что?

ну маску нормальную подрузи...
плюс можно еще

Код


  ImageList.DrawingStyle := dsTransparent;

--------------------

(* Honesta mors turpi vita potior *)

Alexeyt

Дата 3.3.2008, 18:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 15.9.2006
Где: около Москвы

Репутация: нет
Всего: 2

Цитата

Это что?

Цвет левого-нижнего пиксела. smile

Разобрался, маски не надо. в DRKB есть ответ:

Код


  il := TImageList.CreateSize(bm.Width,bm.Height);
  il.DrawingStyle := dsTransparent;
  il.Masked := true;
  il.AddMasked(bm, clRed);
  il.Draw(Form1.Canvas, 0, 0, 0);

надо было сразу посмотроеть в DRKB.
кстати, там этот пример приведен 3 раза, в 3-х местах.

Это сообщение отредактировал(а) Alexeyt - 3.3.2008, 18:37

Rennigth

Дата 3.3.2008, 18:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76

Цитата(Rennigth @ 3.3.2008, 18:22

)

ну маску нормальную подрузи...

Цитата(Alexeyt @ 3.3.2008, 18:34

)

Разобрался, маски не надо. в DRKB есть ответ:

Цитата(Alexeyt @ 3.3.2008, 18:34

)

il.Masked := true;
il.AddMasked(bm, clRed);

Тогда что это?

Цитата(Rennigth @ 3.3.2008, 18:22

)

ImageList.DrawingStyle := dsTransparent;

Цитата(Alexeyt @ 3.3.2008, 18:34

)

il.DrawingStyle := dsTransparent;

--------------------

(* Honesta mors turpi vita potior *)

Alexeyt

Дата 3.3.2008, 18:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 15.9.2006
Где: около Москвы

Репутация: нет
Всего: 2

AddMasked надо использовать, короче smile

aalexstorm

Дата 10.3.2008, 15:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 10.3.2008

Репутация: нет
Всего: нет

А к чему такие сложности? Компонент ImageList имеет свойство DrawingStyle, которое нужно выставить в dsTransparent в инспекторе обьектов.

VICTAR

Дата 10.3.2008, 16:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 10
Всего: 80

Цитата(aalexstorm @ 10.3.2008, 15:30

)

А к чему такие сложности?

К тому, что код надо внимательней глядеть.
ImageList создается в run-time.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »