From f0ac27f59f103d63af891ec5f9dec2c727d50508 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Thu, 11 Aug 2011 16:39:09 +0200
Subject: 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.
---
 docview/components/richtext/RichTextView.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'docview/components')

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;
-- 
cgit v1.2.3-70-g09d2