Карта сайтаСсылкиКонтакты

Выбираем иконку в зависимости от разрешения экрана

PDF Печать
Статьи

Возможно, Вы уже спрашивали, как заставить Delphi принимать две или более иконок ? Иконка 16x16, когда требуется (маленькие значки в Explorer) или иконка 32x32 (большие значки в Explorer). Также, если Вы посмотрите в MS (и других) приложениях, Вы увидите много иконок разных размеров и палитры под одним и тем же именем.

Нужно только проверить текущую разрешающую способность и изменить дескриптор иконки приложения...

Поместите это в файл проекта (.DPR) Вашего приложения:


Application.Initialize; 
Application.CreateForm(TForm1, Form1); 
CASE GetDeviceCaps(GetDC(Form1.Handle), HORZRES) of 
   640 : Application.Icon.Handle := LoadIcon (hInstance, 'ICON640'); 
   800 : Application.Icon.Handle := LoadIcon (hInstance, 'ICON800'); 
  1024 : Application.Icon.Handle := LoadIcon (hInstance, 'ICON1024'); 
  1280 : Application.Icon.Handle := LoadIcon (hInstance, 'ICON1280'); 
END; 
Application.Run;

Это все ! (Совет найден в сообщении Gerry Jacobs. () )

По материалам http://delphi.3000.com


 

Добавить комментарий


Защитный код
Обновить