Changeset 537 for DpiControls/Demo/UDpiFormMain.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Improved DpiControls.

File:

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

DpiControls/Demo/UDpiFormMain.pas

@@ -16 +16 @@
     procedure DpiButton1Click(Sender: TObject);
     procedure DpiFormMainCreate(Sender: TObject);
+    procedure DpiFormMainDestroy(Sender: TObject);
     procedure DpiPaintBox1Paint(Sender: TObject);
   private
+    Button: TDpiButton;
+    Image: TDpiImage;
+    ListBox: TDpiListBox;
+    PaintBox: TDpiPaintBox;
   public
 
@@ -33 +38 @@
 procedure TDpiFormMain.DpiFormMainCreate(Sender: TObject);
 var
-  Button: TDpiButton;
-  Image: TDpiImage;
-  ListBox: TDpiListBox;
   I: Integer;
-  PaintBox: TDpiPaintBox;
 begin
   Button := TDpiButton.Create(DpiFormMain);
@@ -65 +66 @@
 end;
 
+procedure TDpiFormMain.DpiFormMainDestroy(Sender: TObject);
+begin
+  FreeAndNil(Button);
+  FreeAndNil(Image);
+  FreeAndNil(ListBox);
+end;
+
 procedure TDpiFormMain.DpiPaintBox1Paint(Sender: TObject);
 begin