diff --git a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
index c7db24a6c..49062c579 100644
--- a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
+++ b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
@@ -13377,7 +13377,10 @@ begin
         begin
           Brush.Color := clBlack;
           Pen.Color := clBlack;
-          Polygon([Point(2, 0), Point(6, 4), Point(2, 8)]);
+          if BiDiMode = bdLeftToRight then
+            Polygon([Point(2, 0), Point(6, 4), Point(2, 8)])
+          else
+            Polygon([Point(6, 0), Point(2, 4), Point(6, 8)]);
         end
         else
         begin
diff --git a/components/virtualtreeview-new/trunk/VirtualTrees.pas b/components/virtualtreeview-new/trunk/VirtualTrees.pas
index 0f57b15b8..caca8cb32 100644
--- a/components/virtualtreeview-new/trunk/VirtualTrees.pas
+++ b/components/virtualtreeview-new/trunk/VirtualTrees.pas
@@ -13904,7 +13904,10 @@ begin
           begin
             Brush.Color := clBlack;
             Pen.Color := clBlack;
-            Polygon([Point(0, 2), Point(8, 2), Point(4, 6)]);
+            if BiDiMode = bdLeftToRight then
+              Polygon([Point(2, 0), Point(6, 4), Point(2, 8)])
+            else
+              Polygon([Point(6, 0), Point(2, 4), Point(6, 8)]);
           end
           else
           begin