Changeset 7 for os/trunk/Applications/TestApplication.pas

Timestamp:

Jun 2, 2013, 6:59:07 PM (11 years ago)

Author:

chronos

Message:

• Fixed: Components now have list of childs and free them on destruction.
• Fixed: Memory leaks.

File:

• os/trunk/Applications/TestApplication.pas (modified) (4 diffs)

os/trunk/Applications/TestApplication.pas

@@ -32 +32 @@
   Caption := 'TestApp';
   Form1 := TForm.Create;
+  Form1.Owner := Self;
   Form1.Bounds := TRectangle.Create(50, 80, 200, 120);
   Form1.Name := 'Form1';
@@ -37 +38 @@
   Form1.Screen := Screen;
   Form2 := TForm.Create;
+  Form2.Owner := Self;
   Form2.Bounds := TRectangle.Create(350, 150, 200, 150);
   Form2.Name := 'Form2';
@@ -47 +49 @@
   Button := TButton.Create;
   Button.Parent := Form1;
+  Button.Owner := Form1;
   Button.Bounds := TRectangle.Create(50, 50, 60, 24);
   Button.Visible := True;
@@ -54 +57 @@
   Label1 := TLabel.Create;
   Label1.Parent := Form1;
+  Label1.Owner := Form1;
   Label1.Bounds := TRectangle.Create(60, 80, 60, 24);
   Label1.Visible := True;