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