Changeset 537 for DpiControls/Demo/UFormMain.pas

Timestamp:

Jun 23, 2019, 12:36:19 AM (5 years ago)

Author:

chronos

Message:

• Modified: Improved DpiControls.

File:

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

DpiControls/Demo/UFormMain.pas

@@ -19 +19 @@
     TrackBar1: TTrackBar;
     procedure ButtonNewDpiFormClick(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
     procedure TrackBar1Change(Sender: TObject);
   private
-
+    DpiForm: TDpiForm;
   public
     Redraw: Boolean;
@@ -51 +52 @@
 
 procedure TFormMain.ButtonNewDpiFormClick(Sender: TObject);
-var
-  DpiForm: TDpiForm;
 begin
   DpiForm := TDpiFormMain.Create(nil);
@@ -59 +58 @@
   DpiForm.Show;
   DpiScreen.Forms.Add(DpiForm);
+end;
+
+procedure TFormMain.FormDestroy(Sender: TObject);
+begin
+  FreeAndNil(DpiForm);
 end;