ExtractIcon неправильно грузит иконку размером 100x100

[ANDLL]

Создаю в AWicons иконку размером 100x100. Потом загружаю ее из файла с помощью ExtractIcon. В итоге GeIconInfo сообщает, что размер иконки 16x16. И рисуется она(с помощью DrawIcon) то же только такого размера. DrawIconEx может нарисовать иконку размером 100x100, но при этом она выглядит мягко говоря помятой. Ну Вы себе представляете, как выглядит иконка, вдруг сжатая в пять раз, а потом снова "разжатая" до исходных размеров...
А как тогда загружать иконку?

[GSerg]

Ни фига себе иконка...

Поюзай-таки findresource, loadresource, lockresource, freeresource...

[Юстас]

Использовать LoadImage вера не позволяет?

[ANDLL]

Юстас, приступы остроумия на этом форуме позволены далеко не всем. Функция LoadImage это своего рода "распределительная" функция. Она использует тот же алгоритм, что и LoadIcon для загрузки иконок.

Кстати, угадайте, как я решил эту проблему! Просто вспомнил, про то, что в VB есть функция LoadPicture... Вот как оказывается просто решаются некоторые проблемы.
Юстас, GSerg: спасибо!

[Юстас]

ANDLL

Мне не нужно чьё-то разрешение

Кстати, если говорить о "распределительных" функциях, то LoadPicture это и есть vb-обёртка для LoadImage.

[ANDLL]

Неужто? А мои фибры подсказывают мне, что OleLoadPictureEx.

[Юстас]

Возможно.
А как быть с тем, что LoadPicture не позволяет загрузить иконки с глубиной цвета более 8 бит? 24-битные и 32-битные иконки за пределами возможностей LoadPicture... (ошибка invalid picture)
Даже константы нет более 256 цветов. Максимум vbLPColor=256 colors

[ANDLL]

Юстас, ты проверял? Моя иконка как раз 24-битная... И грузится...

[Юстас]

Проверял, 24 и 32 бита LoadPicture идёт в отказ.

[ANDLL]

32-битные действительно не грузит. А вот с 24 бита проблем нету. Проверь. Как ты определеяшь, сколько бит у иконки? И какой Windows?

[Юстас]

Как определяю? я не определяю, я иконку изначально делаю 24 битную в том же AWicons.

Это не в Windows дело, т.к. LoadImage в отличие от LoadPicture, грузит все форматы без проблем. (а винда - XP)

[ANDLL]

Во вложении иконка. 16x16@24.
Такой код быдет вызывать у тебя ошибку:

Код: Выделить всё

Private sub Form_Load()
   LoadPicture "путь_к_файлу"
End Sub


[Юстас]

Именно так. Ошибка 481.
Я давно уже на это нарвался и отказался от LoadPicture. Разбираться в чем дело - то ли сервиспак какой для vb нужен, то ли ещё что - неохота. Есть нормальный путь - LoadImage, вот и использую его.

[ANDLL]

Воистину, чудеса. У меня она как раз грузится. Видимо, дело действительно в каком-то ServicePack'е.
А LoadImage имеет тот минус, что не грузит нестандартные иконки, вроде моей.