Текущий архив: 2005.12.11;
Скачать: CL | DM;

Вниз

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

← →
Avdoshin   (2005-11-20 17:14) [0]

Здравствуйте мастера! Написал програмку, вытаскивающую иконки из приложений, но они меняют глубину цвета на 16 цветов. Как быть?

---

← →
kami ©   (2005-11-20 18:39) [1]

В модуле Graphics.pas (желательно скопировать его в папку своей программы, чтобы не менять глобально) заменить в procedure WriteIcon(Stream: TStream; Icon: HICON; WriteLength: Boolean); :

InternalGetDIBSizes(IconInfo.hbmColor, ColorInfoSize, ColorBitsSize, 16);
на
InternalGetDIBSizes(IconInfo.hbmColor, ColorInfoSize, ColorBitsSize, 65536);
или воспользоваться сторонними компонентами иконок (поищи на Торри)

---

Страницы: 1 вся ветка

Текущий архив: 2005.12.11;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.07 c