Форум: "Основная";
Текущий архив: 2004.02.25;
Скачать: [xml.tar.bz2];
Внизкак разукрасить текст? - очень нужно ... Найти похожие ветки
← →
человек в сети (2004-02-12 00:50) [0]здравствуйте, мастера ... вот конкретный и, думаю, для вас легкий вопрос: у меня есть на форме ричэдит, кнопка1, кнопка2 и простой эдит. Я ввожу слово в эдите, нажимаю на кнопка1 или на кнопка2 и текст из эдита добавляется отдельной строкой в ричэдит. как бы сделать так, чтобы, если нажимаешь на кнопку1, в ричэдит добавлялся текст из эдита синий, а если на кнопку2 то, чтобы красным??? ... заранее благодарен.
← →
Алхимик (2004-02-12 01:01) [1]RichEdit.SelAttribute.Color
Вроде так.
← →
Defunct (2004-02-12 01:02) [2]Это совсем не легкий вопрос, сам задавался этим вопросом, но никто не смог помочь. Проблема вот в чем. При раскраске текста ричедит передергивает. Могу поделиться тремя путями раскраски:
1. RichEdit.SelAttributes (можно изменить цвет выделенного фрагмента).
2. Загонять в ричедит строки в формате RTF.
3. Изменять SelAttributes.Color перед выводом строки.
Примеры кода:
http://delphimaster.net/view/1-1076373284/
← →
человек в сети (2004-02-12 01:36) [3]всем спасибо, Defunc - тебе отдельное ... !
← →
человек в сети (2004-02-12 04:19) [4]может какие ещё есть соображания по поводу ?
← →
Defunct (2004-02-12 05:50) [5]А что таки мерцает?
Если вдруг найдешь способ избавиться от мерцания, вышлю пиво по email ;)
IMHO компонент написан криво, в RichEdit даже если цвет не менять, вводимая строка дергается.
← →
TUser (2004-02-12 07:50) [6]RichEdit1.Lines.BeginUpdate;
// чего-то делаем
RichEdit1.Lines.EndUpdate;
// высылаем пиво
← →
человек в сети (2004-02-12 19:12) [7]а вообще как решить ту задачу, о которой я говорил в самом начале? ... я ещё просто новичек, и не во всем так сразу могу разобраться. помогите пожалуйста :)
← →
Defunct (2004-02-12 19:40) [8]procedure TForm1.Button1Click(Sender: TObject);
var Col:TColor;
begin
col:=RichEdit1.SelAttributes.Color;
RichEdit1.SelAttributes.Color:=clRed;
RichEdit1.SelText:=Edit1.Text;
RichEdit1.SelAttributes.Color:=clGreen;
RichEdit1.SelText:=Edit1.Text;
RichEdit1.SelAttributes.Color:=col;
End;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.02.25;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.031 c