Fixed issue #1186: Prevent repaint loop

Author: joachimmarder

Source/VirtualTrees.pas

@@ -12079,9 +12079,10 @@ procedure TVTColors.SetColor(const Index: TVTColorEnum; const Value: TColor);
         cBorderColor:
           RedrawWindow(FOwner.Handle, nil, 0, RDW_FRAME or RDW_INVALIDATE or RDW_NOERASE or RDW_NOCHILDREN)
       else
-        FOwner.Invalidate;
-      end;
-    end;
+        if not (tsPainting in FOwner.TreeStates) then
+          FOwner.Invalidate;
+      end;//case
+    end;// if
   end;
 end;