Скачать: CL | DM;

Селектирование слов в WebBrowser   Найти похожие ветки 

← →
ЮрийК ©   (2003-12-22 18:29) [0]

Следующая задача:
Поисковая программа индексирует файлы, в том числе и HTML.
Требуется при произведённом поиске и показе выбранного пользователем HTML файла, показывать искомое слово селектированным. Есть кнопки вперёд и назад, чтобы показывать все найденные слова в файле последовательно.
Вопрос следующий:
Видел ли кто примеры для WebBrowser, в которых подобное делается (селектирование нужных слов в открытом файле)?
Или кто занает, как это можно сделать?

---

← →
nikkie ©   (2003-12-22 18:38) [1]

IHTMLTxtRange.select

---

← →
Maxud ©   (2003-12-22 18:42) [2]

Вот откопал, может пригодится:
{....}

private
procedure SearchAndHighlightText(aText: string);

{....}

procedure TForm1.SearchAndHighlightText(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 := "#FFFF00";
WebBrowser1.OleObject.Document.All.Item(i).ScrollIntoView(True);
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SearchAndHighlightText("some text...");
end;



---

← →
ЮрийК ©   (2003-12-22 18:45) [3]

Спасибо за ответы!
Если кому есть что добавить, заранее буду благодарен.

---

← →
ЮрийК ©   (2003-12-23 17:38) [4]

Maxud © (22.12.03 18:42) [2]
"Вот откопал, может пригодится:
{....}

private
procedure SearchAndHighlightText(aText: string);

{....}"

Если не секрет, где откопали этот код, интересно посмотреть, что там ещё по WebBrowser есть, а вдруг тоже пригодится?

---

← →
Ломброзо ©   (2003-12-23 21:16) [5]

>WebBrowser1.OleObject.Document.All.Length

Вот это всё надо бы кэшировать, навроде

Coll := WebBrowser1.OleObject.Document.All;
for i := 0 to Coll.length - 1...

иначе у вас всякий раз будут дёргаться все элементы этой объектной иерархии.

---

← →
Maxud ©   (2003-12-24 09:01) [6]

> ЮрийК © (23.12.03 17:38) [4]

Здесь: http://delphiworld.narod.ru/

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c