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

Вниз

Подсветка.   Найти похожие ветки 

← →
Morfey ©   (2003-03-01 11:22) [0]

Поскажите как менять цвет (быстро) для определённых слов в
RichEdit.
P.S. Как менять цвет для выделенного текста я знаю :)

---

← →
Song ©   (2003-03-01 11:29) [1]

Выделяй их по очереди :)

---

← →
Morfey ©   (2003-03-01 11:30) [2]

Долго!!!

---

← →
Song ©   (2003-03-01 11:35) [3]

Стало быть "определённых" много?

---

← →
Morfey ©   (2003-03-01 11:37) [4]

много ли групп тег в HTML?

---

← →
Song ©   (2003-03-01 11:43) [5]

procedure HTMLSyntax(RichEdit: TRichEdit; TextCol, TagCol, DopCol: TColor);
var
i, iDop: Integer;
s: string;
Col: TColor;
isTag, isDop: Boolean;
begin
iDop := 0;
isDop := False;
isTag := False;
Col := TextCol;
RichEdit.SetFocus;

for i := 0 to Length(RichEdit.Text) do
begin
RichEdit.SelStart := i;
RichEdit.SelLength := 1;
s := RichEdit.SelText;

if (s = "<") or (s = "{") then isTag := True;

if isTag then
if (s = """) then
if not isDop then
begin
iDop := 1;
isDop := True;
end
else
isDop := False;

if isTag then
if isDop then
begin
if iDop <> 1 then Col := DopCol;
end
else
Col := TagCol
else
Col := TextCol;

RichEdit.SelAttributes.Color := Col;
iDop := 0;
if (s = ">") or (s = "}") then isTag := False;
end;
RichEdit.SelLength := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.Lines.BeginUpdate;
HTMLSyntax(RichEdit1, clBlue, clRed, clGreen);
RichEdit1.Lines.EndUpdate;
end;


---

← →
Morfey ©   (2003-03-01 11:45) [6]

Спасибу

---

← →
Morfey ©   (2003-03-01 13:07) [7]

А как сделать что бы курсор оставался на месте а не перемещался в конец текста

---

← →
Song ©   (2003-03-01 16:38) [8]

Подумать головой.

---

← →
Morfey ©   (2003-03-01 16:50) [9]

Нет всё равно это очень долго, надо чтоб как в делфи, подсвечивались слова, в процессе редактирования.

---

← →
Ketmar ©   (2003-03-01 17:58) [10]

>Morfey © (01.03.03 16:50)
synedit.

Satanas Nobiscum! 01-Mar-XXXVIII A.S.

---

← →
Morfey ©   (2003-03-01 20:14) [11]

Вау, класс то что надо, спасибо!!!

---

← →
George ©   (2003-03-02 12:02) [12]

Воспользуйся компонентом RxRichEdit.

---

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

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

Наверх

Память: 0.49 MB
Время: 0.024 c