Form1.Icon

[Alexanbar]

Мне нужно изменить иконку во время выполнения

Вариант 1. Берём иконку из Imagelist, добавленную во время дизайна из файла "C:\xxx.ico".

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

Form1.Icon=Imagelist1.Listimages("vvv").Picture


Код выполняется нормально.

Вариант 2. Иконка берётся из файла.

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


Form1.Icon=loadPicture("C:\xxx.ico")



Иконка ЧЕРНЕЕТ!!!!!!!!! (появляется чёрный фон)


Вариант 3. Иконка берётся из файла, но добавляется в Imagelist во время выполнения

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


Set iPIc=loadPicture("C:\xxx.ico")

Imagelist1.Listimages.Add ,"vvv",iPic
Form1.Icon=Imagelist1.Listimages("vvv").Picture



Иконка опять ЧЕРНЕЕТ!!!!!!!!!
ПРичем, абсолютно не важно, какая глубина цвета у иконки.

Чего такого делается с иконкой во время дизайна, что она потом не чернеет?

[tyomitch]

У меня не воспроизвелось: нормально иконка устанавливается.
Дай твою, попробую с ней. Может в ней дело.

[alibek]

Попробуй использовать LoadResPictrure, а не LoadPicture.

[Alexanbar]

Попробуй использовать LoadResPictrure, а не LoadPicture.

Иконки будут в файлах, а не времурсах, чтобы их мог менять юзверь

[tyomitch]

Нужна иконка размером 32х32, тогда не почернеет.

[Alexanbar]

Нужна иконка размером 32х32, тогда не почернеет.

Чернение вроде пропадает, но зато глубина цвета иногда падает до 4бит.