1. Do you speak English? Use the English version of the site! Link
    Скрыть объявление
Скрыть объявление
Здравствуй гость! После регистрации на ресурсе, ты сможешь скачивать материалы с форума и участвовать в его жизни! Для регистрации откройте соответствующую форму или нажмите на эту ссылку.

Delphi цветной текст RichEdit

Тема в разделе "Статьи", создана пользователем X-Vlad, 02.10.2015.

  1. X-Vlad

    X-Vlad Юзер

    Дек 04 2016 в 23:22
    Регистрация:
    21.09.2015
    Сообщения:
    21
    Симпатии:
    26
    Всем доброй ночи, сейчас я вам покажу как сделать цветной текст в компоненте TRichEdit
    Кидаем на форму компонент, и пишем функцию:
    Код:
    function AddColorText(Text: String; Color: TColor): String;
    begin
    form1.RichEdit1.SelAttributes.Color := Color;
    form1.RichEdit1.SelText := Text;
    form1.RichEdit1.SelAttributes.Color := clBlack;
    end;
    //заменяем RichEdit1 на имя вашего компонента, если вы сменили
    
    А используем так:
    Код:
    form1.RichEdit1.Lines.Add(AddColorText(text, clblue));
    //заменяем RichEdit1 на имя вашего компонента, если вы сменили
    переменная text - строка которая должна быть добавлена
    //где clblue это цвет который должен быть в строки которую вы добавляете
    
    Примеры цветов:
    clred
    clyellow
    clblue
    clgreen и другие
    Если что то не выходит, то пишите сюда