[JVCL-Checkins] SF.net SVN: jvcl: [11169] trunk/jvcl/run/JvRichEdit.pas

[<ob...@us...>]

Revision: 11169
          http://svn.sourceforge.net/jvcl/?rev=11169&view=rev
Author:   obones
Date:     2007-01-27 12:43:12 -0800 (Sat, 27 Jan 2007)

Log Message:
-----------
Mantis 4038: using the or operator to avoid erasing previous options.

Modified Paths:
--------------
    trunk/jvcl/run/JvRichEdit.pas

Modified: trunk/jvcl/run/JvRichEdit.pas
===================================================================
--- trunk/jvcl/run/JvRichEdit.pas	2007-01-27 19:21:08 UTC (rev 11168)
+++ trunk/jvcl/run/JvRichEdit.pas	2007-01-27 20:43:12 UTC (rev 11169)
@@ -6458,7 +6458,7 @@
     { Font.Size is in points; yHeight is in twips }
     yHeight := Font.Size * CTwipsPerPoint;
     if (Font.Color = clWindowText) or (Font.Color = clDefault) then
-      dwEffects := CFE_AUTOCOLOR
+      dwEffects := dwEffects or CFE_AUTOCOLOR
     else
       crTextColor := ColorToRGB(Font.Color);
     if fsBold in Font.Style then


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.