Окрашивание текста в зависимости от длинны слова(подскажите как)

[LAZER]

Подскажите пожалуйста, как сделать так, чтобы была кнопочка, при нажатии которой слова длинной более 4х символов окрашивались в зеленый цвет?

[AlDelta]

А подробности? Где этот текст находится? Язык? Свои мысли?

[LAZER]

За подробности извиняюсь, новичек... Мне дали курсовую работу, перевод русского текста на транслит, в программе 2 окна: куда вводим текст, и второе окно - переведенный текст(компонент Memo), нужно в окне перевода по желанию пользователя, чтобы слова длинной 4х символов окрашивались в зеленый цвет

[DomiNick]

На Делфи?

Вкладка "Win32" компонент "RichEdit"...

[LAZER]

Сообщение от DomiNick

На Делфи?

Вкладка "Win32" компонент "RichEdit"...

Code Gear RAD Studio, есть компонент TRichEdit

[DomiNick]

Ну... Есть такой код для Делфи 7:

Procedure TForm1.CheckBox1Click(Sender: TObject);
Var a: Integer; Text: String;
Begin
Text:='ch'; // Текст который нужно найти и выделить
If CheckBox1.Checked Then
      Begin
      a:=0;
      While a<=Length(RichEdit1.Text) Do
            Begin
            RichEdit1.SelStart:=RichEdit1.FindText(Text, a, Length(RichEdit1.Text)-a, [stMatchCase]); // или stWholeWord
            RichEdit1.SelLength:=Length(Text);
            RichEdit1.SelAttributes.Color:=clRed; // окрашиваем в красный цвет
            a:=RichEdit1.SelStart+Length(Text);
            Application.ProcessMessages; // чтоб не зависало, если текст довольно большой
            End;
      End
Else
      Begin
      RichEdit1.SelectAll; // выделяем всё
      Form1.RichEdit1.SelAttributes.Color:=clBlack; // окрашиваем в чёрный цвет
      End;
End;

[LAZER]

Сообщение от DomiNick

Ну... Есть такой код для Делфи 7:

Procedure TForm1.CheckBox1Click(Sender: TObject);
Var a: Integer; Text: String;
Begin
Text:='ch'; // Текст который нужно найти и выделить
If CheckBox1.Checked Then
      Begin
      a:=0;
      While a<=Length(RichEdit1.Text) Do
            Begin
            RichEdit1.SelStart:=RichEdit1.FindText(Text, a, Length(RichEdit1.Text)-a, [stMatchCase]); // или stWholeWord
            RichEdit1.SelLength:=Length(Text);
            RichEdit1.SelAttributes.Color:=clRed; // окрашиваем в красный цвет
            a:=RichEdit1.SelStart+Length(Text);
            Application.ProcessMessages; // чтоб не зависало, если текст довольно большой
            End;
      End
Else
      Begin
      RichEdit1.SelectAll; // выделяем всё
      Form1.RichEdit1.SelAttributes.Color:=clBlack; // окрашиваем в чёрный цвет
      End;
End;

Пишет неизвестные команды =(

[DomiNick]

Хм... Я не встречал "Code Gear RAD Studio"...
Но процедуры и функции компонента-то наверное должны быть похожими?

[LAZER]

Сообщение от DomiNick

Хм... Я не встречал "Code Gear RAD Studio"...
Но процедуры и функции компонента-то наверное должны быть похожими?

по сути это и есть delphi и C++ в одном, и бесплатно...

[Костян Пират]

RichEdit1.SelStart:=RichEdit1.FindText(Text, a, Length(RichEdit1.Text)-a, [stMatchCase]); // или stWholeWord
RichEdit1.SelLength:=Length(Text);
RichEdit1.SelAttributes.Color:=clRed; // окрашиваем в красный цвет
a:=RichEdit1.SelStart+Length(Text);
...
Form1.RichEdit1.SelAttributes.Color:=clBlack; // окрашиваем в чёрный

если можно, подробнее прокомментируйте пожалуйста код...