Changeset 533 for DpiControls/Demo/UFormMain.pas

Timestamp:

May 26, 2019, 7:33:14 PM (5 years ago)

Author:

chronos

Message:

• Added: TDpiImage control.

Location:

DpiControls

Files:

• . (modified) (1 prop)
• Demo (modified) (1 prop)
• Demo/UFormMain.pas (modified) (4 diffs)

DpiControls/Demo/UFormMain.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, UDpiForm,
-  UDpiControls;
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, StdCtrls,
+  ExtCtrls, UDpiForm, UDpiControls;
 
 type
 
-  { TForm1 }
+  { TFormMain }
 
-  TForm1 = class(TForm)
+  TFormMain = class(TForm)
+    Label1: TLabel;
     TrackBar1: TTrackBar;
     procedure FormShow(Sender: TObject);
@@ -24 +25 @@
 
 var
-  Form1: TForm1;
+  FormMain: TFormMain;
 
 implementation
@@ -30 +31 @@
 {$R *.lfm}
 
-{ TForm1 }
+{ TFormMain }
 
-procedure TForm1.FormShow(Sender: TObject);
+procedure TFormMain.FormShow(Sender: TObject);
 begin
   DpiScreen.Dpi := 96 * 2;
@@ -45 +46 @@
 end;
 
-procedure TForm1.TrackBar1Change(Sender: TObject);
+procedure TFormMain.TrackBar1Change(Sender: TObject);
 begin
   DpiScreen.Dpi := TrackBar1.Position;