diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2010-02-24 00:20:20 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2010-02-24 00:20:20 +0200 |
| commit | bf392ef8db5396c12eeb0adffe47c1e0ed312dc1 (patch) | |
| tree | d1555ebf23b7d3304323b36379027065b8c590a0 | |
| parent | 24bc55d1741fd6354ee6e0391c2777604be7a27e (diff) | |
| download | fpGUI-bf392ef8db5396c12eeb0adffe47c1e0ed312dc1.tar.xz | |
docview: GetTextAreaWidth already includes ScrollbarWidth in the calculation.
| -rw-r--r-- | docview/components/richtext/RichTextView.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/docview/components/richtext/RichTextView.pas b/docview/components/richtext/RichTextView.pas index d5733173..39e25d7a 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-FScrollbarWidth, 1000, FText, [txtLeft, txtTop, txtWrap]); + Canvas.DrawText(8, 8, GetTextAreaWidth, 1000, FText, [txtLeft, txtTop, txtWrap]); ProfileEvent('DEBUG: TRichTextView.HandlePaint 5'); Canvas.ClearClipRect; |