Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Достать handle иконки 16на16


Strate ©   (2007-05-05 12:18:00) 

Здравствуйте. Такой вопрос:

В меню Options - Project я назначаю приложению иконку, потом мне над достать её отуда чтобы запузырить в трей. Достаю так:

IconHandle := Application.Icon.Handle

При помещении в трей помещается не 16x16 иконка, а уменьшенная 32x32, как это можно исправить?


Strate   (2007-05-05 18:01:00) [1]

Выкрутился. Вот так:

var
 Large, Small : HICON;

begin
ExtractIconEx(PAnsiChar(Application.ExeName),0,Large, Small, 1); //Использовать потом надо Small;
end;


Strate   (2007-05-05 17:45:00) [2]

DVM ©   (05.05.07 15:43) [1]

Спасибо, в принципе к этому и склонялся.

Просто там в одном файл *.ico засунуто нескоклько "версий" картинки, по идее должна браться правильная, а вот что-то не берётся.


DVM   (2007-05-05 15:43:00) [3]


> как это можно исправить?

Сделай разные иконки. Одну для проекта, другую для области уведомлений.
В область уведомлений помещай правильную иконку, причем даже лучше сделать несколько таких иконок для разных версий ОС. В Win98 там только 16 цветов вроде можно было, Win2000 - 256, ну а дальше любые.


Наверх

Титульная страница Поиск, карта сайта Написать письмо