View Single Post
  #2  
Old 19-09-2022, 05:27
Gehrman's Avatar
Gehrman Gehrman is offline
Registered User
 
Join Date: Jan 2020
Location: Save Palestine
Posts: 78
Thanks: 1,375
Thanked 89 Times in 48 Posts
Gehrman is on a distinguished road
Fix High DPI

Code:
procedure InitializeWizard;
begin
....
  WizardForm.ClientWidth:=952;
  WizardForm.ClientHeight:=527;
Change to:

Code:
procedure InitializeWizard;
begin
....
  WizardForm.ClientWidth:=ScaleX(952);
  WizardForm.ClientHeight:=ScaleX(527);
Reply With Quote
The Following User Says Thank You to Gehrman For This Useful Post:
joker85 (16-06-2025)