Fix for #1228: Columns EndUpdate and duplicate position

JAM-Software · Nov 16, 2023 · bf359e1 · bf359e1
1 parent 26deba0
commit bf359e1
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/Source/VirtualTrees.Header.pas b/Source/VirtualTrees.Header.pas
@@ -4404,6 +4404,7 @@ procedure TVirtualTreeColumns.FixPositions;
   I : Integer;
 
 begin
+  UpdatePositions(True);
   // Fix positions that too large, see #1179
   for I := 0 to Count - 1 do
   begin
@@ -5248,6 +5249,7 @@ function TVirtualTreeColumns.GetPreviousColumn(Column : TColumnIndex) : TColumnI
       Result := FPositionToIndex[Position - 1]
     else
       Result := InvalidColumn;
+    Assert(Position <> Result, 'The previous column must not have the same position as the given column.');
   end;
 end;