Application is not centered on 4K monitor

  

I’m having trouble running a simple application created in Delphi / Firemonkey, running on Windows with 4K monitor.
The application is not centered correctly on the screen, I am placing the Position = ScreenCenter property.
When the application is created in Delphi / VCL, I don’t have this problem.
Could anyone help?
I’m using:

Delphi 10.4.1 Professional
Windows 10 Pro 64-bit
Monitor 4K Ultra HD 2160p (Philips Brilliance 288P)

Even forcing via code, it doesn’t solve (FormShow):
Self.Top: = Trunc((Screen.Height – Self.Height) div 2);
Self.Left: = Trunc((Screen.Width – Self.Width) div 2);

Comments are closed.