Как обнаружить и «исправить» настройки DPI с помощью Inno Setup?

Question

Я создал установку с пользовательскими страницами мастера и пользовательскими фоновыми изображениями. Проблема с нестандартными системами DPI.

Когда я запускаю эту настройку, фоновые изображения не отображаются должным образом. Как определить размер DPI и использовать пользовательские настройки для страниц мастера?

Answer 1

Динна упомянула, что DPI можно определить следующим образом:

Вы можете определить размер DPI с помощью свойства TGraphicsObject.PixelsPerInch и загрузить другое изображение.

Тем не менее, документация InnoSetup предполагает, что TGraphicsObject не имеет атрибута PixelsPerInch, вместо этого он является атрибутом TFont объектов.

Таким образом, можно определить DPI и реализовать пользовательские настройки, используя код, подобный этому.:

procedure CheckDPI;
var
  CurrentDPI, StandardDPI, MediumDPI, LargeDPI: Integer;
begin
  { Get the current DPI }
  CurrentDPI  := WizardForm.Font.PixelsPerInch;

  { Store defaults determined from Windows DPI settings }
  StandardDPI := 96;  { 100% }
  MediumDPI   := 120; { 125% }
  LargeDPI    := 144; { 150% }

  if (CurrentDPI >= StandardDPI) and (CurrentDPI < MediumDPI) then 
  begin
    { Execute some custom code for small to medium DPI }
  end
  else if (CurrentDPI >= MediumDPI) and (CurrentDPI < LargeDPI) then
  begin
    { Execute some custom code for medium to large DPI }
  end
  else if (CurrentDPI >= LargeDPI) then
  begin
    { Execute some custom code for large DPI or above }
  end;
end;

Answer 2

«Самый правильный» способ - использовать альтернативные изображения для режима маленьких и больших шрифтов. «Немного менее правильный» метод состоит в том, чтобы заполнить фон, чтобы он показывал это вместо уменьшения. «Очень неправильный» метод состоит в том, чтобы попытаться настроить макет / размер формы в соответствии с требованиями.

Размер DPI можно определить с помощью свойства TGraphicsObject.PixelsPerInch и загрузить другое изображение.

Answer 3

Определите следующие функции самостоятельно, чтобы обмануть Inno Setup:

function ScaleX(Value: Integer): Integer;
begin
  Result := Value;
end;

function ScaleY(Value: Integer): Integer;
begin
  Result := Value;
end;

Bing GO ~