Chart

Src/Myc.Trade.DataProvider.pas

@@ -38,7 +38,7 @@ begin
     SetLength(FChunk, AMaxChunkSize);
     FStream := AStream;
     FNewDataAvailable := TFlag.CreateObserver(FStream.HasData);
-    FDataSeries := TDataSeries<T>.CreateWriteable(ALookback);
+    FDataSeries := TDataSeries<T>.CreateDataSeries(ALookback);
 end;
 
 destructor TDataStreamProvider<T>.Destroy;
@@ -57,7 +57,7 @@ begin
     begin
         var cnt := FStream.GetChunk(FChunk);
         if cnt > 0 then
-            FDataSeries.Add(FChunk, cnt);
+            FDataSeries := FDataSeries.Add(FChunk, 0, cnt);
     end;
     Result := FDataSeries;
 end;