Minor improvement for issue #1228

JAM-Software · Nov 29, 2023 · 111a4d8 · 111a4d8
1 parent aa21804
commit 111a4d8
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/Source/VirtualTrees.Header.pas b/Source/VirtualTrees.Header.pas
@@ -4415,9 +4415,12 @@ procedure TVirtualTreeColumns.FixPositions;
         Items[I].Position := Count -1;
         LoopAgain := True;
       end;
-      if (i < Count -1) and (Items[I].Position = Items[I+1].FPosition)  then
+      if (i < Count -1) and (Items[I].Position = Items[I+1].FPosition) then
       begin
-        Dec(Items[I].FPosition);
+        if Items[I].FPosition > 0 then
+          Dec(Items[I].FPosition)
+        else
+          Inc(Items[I].FPosition);
         LoopAgain := True;
       end;
     end; // for