VPF::Иконки WinXP и TImageList - Форум программистов

TMoon

Дата 8.11.2003, 16:39 (ссылка)

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

Загрузка ...

Новичок

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

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

Каким образом использовать родные иконки WinXP в TImageList?
У меня возникает проблема с бекграундом.

Alex

Дата 9.11.2003, 14:17 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

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

Если картинки будут отображаться на TollBar, то установи свойство ImageList.BkColor:= clBtnFace
Если в на ListView и ему подобных то ImageList.BkColor:= clWindow
После чего добавь картинки.

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

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

TMoon

Дата 9.11.2003, 20:03 (ссылка)

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

Загрузка ...

Новичок

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

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

Не вышло

BkColor = clBtnFace
AllocBy = 64
DrawingStyle = dsTransparent
Height = 32
ShareImages = True
Width = 32

Alex

Дата 10.11.2003, 07:09 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

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

Вышли иконку на [email protected]

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

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

stab

Дата 10.11.2003, 07:41 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 1839
Регистрация: 1.1.2003

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

похоже проблема в этом:

Цитата

Windows XP imagelists, which are collections of images used with certain controls such as list-view controls, support the use of 32-bit anti-aliased icons and bitmaps. Color values use 24 bits, and 8 bits are used as an alpha channel on the icons. To create an imagelist that can handle a 32 bits-per-pixel (bpp) image, call the ImageList_Create function passing in an ILC_COLOR32 flag.

а Delphi так делает:

Цитата

FHandle := ImageList_Create(Width, Height, ILC_COLORDDB or Mask[Masked], AllocBy, AllocBy);

может я и ошибаюсь

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

6, 6, 6 - the number of the beast.

TMoon

Дата 10.11.2003, 19:54 (ссылка)

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

Загрузка ...

Новичок

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

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

Самое интересное, что TImage замечательно показывает их с любым бекграундом.

Alex

Дата 12.11.2003, 07:24 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

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

Код

var
  ico: TIcon;
begin
  ImageList1.BkColor:= clBtnFace;
  ImageList2.BkColor:= clWindow;
  ico:= TIcon.Create;
  try
    ico.LoadFromFile('e:\Temp\Subscriptions.ico');
    ImageList1.AddIcon(ico);
    ico.LoadFromFile('e:\Temp\Subscriptions.ico');
    ImageList2.AddIcon(ico);
  finally
    ico.Free;
  end;
  with ListView1.Items.Add do begin
    Caption:= 'Test';
    ImageIndex:= 0;
  end;

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

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

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