Changeset 535 for DpiControls/Demo/UFormMain.pas

Timestamp:

May 27, 2019, 12:06:17 AM (5 years ago)

Author:

chronos

Message:

• Added: More DPI aware components.

File:

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

DpiControls/Demo/UFormMain.pas

@@ -16 +16 @@
     ButtonNewDpiForm: TButton;
     Label1: TLabel;
+    Timer1: TTimer;
     TrackBar1: TTrackBar;
     procedure ButtonNewDpiFormClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure Timer1Timer(Sender: TObject);
     procedure TrackBar1Change(Sender: TObject);
   private
 
   public
-
+    Redraw: Boolean;
   end;
 
@@ -42 +44 @@
 end;
 
+procedure TFormMain.Timer1Timer(Sender: TObject);
+begin
+  Redraw := False;
+  DpiScreen.Dpi := TrackBar1.Position;
+end;
+
 procedure TFormMain.ButtonNewDpiFormClick(Sender: TObject);
 var
@@ -55 +63 @@
 procedure TFormMain.TrackBar1Change(Sender: TObject);
 begin
-  DpiScreen.Dpi := TrackBar1.Position;
+  Redraw := True;
 end;