Fix for #1179

JAM-Software · Mar 11, 2023 · be1b214 · be1b214
1 parent 7cb1077
commit be1b214
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/Source/VirtualTrees.pas b/Source/VirtualTrees.pas
@@ -8092,6 +8092,17 @@ procedure TVirtualTreeColumns.FixPositions;
   I: Integer;
 
 begin
+  // Fox positions that too large, see #1179
+  for I := 0 to Count - 1 do
+  begin
+    if Integer(Items[I].Position) >= Count then
+    begin
+      UpdatePositions(True);
+      break;
+    end;
+  end; // for
+
+  // Update position array
   for I := 0 to Count - 1 do
     FPositionToIndex[Items[I].Position] := I;