GridUtils: refactor-out ExecuteUIThread workaround

src/gui-classic/UGridUtils.pas

@@ -217,7 +217,9 @@ Type
     FBlockStart, FBlockEnd : Int64;
     procedure DoUpdateBlockChainGrid(ANode : TNode; var AList : TList<TBlockChainData>; ABlockStart, ABlockEnd : Int64);
   protected
+    FGridUpdateCount: Integer;
     procedure BCExecute; override;
+    procedure RefreshGrid;
   public
     constructor Create(ABlockChainGrid : TBlockChainGrid);
   End;
@@ -351,7 +353,6 @@ begin
   FisProcessing := True;
   FProcessedList := TOrderedCardinalList.Create;
   Suspended := False;
-  ExecuteUIThread := True;
 end;
 
 destructor TAccountsGridUpdateThread.Destroy;
@@ -889,6 +890,7 @@ begin
       for i := 0 to list.Count-1 do begin
         FOperationsGrid.FOperationsResume.Add(list[i]);
       end;
+      Synchronize(FOperationsGrid.InitGrid);
       FOperationsGrid.InitGrid;
     end;
   finally
@@ -902,7 +904,6 @@ begin
   inherited Create(True);
   FreeOnTerminate := False;
   Suspended := False;
-  ExecuteUIThread := True;
 end;
 
 procedure TOperationsGridUpdateThread.DoUpdateOperationsGrid(ANode: TNode; var AList: TList<TOperationResume>);
@@ -1345,9 +1346,9 @@ begin
         FBlockChainGrid.FBlockChainDataList.Add(Llist[i]);
       end;
       if Assigned(FBlockChainGrid.DrawGrid) then begin
-        if Llist.Count>0 then FBlockChainGrid.DrawGrid.RowCount := Llist.Count+1
-         else FBlockChainGrid.DrawGrid.RowCount := 2;
-         FBlockChainGrid.FDrawGrid.Invalidate;
+        if Llist.Count>0 then FGridUpdateCount := Llist.Count+1
+        else FGridUpdateCount := 2;
+        Synchronize(RefreshGrid);
       end;
     end;
   finally
@@ -1355,13 +1356,20 @@ begin
   end;
 end;
 
+procedure TBlockChainGridUpdateThread.RefreshGrid;
+begin
+  if not Assigned(FBlockChainGrid) or not Assigned(FBlockChainGrid.DrawGrid)
+    then Exit;
+  FBlockChainGrid.DrawGrid.RowCount := FGridUpdateCount;
+  FBlockChainGrid.FDrawGrid.Invalidate;
+end;
+
 constructor TBlockChainGridUpdateThread.Create(ABlockChainGrid : TBlockChainGrid);
 begin
   FBlockChainGrid := ABlockChainGrid;
   inherited Create(True);
   FreeOnTerminate := False;
   Suspended := False;
-  ExecuteUIThread := True;
 end;
 
 procedure TBlockChainGridUpdateThread.DoUpdateBlockChainGrid(ANode: TNode; var AList: TList<TBlockChainData>; ABlockStart, ABlockEnd : Int64);