Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.25;
Скачать: 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 вся ветка

Текущий архив: 2004.02.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.056 c
14-80238
Batoon
2004-02-03 16:57
2004.02.25
Ряды Фурье


14-80250
Cosinus
2004-02-04 15:10
2004.02.25
Регулярные выражения и с чем их едят...


6-80058
Bless
2003-12-18 17:30
2004.02.25
Ассинхронные прием/передача данных в консольном приложении


1-79807
Артём
2004-02-11 14:23
2004.02.25
DLL


1-79895
Lisa
2004-02-10 09:57
2004.02.25
Как можно узнать по какой строке в TStringGrid произвели щелчок??