| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопрос по выделению цветом в TRichEdit [D7]
Term © (2009-03-11 15:13:00)Как в компоненте TRichEdit изменить цвет шрифта у строки с нужным номером
Term (2009-03-12 09:44:00) [1]большое спасибо
Palladin (2009-03-12 09:37:00) [2]Впредь читай что написано в начале страницы конференции, куда вопрос задаешь.
Procedure REGetLineParams(p_theRE:TRichEdit;p_nLineIndex:Integer;Var rp_nStartCharIndex,rp_nLineLength:Integer);
Var
i:Integer;
Begin
rp_nStartCharIndex:=0;
For i:=0 to p_nLineIndex-1 Do
Inc(rp_nStartCharIndex,Length(p_theRE.Lines[i])+2);
rp_nLineLength:=Length(p_theRE.Lines[p_nLineIndex]);
End;
Procedure RESelectLine(p_theRE:TRichEdit;p_nLineIndex:Integer;Var rp_rOldSelection:TPoint);
Var
nStartCharIndex,nLineLenght:Integer;
Begin
REGetLineParams(p_theRE,p_nLineIndex,nStartCharIndex,nLineLenght);
rp_rOldSelection.X:=p_theRE.SelStart;
rp_rOldSelection.Y:=p_theRE.SelLength;
p_theRE.SelStart:=nStartCharIndex;
p_theRE.SelLength:=nLineLenght;
End;
Procedure RERestoreSelection(p_theRE:TRichEdit;Const p_rSelection:TPoint);
Begin
p_theRE.SelStart:=p_rSelection.X;
p_theRE.SelLength:=p_rSelection.Y;
End;
procedure TForm1.Button1Click(Sender: TObject);
Var
rp:TPoint;
begin
RESelectLine(RichEdit1,2,rp);
RichEdit1.SelAttributes.Color:=clGreen;
RERestoreSelection(RichEdit1,rp);
end;
Term (2009-03-12 09:02:00) [3]нет компонент писать не хочу хочу выделить цветом некоторые блоки в тексте.
Написал скриптовой движок который работает с БД в синтаксисе есть команды и есть теги вида <sql>...</sql> которые передают текст запроса серверу без изменений. Вот эти блоки я и хочу подсвечивать.
Palladin (2009-03-11 17:58:00) [4]Хочешь написать свой компонент?
| |
