Howdy, Stranger!

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

In this Discussion

Share Me

  • Please share this topic with your friends. Click any of the icons below:
  • Twitter
  • facebook
  • reddit
  • email

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?

Comments

  • 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.

    @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.

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