pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Bugfix: Font forecolour default clBlack now set by OI.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4315 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber
2015-09-08 08:16:58 +00:00
parent 11c7797feb
commit 50f0b2fbe6
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/scrolltext/scrollingtext.pas
View File

@ -239,7 +239,7 @@ begin
//reset buffer font //reset buffer font
FBuffer.Canvas.Font := fFont; FBuffer.Canvas.Font := fFont;
FBuffer.Canvas.Font.Style := []; FBuffer.Canvas.Font.Style := [];
FBuffer.Canvas.Font.Color := clBlack; FBuffer.Canvas.Font.Color := fFont.Color;// clBlack;
//skip empty lines //skip empty lines
if Length(s) > 0 then if Length(s) > 0 then