summaryrefslogtreecommitdiff
path: root/docview
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2011-08-11 16:39:09 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2011-08-11 16:39:09 +0200
commitf0ac27f59f103d63af891ec5f9dec2c727d50508 (patch)
tree065395dcd4c855d2cd2bf97cadf16f59b00b7856 /docview
parent17fe087ae5857fac0878d6fb8b6893d376d36603 (diff)
downloadfpGUI-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')
-rw-r--r--docview/components/richtext/RichTextView.pas4
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;