TaskManager refactoring

2025-06-25 15:00:51 +02:00
parent e2a262bc5a
commit 10b653e16f
13 changed files with 183 additions and 255 deletions
@@ -220,12 +220,12 @@ begin
    const width = 1000;
    const incsize = 100;

-    TaskManager.RunTask(
+    var done := TaskManager.RunTask(
        nil,
-        procedure
+        function: TState
        begin
            var arr := TDataSeries<TAskBidItem>.CreateWriteable(width);
-            var done :=
+            Result :=
                FServer.ProcessData(
                    Symbol,
                    FTerminate.Signal,
@@ -246,10 +246,11 @@ begin
                        currPathData.Value := TObjectRef<TPathData>.Create(PathData);
                    end
                );
-            FLoadDone := TState.All([FLoadDone, done]);
        end
    );

+    FLoadDone := TState.All([FLoadDone, done]);
+
    LogMemo.AddIdleHandler(currLog.Changed, procedure begin LogMemo.Lines.Add(Symbol + ': ' + currLog.Value); end);

    Path1.AddIdleHandler(