Форум: "Начинающим";
Текущий архив: 2009.04.26;
Скачать: [xml.tar.bz2];
ВнизВопрос по выделению цветом в 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c