From 50f0b2fbe6773a0dd01febfb8690ea92a2f658c0 Mon Sep 17 00:00:00 2001
From: gbamber <gbamber@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 8 Sep 2015 08:16:58 +0000
Subject: [PATCH] Bugfix: Font forecolour default clBlack now set by OI.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4315 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/scrolltext/scrollingtext.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/scrolltext/scrollingtext.pas b/components/scrolltext/scrollingtext.pas
index 67f73bd38..a905c3832 100644
--- a/components/scrolltext/scrollingtext.pas
+++ b/components/scrolltext/scrollingtext.pas
@@ -239,7 +239,7 @@ begin
     //reset buffer font
     FBuffer.Canvas.Font := fFont;
     FBuffer.Canvas.Font.Style := [];
-    FBuffer.Canvas.Font.Color := clBlack;
+    FBuffer.Canvas.Font.Color := fFont.Color;// clBlack;
 
     //skip empty lines
     if Length(s) > 0 then