Chart

Src/Myc.Aura.Module.pas

@@ -413,21 +413,17 @@ type
     private
         FName: TWriteable<String>;
         function GetName: TWriteable<String>;
-        procedure Serialize(const Write: TJsonWriter);
+        procedure Serialize(const Write: TJsonWriter); virtual;
     public
         constructor Create(const AName: string);
     end;
 
     // Generic implementation for a collection of child nodes.
-    TMycAuraNode = class(TInterfacedObject, IAuraNode)
+    TMycAuraNode = class(TMycAuraObject, IAuraNode)
     private
-        FName: TWriteable<String>;
-        function GetName: TWriteable<String>;
     protected
         function GetCaption: string; virtual;
-        procedure Serialize(const Write: TJsonWriter);
-    public
-        constructor Create(const AName: string);
+        procedure Serialize(const Write: TJsonWriter); override;
     end;
 
     // Generic implementation for a collection of child nodes.
@@ -502,23 +498,11 @@ end;
 
 { TMycAuraNode }
 
-constructor TMycAuraNode.Create(const AName: string);
-begin
-    inherited Create;
-    FName := TWriteable<String>.CreateWriteable;
-    FName.Value := AName;
-end;
-
 function TMycAuraNode.GetCaption: string;
 begin
     Result := FName.Value;
 end;
 
-function TMycAuraNode.GetName: TWriteable<String>;
-begin
-    Result := FName;
-end;
-
 procedure TMycAuraNode.Serialize(const Write: TJsonWriter);
 begin
     Write.WriteStartObject;