From 13fd38ff9f564cf9ec312754c1a36d5a9fb5d897 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Tue, 23 Oct 2012 13:09:59 +0100 Subject: richview: Removed the extra margin for text at the top and bottom of the client area There was a hard-coded 2px margin at the top and bottom of the text client area. So when scrolling the text disappeared 2px away from the actual widget border. This was inconsistent with other text widgets in fpGUI, and I simply didn't like it either. So GetTextAreaRect() now returns the same values as GetDrawRect(). --- docview/components/richtext/RichTextView.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'docview/components/richtext') diff --git a/docview/components/richtext/RichTextView.pas b/docview/components/richtext/RichTextView.pas index 7f649723..55395709 100644 --- a/docview/components/richtext/RichTextView.pas +++ b/docview/components/richtext/RichTextView.pas @@ -1248,7 +1248,7 @@ end; Function TRichTextView.GetTextAreaRect: TfpgRect; begin Result := GetDrawRect; - InflateRect(Result, -2, -2); +// InflateRect(Result, -2, -2); end; function TRichTextView.GetTextAreaHeight: longint; -- cgit v1.2.3-70-g09d2