Changeset 7 for os/trunk/Xvcl/Xvcl.Classes.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/Xvcl/Xvcl.Classes.pas (modified) (4 diffs)

os/trunk/Xvcl/Xvcl.Classes.pas

@@ -2 +2 @@
 
 interface
+
+uses
+  Xvcl.Generics;
 
 type
@@ -51 +54 @@
     FOwner: TComponent;
     FName: string;
+    FComponents: TObjectList<TComponent>;
+    procedure SetOwner(const Value: TComponent);
   public
     constructor Create; virtual;
-    property Owner: TComponent read FOwner write FOwner;
+    destructor Destroy; override;
+    property Components: TObjectList<TComponent> read FComponents;
+    property Owner: TComponent read FOwner write SetOwner;
     property Name: string read FName write FName;
   end;
@@ -161 +168 @@
 constructor TComponent.Create;
 begin
+  FComponents := TObjectList<TComponent>.Create;
+end;
+
+destructor TComponent.Destroy;
+begin
+  FComponents.Destroy;
+  inherited;
+end;
+
+procedure TComponent.SetOwner(const Value: TComponent);
+begin
+  if Value = FOwner then Exit;
+  if not Assigned(Value) then FOwner.Components.Remove(Self);
+  FOwner := Value;
+  if Assigned(Value) then FOwner.Components.Add(Self);
 end;
 
@@ -181 +203 @@
   Self.Y := Y;
 end;
-
 
 function TPoint.IsZero: Boolean;