From b343cd9300b1dc6ae621a496fa6d94528cbf6bf4 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Tue, 12 Mar 2013 17:16:51 +0000
Subject: richtext: minor improvement to default used colors

---
 docview/components/richtext/RichTextStyleUnit.pas | 2 +-
 docview/components/richtext/RichTextView.pas      | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'docview/components/richtext')

diff --git a/docview/components/richtext/RichTextStyleUnit.pas b/docview/components/richtext/RichTextStyleUnit.pas
index 57f904df..e0cc3b62 100644
--- a/docview/components/richtext/RichTextStyleUnit.pas
+++ b/docview/components/richtext/RichTextStyleUnit.pas
@@ -363,7 +363,7 @@ begin
   FHeading3Font := fpgGetFont(DefaultTopicFontName + '-10:bold');
 
   FDefaultColor := clBlack;
-  FDefaultBackgroundColor := clWhite;
+  FDefaultBackgroundColor := clBoxColor;
 
   FDefaultAlignment := taLeft;
   FDefaultWrap := true;
diff --git a/docview/components/richtext/RichTextView.pas b/docview/components/richtext/RichTextView.pas
index db8f8d86..fe38017f 100644
--- a/docview/components/richtext/RichTextView.pas
+++ b/docview/components/richtext/RichTextView.pas
@@ -692,7 +692,7 @@ begin
   Canvas.ClearClipRect;
   DrawBorder;
   DrawRect := GetDrawRect;
-  Canvas.Color := BackgroundColor;
+  Canvas.Color := RichTextSettings.DefaultBackgroundColor;
   Canvas.FillRectangle(DrawRect);
 
   TextRect := GetTextAreaRect;
-- 
cgit v1.2.3-70-g09d2