From 111a4d8b467e9fefa69c0e94277db0181931e87e Mon Sep 17 00:00:00 2001
From: Joachim Marder <joachim.marder@outlook.com>
Date: Wed, 29 Nov 2023 22:16:28 +0100
Subject: [PATCH] Minor improvement for issue #1228

---
 Source/VirtualTrees.Header.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Source/VirtualTrees.Header.pas b/Source/VirtualTrees.Header.pas
index 02c59d6a..78991bfd 100644
--- 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