Fixed issue #1186: Prevent repaint loop

Author: joachimmarder

Source/VirtualTrees.Colors.pas

@@ -234,9 +234,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 TreeView.TreeStates) then // See issue #1186
+          FOwner.Invalidate;
+      end;//case
+    end;// if
   end;
 end;