From 694f3f15fdd60e6f1008eb484dc24fac0d976dcd Mon Sep 17 00:00:00 2001 From: "rosenfield.albert" Date: Tue, 17 Feb 2009 22:07:22 +0000 Subject: [PATCH] Try to make it easier to debug a memory read outside an array's bounds (issue #997) by putting each indexing on it's own source code line. --- components/virtualtreeview/Source/VirtualTrees.pas | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/components/virtualtreeview/Source/VirtualTrees.pas b/components/virtualtreeview/Source/VirtualTrees.pas index 58869ecc..5b14a165 100644 --- a/components/virtualtreeview/Source/VirtualTrees.pas +++ b/components/virtualtreeview/Source/VirtualTrees.pas @@ -9164,6 +9164,7 @@ function TVirtualTreeColumns.GetColumnAndBounds(P: TPoint; var ColumnLeft, Colum var I: Integer; + J: Integer; begin Result := InvalidColumn; @@ -9174,9 +9175,10 @@ begin if FHeader.Treeview.UseRightToLeftAlignment then Inc(ColumnLeft, FHeader.Treeview.ComputeRTLOffset(True)); - - for I := 0 to Count - 1 do - with Items[FPositionToIndex[I]] do + + for I := 0 to Count - 1 do begin + J := FPositionToIndex[I]; + with Items[J] do if coVisible in FOptions then begin ColumnRight := ColumnLeft + FWidth; @@ -9187,6 +9189,7 @@ begin end; ColumnLeft := ColumnRight; end; + end; end; //----------------------------------------------------------------------------------------------------------------------