diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-17 12:55:22 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-17 12:55:22 +0200 |
| commit | 1921a1bdf296b454ea6ccf4d3e4705ee1a52d23e (patch) | |
| tree | 5a249c7ee4678a3b40981ed7ce5b33d78b13bcdc | |
| parent | a2cc0c689fbc222f1b9ff40d54c01a47ba88f8ce (diff) | |
| download | fpGUI-1921a1bdf296b454ea6ccf4d3e4705ee1a52d23e.tar.xz | |
richview: to prevent "index out of bounds" errors while RV is empty.
| -rw-r--r-- | docview/components/richtext/RichTextView.pas | 2 |
1 files changed, 2 insertions, 0 deletions
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 |