Главная Информер Журнал Форум Wiki DRKB Discuz!ML Помощь проекту




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

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

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