diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-08-05 16:59:04 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-08-05 16:59:04 +0200 |
| commit | 9633e8b8c3fd68c631dbc10abd85ad96800d1657 (patch) | |
| tree | f85d9c119b18c44f0c845dd262473ad033da5b6a /docview/components/richtext | |
| parent | 4a381a3b07a8775bc6d8fe2c342d7804168569d6 (diff) | |
| download | fpGUI-9633e8b8c3fd68c631dbc10abd85ad96800d1657.tar.xz | |
RichTextView: fixed the scrolling direction when PgUp or PgDn is pressed.
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 8eee11b0..5fa57ffc 100644 --- a/docview/components/richtext/RichTextView.pas +++ b/docview/components/richtext/RichTextView.pas @@ -2002,12 +2002,12 @@ end; Procedure TRichTextView.UpPage; begin - SetVerticalPosition( FVScrollbar.Position - FVScrollbar.PageSize ); + SetVerticalPosition( FVScrollbar.Position + FVScrollbar.PageSize ); end; Procedure TRichTextView.DownPage; begin - SetVerticalPosition( FVScrollbar.Position + FVScrollbar.PageSize ); + SetVerticalPosition( FVScrollbar.Position - FVScrollbar.PageSize ); end; Procedure TRichTextView.SmallScrollUp; |