richview: extra check to make sure LineIndex is in range.

This shoud prevent the 'Index out of bounds' errors.

1 files changed, 5 insertions, 1 deletions

diff --git a/docview/components/richtext/RichTextLayoutUnit.pas b/docview/components/richtext/RichTextLayoutUnit.pas
index f79567e0..0577e4c3 100644
--- a/docview/components/richtext/RichTextLayoutUnit.pas
+++ b/docview/components/richtext/RichTextLayoutUnit.pas
@@ -862,7 +862,11 @@ begin
   end;
 
   LineIndex := FNumLines - 1;
-  Remainder := FLines[LineIndex].Height;
+  { check for a valid range }
+  if (LineIndex < 0) or (LineIndex > FLines.Count-1) then
+    Remainder := 0
+  else
+    Remainder := FLines[LineIndex].Height;
 
   Result := tpBelowText;
 end;