Pasting RTF text color issue

Author

Message

DavidRM

Posted: 01/03/2004 23:21:14

While paying attention to the TRVStyle.TextStyles list, I noticed that when

I would paste RTF int TRichViewEdit I was getting a redundant font style.

The redundancy was caused by the default text style having color "clWindowText",

while what was passed in had color "clBlack". On my system, those are the

same. While this won't always be the case, I prefer not to have the redundant

font style if it can be avoided.

I solved the problem by changing TRVRTFReaderProperties.FindStyleNo slightly,

adding calls to ColorToRGB() in the font style comparison logic:

if (AnsiLowerCase(FontStyle.FontName)=FN) and

...

(ColorToRGB(FontStyle.Color)=ColorToRGB(Color)) and // drm - added

ColorToRGB()

(ColorToRGB(FontStyle.BackColor)=ColorToRGB(BackColor)) and // drm

- added ColorToRGB()

...

If the two colors are then the same, the existing font style will be selected.

If not, a new one is created as before.

Just thought I'd pass this along...and request that (barring unforeseen,

unknown issues), this change be made to the source.

Thanks.

-David

http://www.davidrm.com