Changeset 534 for DpiControls/Demo/UDpiFormMain.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/UDpiFormMain.pas (moved) (moved from DpiControls/Demo/UDpiForm.pas ) (6 diffs)

DpiControls/Demo/UDpiFormMain.pas

@@ -1 @@
-unit UDpiForm;
+unit UDpiFormMain;
 
 {$mode objfpc}{$H+}
@@ -10 +10 @@
 type
 
-  { TDpiForm1 }
+  { TDpiFormMain }
 
-  TDpiForm1 = class(TDpiForm)
+  TDpiFormMain = class(TDpiForm)
     DpiButton1: TDpiButton;
     procedure DpiButton1Click(Sender: TObject);
-    procedure DpiForm1Show(Sender: TObject);
+    procedure DpiFormMainCreate(Sender: TObject);
   private
 
@@ -23 +23 @@
 
 var
-  DpiForm1: TDpiForm1;
+  DpiFormMain: TDpiFormMain;
 
 implementation
@@ -29 +29 @@
 {$R *.lfm}
 
-{ TDpiForm1 }
+{ TDpiFormMain }
 
-procedure TDpiForm1.DpiForm1Show(Sender: TObject);
+procedure TDpiFormMain.DpiFormMainCreate(Sender: TObject);
 var
   DpiButton: TDpiButton;
   DpiImage: TDpiImage;
 begin
-  DpiButton := TDpiButton.Create(DpiForm1);
-  DpiButton.Parent := DpiForm1;
+  DpiButton := TDpiButton.Create(DpiFormMain);
+  DpiButton.Parent := Self;
   DpiButton.SetBounds(10, 10, 100, 30);
   DpiButton.Caption := 'Click me';
@@ -43 +43 @@
   DpiButton1.Parent := Self;
 
-  DpiImage := TDpiImage.Create(DpiForm1);
-  DpiImage.Parent := DpiForm1;
+  DpiImage := TDpiImage.Create(DpiFormMain);
+  DpiImage.Parent := Self;
   DpiImage.SetBounds(150, 10, 100, 100);
   DpiImage.Visible := True;
@@ -51 +51 @@
 end;
 
-procedure TDpiForm1.DpiButton1Click(Sender: TObject);
+procedure TDpiFormMain.DpiButton1Click(Sender: TObject);
 begin
   ShowMessage('Hello');