Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

Курс видеоуроков «Программирование и взлом 2O18»
Выпущен 13 августа 2O18 года
Свежие инструменты, новые видеоуроки!

  • 300+ видеоуроков
  • 800 инструментов
  • 100+ свежих книг и статей

УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Как заставить приложение показывать различные иконки при различных разрешениях дисплея

Для этого достаточно текущее разрешение экрана и в соответствии с ним изменить дескриптор иконки приложения. Естественно, что Вам придется создать в ресурсах новые иконки.

Поместите следующий код в файл проекта (.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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS