diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2009-10-15 23:45:47 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2009-10-15 23:45:47 +0200 |
| commit | cdb0521b53910e7065848e470d426ae95a1a6ea6 (patch) | |
| tree | eb0b4605b9369b7f39cb52780ed981f583404d31 /components | |
| parent | c60881787e24edca5feba47435d40d753c50328a (diff) | |
| download | fpGUI-cdb0521b53910e7065848e470d426ae95a1a6ea6.tar.xz | |
Scrollbars are now synchronized with the mouse scroll wheel.
Signed-off-by: Graeme Geldenhuys <graemeg@gmail.com>
Diffstat (limited to 'components')
| -rw-r--r-- | components/richtext/RichTextView.pas | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/components/richtext/RichTextView.pas b/components/richtext/RichTextView.pas index 427ef6ae..1f9cd666 100644 --- a/components/richtext/RichTextView.pas +++ b/components/richtext/RichTextView.pas @@ -1549,12 +1549,14 @@ end; Procedure TRichTextView.SetVerticalPosition( NewY: longint ); begin FVScrollbar.Position := NewY; + FVScrollbar.RepaintSlider; DoVerticalScroll( FVScrollbar.Position ); end; Procedure TRichTextView.SetHorizontalPosition( NewX: longint ); begin FHScrollbar.Position := NewX; + FHScrollbar.RepaintSlider; DoHorizontalScroll( FHScrollbar.Position ); end; |