Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Поиск текста в TjvHLEditor

Автор: RaIDeR 16.9.2005, 14:13

Делаю 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, 23:12

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

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