| Schumi |
| Отправлено: 30.03.2004, 20:01 |
|
Машинист паровоза
Группа: Участник
Сообщений: 206
|
Подмогите, пожалуйста,вопрос вроде простой,только не разберусь.
Есть RichEdit,в нём отображаются данные через ...->Lines->Add("...").Нужно чтобы отдельные строки выводились разными цветами. Пробовал через SelAttributes,не получается.
|
|
| exp |
| Отправлено: 30.03.2004, 23:18 |
|
Мастер участка
Группа: Участник
Сообщений: 304
|
Да, похоже и не получится, ведь свойство, отвечающее за цвет текста только одно. 
|
|
| klen |
| Отправлено: 31.03.2004, 00:50 |
|
Машинист паровоза
Группа: Участник
Сообщений: 239
|
Я с Вами не согласен, сам делал через SelStart , SelLength , SelAttributes, все работает. Этот компонент для этого и предназначен.
вот пример
| CODE |
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
RichEdit1 -> Lines -> Add ("Тест цвета и размера шрифта");
RichEdit1 -> SelStart = RichEdit1 -> Text.Pos("цвета") — 1;
RichEdit1 -> SelLength = StrLen("цвета");
RichEdit1 -> SelAttributes -> Color = clRed;
RichEdit1 -> SelLength = 0;
RichEdit1 -> SelStart = RichEdit1 -> Text.Pos("размера") — 1;
RichEdit1 -> SelLength = StrLen("размера");
RichEdit1 -> SelAttributes -> Size = 25;
RichEdit1 -> SelLength = 0;
}
|
|
|
