TLMDRichScrollText doesn't allow proper color selection and doesn't scoll in a loop

Jim Caldwell

I'm using the TLMDRichScrollText control on a VCL Form in Embarcadero® Delphi 10 Seattle. I want to set Yellow text on a Black background and it appears that I can only select Black text (Font->Color) and any background color. No matter what text color I select, it shows as Black. I tried numerous other colors and they don't work or change the color.

Also, I selected Scroll right to left and Loop and it only scrolls once unless I set Word Wrap to true.... I want one line only...  

What's the problem?

Rafael Maricca (LMD)

Please mention next time all required information (e.g. whether you are using VCL Styles) or provide automatically DFM snippet to review your settings.

@TextColor

No idea what problem is. Following code works without problems (yellow text on black background):

  object LMDRichScrollText1: TLMDRichScrollText

    Left = 136

    Top = 96

    Width = 201

    Height = 25

    Direction = sdRightToLeft

    Scroll = True

    Color = clBlack

    Lines.Strings = (

        '{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 MS San' +

        's Serif;}}'

      '{\colortbl ;\red255\green255\blue0;\red0\green0\blue0;}'

        '\viewkind4\uc1\pard\cf1\lang1031\f0\fs16 This is a test! This is' +

        ' a test!  This is a test! This is a test!  This is a test! This ' +

        'is a test! \cf2\par'

      '}')

    ParentColor = False

    WordWrap = False

    MaxWidth = 15000

  end

If you used Font directly: This works as default font (like in RichEdit) and is overriden by RTF text. A working example would be:

  LMDRichScrollText2.Lines.Text:='Hallo';

Now font settings are used.

@Scroll

MaxWidth property is most probably not set.