![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Вобщем проблема такая - надо в ричь едите окрасить часть текста,типо так - красный вводимый текст красный,пробовал так:
Код:
procedure TForm2.Button3Click(Sender: TObject); var s:string; begin RichEdit1.SelAttributes.Color:=clRed; s:='[здесь текст красного цвета]'+RichEdit1.SelText+'[здесь текст красного цвета]'; RichEdit1.SelText:=s; end; Но так красным окрашивается и текст между скобками(вся строка),как сделать чтобы было окрашено только то,что в '[здесь текст красного цвета]',а текст который пишется между скобками оставался чёрным. Ставь спасибо за спасибо! Помог?Ставь спасибо!Увидел пост? Поставь спасибо! |
#2
|
||||
|
||||
![]() Код:
type TForm1 = class(TForm) RichEdit1: TRichEdit; procedure FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject); begin RichEdit1.Text:='здесь текст красного цвета'; RichEdit1.SelStart:=12; RichEdit1.SelLength:=8; RichEdit1.SelAttributes.Color:=clRed; RichEdit1.SelStart:=-1; end; Пишу программы за еду. __________________ |