probably bug - list index of bounds - delphi 7 - windows 7

[RobertoVG]

Hi,

I detect an error in rvf file after i past 2 images. I send to you the rvf file that detec the error from actiontest in actiontesttab that reported error below:

load the file, click on the right arrow key to go to the end of the first image, hit enter to make the cursor go to the first line and press del to generate the exception


List index out of bounds (2)

unit SclRView

the target is on line 8556

If bStripBottom and (PageStartDrawItemNo[PageNo - 1] <> -1) then begin
index := PageStartDrawItemNo[PageNo - 1];
bFind := False;
repeat
-> with FRichViewEdit.RVData.DrawItems[index] do
If (ObjectTop + ObjectHeight > HlRVRect.Bottom - HlRVRect.Top) then begin
bStripBottom := False;
Break;
end;

the targe is on line 14409 (in other test)

procedure TSRichViewEdit.GetPageStartItemNo(PageNo: Integer; var ItemNo, Offs : Integer);
begin
ItemNo := -1;
Offs := -1;
if (PageNo > 0) and (PageNo <= FPageCount) then begin
-> ItemNo := FRichViewEdit.RVData.DrawItems[PageStartDrawItemNo[PageNo - 1]].ItemNo;
If PageStartTableItem[PageNo - 1] <> -1 then
Offs := PageStartTableRow[PageNo - 1]
else
Offs := FRichViewEdit.RVData.DrawItems[PageStartDrawItemNo[PageNo - 1]].Offs;
end;
end;


I tried to perform the same test, but in another application actiontest (from the path actiontest, it does not report error, perhaps because the "tab" is not involved.

[Sergey Tkachenko]

I confirm the bug. It is related to showing "smart pop-ups" (buttons next to the edited items), we will fix it ASAP

[Sergey Tkachenko]

Fixed in TRichView 14.7.1 (available for registered users)

[RobertoVG]

Hi Sergey

This works fine. Thanks!