Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

In this Discussion

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

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?


  • 1 Comment sorted by Votes Date Added
  • Please mention next time all required information (e.g. whether you are using VCL Styles) or provide automatically DFM snippet to review your settings.

    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

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

    MaxWidth property is most probably not set.
Sign In or Register to comment.