Changeset 193 for branches/highdpi/Inp.pas

Timestamp:

May 7, 2020, 7:05:57 PM (4 years ago)

Author:

chronos

Message:

• Modified: Improved code in HighDPI branch.

File:

• branches/highdpi/Inp.pas (modified) (2 diffs)

branches/highdpi/Inp.pas

@@ -7 +7 @@
   ScreenTools, Messg,
   LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, DrawDlg,
-  ButtonA, StdCtrls;
+  ButtonA, StdCtrls, UDpiControls;
 
 type
@@ -88 +88 @@
   EInput.SelLength := Length(EInput.Text);
   if Center then
-    CenterToRect(Rect(0, 0, Screen.Width, Screen.Height));
+    CenterToRect(Rect(0, 0, DpiScreen.Width, DpiScreen.Height));
 end;