diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-08-06 17:06:30 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-08-06 17:06:30 +0200 |
| commit | 5e64e5f73ac8b7489340dc503bc33fdbe350f8be (patch) | |
| tree | da38eb25c2ed88de4774c752af0e80075dad32f9 /docview/components/richtext | |
| parent | cb3a155bf586296264984c10c9df7f0a9cb5f016 (diff) | |
| download | fpGUI-5e64e5f73ac8b7489340dc503bc33fdbe350f8be.tar.xz | |
docview: Correctly pass in the text area height to DrawText
Diffstat (limited to 'docview/components/richtext')
| -rw-r--r-- | docview/components/richtext/RichTextView.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/docview/components/richtext/RichTextView.pas b/docview/components/richtext/RichTextView.pas index becd50de..d8b94e2c 100644 --- a/docview/components/richtext/RichTextView.pas +++ b/docview/components/richtext/RichTextView.pas @@ -687,7 +687,7 @@ ProfileEvent('DEBUG: TRichTextView.HandlePaint 4'); if not Debug then Draw( 0, FLayout.FNumLines ) else - Canvas.DrawText(8, 8, GetTextAreaWidth, 1000, FText, [txtLeft, txtTop, txtWrap]); + Canvas.DrawText(8, 8, GetTextAreaWidth, GetTextAreaHeight{1000}, FText, [txtLeft, txtTop, txtWrap]); ProfileEvent('DEBUG: TRichTextView.HandlePaint 5'); Canvas.ClearClipRect; @@ -1111,7 +1111,7 @@ ProfileEvent('DEBUG: TRichTextView.Draw >>>'); EndLine := StartLine; StartLine := Temp; end; - // calculate selection ptrs + // calculate selection pointers if SelectionSet then begin SelectionStartP := FText + FSelectionStart; |