Форум: "Начинающим";
Текущий архив: 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.006 c