FMXInno - Windows Fluent Design Installer UI for Inno

[BLACKFIRE69]

Originally Posted by audiofeel

BlackFire69
is there anything you can do with scaling "FSwitch" and "FCheckBox"?
https://ibb.co/ryBnyV1
https://ibb.co/5F5SM4J

maybe try using new values for Top and Width for higher DPI.

var
  FCurrentDPI: Cardinal;
begin
  FCurrentDPI := GetCurrentDPIValue;

  if FCurrentDPI < 120 then
    Switch1.Width(NSX(78))
  else
    Switch1.Width(NSX(58));


DPI	  PCT

96	- 100%
120	- 125%
144	- 150%
192	- 200%

procedure FMXDesigning;
var
  FOffset: Integer;
begin
...
  #ifdef Component1
    FOffset := 0;
    Component[1].FCreate(Page3.Handle, True, 'Install {#C1[59]}');
    Component[1].SetBounds(NSX(20), NSY(185), NSX(250), NSY(25));
    Component[1].FontSetting('Segoe UI', VCLFontSizeToFMX2(10), VCLColorToFMXColor($FFFFFF));
  #ifdef Component2
    FOffset := FOffset + 5;
    Component[2].FCreate(Page3.Handle, True, 'Install {#C2[59]}');
    Component[2].SetBounds(NSX(20), NSY(210 + FOffset), NSX(250), NSY(25));
    Component[2].FontSetting('Segoe UI', VCLFontSizeToFMX2(10), VCLColorToFMXColor($FFFFFF));

...

  #ifdef Component8
    FOffset := 0;
    Component[8].FCreate(Page3.Handle, True, 'Install {#C8[59]}');
    Component[8].SetBounds(NSX(340), NSY(185), NSX(250), NSY(25));
    Component[8].FontSetting('Segoe UI', VCLFontSizeToFMX2(10), VCLColorToFMXColor($FFFFFF));
  #ifdef Component9
    FOffset := FOffset + 5;
    Component[9].FCreate(Page3.Handle, True, 'Install {#C9[59]}');
    Component[9].SetBounds(NSX(340), NSY(210 + FOffset), NSX(250), NSY(25));
    Component[9].FontSetting('Segoe UI', VCLFontSizeToFMX2(10), VCLColorToFMXColor($FFFFFF));
...
end;