Re: [Delphi6]подсветка HTML
Здоровеньки булы, keel!
6 мая 2004 г., четверг, 00:19:44 (GMT+05:00), пришел ко мне
почтальон Почкин и всучил письмо с пометкой "[Delphi6]подсветка HTML",
в котором сообщалось следующее:
k> Как можно подсветить HTML теги в richedit'е?
k> Может у кого-нибудь есть пример?
А что там особенного?
Ищешь '<' - pos('<', s)
Ищешь '>' - pos('>', s)
Richedit.SelStart
Richedit.SelLength
Richedit.SelAttributes.Color
Затем ищешь следующее вхождение '<'
PS: Я не стал делать обработку тегов такого типа
<iframe
bla-bla-bla
>
т.е. которые начинаются на одной строке, а заканчиваются на другой.
Надо же что-то тебе и самому написать ;)
PPS: Я не понял что это за косяк, но прикол еще тот:
Если обрабатывается текст который не виден на экране (скролить
надо) - то он не меняет цвет.
PPPS: Данный код написан за ~ 20 минут, ногами не пинать.
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
StartS: integer;
EndS: integer;
MovePlus: integer;
Len: integer;
s: string;
begin
try
Richedit1.SelAttributes.Color := clBlue;
RichEdit1.Lines.BeginUpdate;
MovePlus := 0;
for i := 0 to RichEdit1.Lines.Count - 1 do
begin
s := RichEdit1.Lines[i];
Len := Length(s);
while pos('<', s) <> 0 do
begin
StartS := pos('<', s);
Richedit1.SelStart := i + MovePlus + StartS - 1;
EndS := pos('>', s);
if EndS <> 0 then
begin
Richedit1.SelAttributes.Color := clBlue;
Richedit1.SelLength := EndS - StartS + 1;
Richedit1.SelAttributes.Color := clBlue;
end;
s := copy(s, 1, StartS - 1) + '#' + copy(s, StartS + 1, Len);
s := copy(s, 1, EndS - 1) + '#' + copy(s, EndS + 1, Len)
end;
MovePlus := MovePlus + Len + 1;
end;
finally
RichEdit1.Lines.EndUpdate;
RichEdit1.Font.Color := clBlack;
end;
end;
