Changeset 534 for DpiControls/Demo/UFormMain.pas

Timestamp:

May 26, 2019, 8:29:38 PM (5 years ago)

Author:

chronos

Message:

• Added: Update DpiForm position according real form position.

File:

• DpiControls/Demo/UFormMain.pas (modified) (3 diffs)

DpiControls/Demo/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, StdCtrls,
-  ExtCtrls, UDpiForm, UDpiControls;
+  ExtCtrls, UDpiControls, UDpiFormMain;
 
 type
@@ -14 +14 @@
 
   TFormMain = class(TForm)
+    ButtonNewDpiForm: TButton;
     Label1: TLabel;
     TrackBar1: TTrackBar;
+    procedure ButtonNewDpiFormClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure TrackBar1Change(Sender: TObject);
@@ -37 +39 @@
   DpiScreen.Dpi := 96 * 2;
   TrackBar1.Position := DpiScreen.Dpi;
+  ButtonNewDpiFormClick(nil);
+end;
 
-  DpiForm1 := TDpiForm1.Create(nil);
-  DpiForm1.Caption := DpiForm1.Name;
-  DpiForm1.SetBounds(100, 100, 400, 200);
-  DpiForm1.Show;
-
-  DpiScreen.Forms.Add(DpiForm1);
+procedure TFormMain.ButtonNewDpiFormClick(Sender: TObject);
+var
+  DpiForm: TDpiForm;
+begin
+  DpiForm := TDpiFormMain.Create(nil);
+  DpiForm.Caption := DpiForm.Name;
+  DpiForm.SetBounds(100, 100, 400, 200);
+  DpiForm.Show;
+  DpiScreen.Forms.Add(DpiForm);
 end;