diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-11 16:39:09 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-11 16:39:09 +0200 |
| commit | f0ac27f59f103d63af891ec5f9dec2c727d50508 (patch) | |
| tree | 065395dcd4c855d2cd2bf97cadf16f59b00b7856 /docview/components/richtext | |
| parent | 17fe087ae5857fac0878d6fb8b6893d376d36603 (diff) | |
| download | fpGUI-f0ac27f59f103d63af891ec5f9dec2c727d50508.tar.xz | |
richview: we should be looking at SB Width or Height property
instead we should be looking at the overall FScrollBarWidth field value
which defines the Width or Height of all Scrollbars in RichView.
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 2a18b6c2..634a80b0 100644 --- a/docview/components/richtext/RichTextView.pas +++ b/docview/components/richtext/RichTextView.pas @@ -1014,12 +1014,12 @@ begin if FHScrollBar.Visible then Dec(VHeight, FScrollbarWidth); - FHScrollBar.Top := Height -FHScrollBar.Height - 2; + FHScrollBar.Top := Height - 2 - FScrollbarWidth; FHScrollBar.Left := 2; FHScrollBar.Width := HWidth; FVScrollBar.Top := 2; - FVScrollBar.Left := Width - FVScrollBar.Width - 2; + FVScrollBar.Left := Width - 2 - FScrollbarWidth; FVScrollBar.Height := VHeight; FVScrollBar.UpdateWindowPosition; |