Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.04.26;
Скачать: CL | DM;

Вниз

Вопрос по выделению цветом в TRichEdit   Найти похожие ветки 

 
Term   (2009-03-11 15:13) [0]

Как в компоненте TRichEdit изменить цвет шрифта у строки с нужным номером


 
Palladin ©   (2009-03-11 17:58) [1]

Хочешь написать свой компонент?


 
Term   (2009-03-12 09:02) [2]

нет компонент писать не хочу хочу выделить цветом некоторые блоки в тексте.
Написал скриптовой движок который работает с БД в синтаксисе есть команды и есть теги вида <sql>...</sql> которые передают текст запроса серверу без изменений. Вот эти блоки я и хочу подсвечивать.


 
Palladin ©   (2009-03-12 09:37) [3]

Впредь читай что написано в начале страницы конференции, куда вопрос задаешь.

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:44) [4]

большое спасибо



Страницы: 1 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.013 c
2-1237181966
termos
2009-03-16 08:39
2009.04.26
Быстрая загрузка объёмных файлов в listbox


15-1235369162
AlexDan
2009-02-23 09:06
2009.04.26
Подключение однофазного счётчика.


6-1202258166
Alex603081
2008-02-06 03:36
2009.04.26
ClientSocket


15-1235487223
БарЛог
2009-02-24 17:53
2009.04.26
Любителям шахмат =)


2-1236872136
Бурато
2009-03-12 18:35
2009.04.26
Поиск