VPF::Поиск текста в TjvHLEditor - Форум программистов

RaIDeR

Дата 16.9.2005, 14:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 116
Регистрация: 20.6.2005

Репутация: 1
Всего: 4

Делаю html редактор, использую компонент из библиотеки Jedi-VCL - TjvHLEditor,
собственно вопрос простой: как искать текст ?

Я пробовал вот так:

Код


procedure TForm1.N11Click(Sender: TObject);
var
  TxtPos: Integer;
  TxtAttr: FINDTEXT;
begin

  with TxtAttr do
  begin
    lpstrText  := PChar(edit1.Text);
    chrg.cpMin := 0;
    chrg.cpMax := GetWindowTextLength(HLEditor.Handle);
  end;

  TxtPos := SendMessage(HLEditor.Handle, EM_FINDTEXT, 0, lParam(@TxtAttr)); // поиск

  SendMessage(HLEditor.Handle, EM_SETSEL, TxtPos, Length(edit1.Text)); // выделение текста

end;

Но дело в том что TxtPos всегда равна нулю, даже если нужной строки там нет,
что не правельно ?

Это сообщение отредактировал(а) RaIDeR - 16.9.2005, 14:13

RaIDeR

Дата 16.9.2005, 23:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 116
Регистрация: 20.6.2005

Репутация: 1
Всего: 4

Похоже что приведённый мною выше способ работает только с TRichEdit ...
Как подругому можно осуществить задуманное ? А то в ручную не очень хочется smile

Но кажеться мне что придёться smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »