Fix for #1179

JAM-Software · Mar 11, 2023 · c69e0f8 · c69e0f8
1 parent 7229c2a
commit c69e0f8
Showing 1 changed file with 19 additions and 10 deletions.
diff --git a/Source/VirtualTrees.Header.pas b/Source/VirtualTrees.Header.pas
@@ -2704,16 +2704,14 @@ procedure TVTHeader.RestoreColumns;
 end;
 
 //----------------------------------------------------------------------------------------------------------------------
-
-procedure TVTHeader.ToggleSortDirection;
-
-// Toggles the current sorting direction
-
-begin
-  if SortDirection = sdDescending then
-    SortDirection := sdAscending
-  else
-    SortDirection := sdDescending;
+
+procedure TVTHeader.ToggleSortDirection;
+// Toggles the current sorting direction
+begin
+  if SortDirection = sdDescending then
+    SortDirection := sdAscending
+  else
+    SortDirection := sdDescending;
 end;
 
 //----------------------------------------------------------------------------------------------------------------------
@@ -4407,6 +4405,17 @@ procedure TVirtualTreeColumns.FixPositions;
   I : Integer;
 
 begin
+  // Fix 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;