WebBrowser

← →
Иван_А (2007-10-30 16:49) [0]

Уважаемые мастера.
Как подсветить текст, содержащий часть текста
или полную часть текста, но не полную строку, цветом.
Спасибо.

← →
homm © (2007-10-30 16:56) [1]

> [0] Иван_А (30.10.07 16:49)
> Как подсветить текст, содержащий часть текста
> или полную часть текста, но не полную строку, цветом.

Прожуй.

← →
clickmaker © (2007-10-30 16:59) [2]

Как подсветить текст, содержащий часть текста

или полную часть текста, но не полную строку, цветом

← →
Иван_А (2007-10-30 17:04) [3]

procedure SearchText(aText: string);
var
i: Integer;
begin
for i := 0 to WebBrowser1.OleObject.Document.All.Length - 1 do
begin
if Pos(aText, WebBrowser1.OleObject.Document.All.Item(i).InnerText) <> 0 then
begin
WebBrowser1.OleObject.Document.All.Item(i).Style.Color := "#FFFFDE";
WebBrowser1.OleObject.Document.All.Item(i).ScrollIntoView(True);
end;
end;
end;
Так подсвечивается вся строка, а мне нужен только тот текст, который попадает под поиск.

← →
clickmaker © (2007-10-30 18:05) [4]

> мне нужен только тот текст, который попадает под поиск.

StringReplace (InnerHtml, aText, Format("%s", [aText]), [rfReplaceAll]);

← →
b z (2007-10-30 18:49) [5]

> font

говорят, что:
The tag in HTML is deprecated. It is supposed to be removed in a future version of HTML.
:)

> [5]

ого!

> [5] b z (30.10.07 18:49)
>
> > font
>
> говорят, что:
> The tag in HTML is deprecated

да и хрен-то с ним
Text

WebBrowser Найти похожие ветки