From 1921a1bdf296b454ea6ccf4d3e4705ee1a52d23e Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Wed, 17 Aug 2011 12:55:22 +0200
Subject: richview: to prevent "index out of bounds" errors while RV is empty.

---
 docview/components/richtext/RichTextView.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/docview/components/richtext/RichTextView.pas b/docview/components/richtext/RichTextView.pas
index ed774366..ee8f59ec 100644
--- a/docview/components/richtext/RichTextView.pas
+++ b/docview/components/richtext/RichTextView.pas
@@ -812,6 +812,8 @@ var
   Position: TTextPosition;
 begin
   inherited HandleMouseMove(x, y, btnstate, shiftstate);
+  if FText = '' then
+    exit;
   Position := FindPoint(X, Y, Line, Offset, Link);
 
   if Link <> FLastLinkOver then
-- 
cgit v1.2.3-70-g09d2