parallel PathData creation

AuraTrader/MainForm.pas

@@ -88,10 +88,14 @@ begin
     if SymbolsComboBox.ItemIndex < 0 then
         exit;
 
-    var arr := TDataSeries<TAskBidItem>.CreateArray(3000);
     var curr := TWriteable<TDataSeries<TAskBidItem>>.CreateProtected;
     var Symbol := FSymbols.WaitFor[SymbolsComboBox.ItemIndex];
 
+    var currPathData := TWriteable<IObjectRef<TPathData>>.CreateProtected;
+
+    LogMemo.AddIdleHandler(curr.Changed, procedure begin LogMemo.Lines.Add(Symbol + ': ' + curr.Value.TotalCount.ToString); end);
+
+    var arr := TDataSeries<TAskBidItem>.CreateArray(3000);
     var done :=
         FServer.ProcessData(
             Symbol,
@@ -100,12 +104,36 @@ begin
             begin
                 arr.Add(Values);
                 curr.Value := arr.Copy;
+
+                var PathData := TPathData.Create;
+                var Prices := arr;
+                if Prices.Count > 0 then
+                begin
+                    PathData.MoveTo(PointF(Prices.Count - 1, Prices[0].Data.Ask));
+                    for var i := 1 to Prices.Count - 1 do
+                        PathData.LineTo(PointF(Prices.Count - i - 1, Prices[i].Data.Ask));
+                end;
+
+                currPathData.Value := TObjectRef<TPathData>.Create(PathData);
             end
         );
 
     FLoadDone := TState.All([FLoadDone, done]);
 
-    LogMemo.AddIdleHandler(curr.Changed, procedure begin LogMemo.Lines.Add(Symbol + ': ' + curr.Value.TotalCount.ToString); end);
+    Path1.AddIdleHandler(
+        currPathData.Changed,
+        procedure
+        begin
+            if currPathData.Value<>nil then
+            begin
+                Path1.Data.Assign( currPathData.Value.Obj );
+                currPathData.Value := nil;
+            end;
+        end );
+
+
+(*
+    FLoadDone := TState.All([FLoadDone, done]);
 
     Path1.AddIdleHandler(
         curr.Changed,
@@ -120,13 +148,16 @@ begin
                     Path1.Data.Clear;
                     Path1.Data.MoveTo(PointF(Path1.Width - 1, Prices[0].Data.Ask));
                     for var i := 1 to Prices.Count - 1 do
+                    begin
                         Path1.Data.LineTo(PointF(Path1.Width - i - 1, Prices[i].Data.Ask));
+                    end;
                 finally
                     Path1.EndUpdate;
                 end;
             end;
         end
     );
+*)
 end;
 
 procedure TForm1.Button2Click(Sender: TObject);