Changeset 412 for branches/highdpi/Inp.pas

Timestamp:

Nov 4, 2021, 2:59:11 PM (2 years ago)

Author:

chronos

Message:

• Modified: Merged changes from trunk r411.

File:

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

branches/highdpi/Inp.pas

@@ -5 +5 @@
 
 uses
-  UDpiControls, ScreenTools, Messg,
-  LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, DrawDlg,
-  ButtonA, StdCtrls;
+  UDpiControls, ScreenTools, LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms,
+  DrawDlg, ButtonA, StdCtrls;
 
 type
@@ -38 +37 @@
   TitleHeight := Height;
   InitButtons;
-  Center := true;
+  Center := True;
 end;
 
@@ -64 +63 @@
     ModalResult := mrCancel
   else
-    ModalResult := mrOK
+    ModalResult := mrOK;
 end;
 
@@ -72 +71 @@
   begin
     Key := #0;
-    ModalResult := mrOK
+    ModalResult := mrOK;
   end
   else if Key = #27 then
   begin
     Key := #0;
-    ModalResult := mrCancel
-  end
+    ModalResult := mrCancel;
+  end;
 end;
 
@@ -93 +92 @@
 procedure TInputDlg.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
-  Center := true
+  Center := True;
 end;
 
 procedure TInputDlg.CenterToRect(Rect: TRect);
 begin
-  Center := false;
+  Center := False;
   Left := Rect.Left + (Rect.Right - Rect.Left - Width) div 2;
   Top := Rect.Top + (Rect.Bottom - Rect.Top - Height) div 2;