Скачать: CL | DM;

как разукрасить текст? - очень нужно ...   Найти похожие ветки 

← →
человек в сети   (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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.018 c