Richedit: In Zeile springen

[Opa Knack]

Hallo,

ich habe ein RichEdit-Feld und kann darin mittels eines FindDialog Inhalte suchen. Den dazugehörigen Quelltext habe ich der Delphi-Hilfe entnommen.

Das klappt auch ganz gut, nur habe ich ein Problem: Die gefundenen Textstellen werden zwar markiert, jedoch "springt" die Anzeige nicht in die jeweilige Zeile, was bedeutet, dass ich dann manuell nach den Treffern fahnden darf.

Gibt es eine Möglichkeit, bei Treffern in die jeweilige Zeile zu springen?

Danke
Opa

[toms]

Hallo,

Wenn du Zeilen Nummer, Character Position kennst,
kannst du so dorthin scrollen:

Delphi-Quellcode:

    // Cursor auf Linie 5, Postion 3 setzen:
    SelStart := Perform(EM_LINEINDEX, 5, 0) + 3;
    Perform(EM_SCROLLCARET, 0, 0);

[Opa Knack]

Hallo,

damit klappt's leider nicht (wobei natürlich nicht auszuschließen ist, dass ich mal wieder was falsch gemacht habe).

Also:

Der Text wird wie folgt selektiert:

Delphi-Quellcode:

procedure TForm1.FindDialog1Find(Sender: TObject);
var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
begin
  with ResultEdit do
  begin
    if SelLength <> 0 then

      StartPos := SelStart + SelLength
    else

      StartPos := 0;

    ToEnd := Length(Text) - StartPos;

    FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, []);
    if FoundAt <> -1 then
    begin
      ResultEdit.SetFocus;
      ResultEdit.SelStart := FoundAt;
      ResultEdit.SelLength := Length(FindDialog1.FindText);
    end
    else
    Showmessage('Unable to find');
  end;
end;

(aus der OH)

Ich habe jetzt versucht, die von Dir genannten Zeilen einzubinden, aber leider zeigt das gar keinen Effekt. Hast Du einen Tipp, wo ich die Anweisungen wie einbinden kann?

Danke
Opa

[toms]

Delphi-Quellcode:

//...
ResultEdit.SetFocus; 
ResultEdit.SelStart := FoundAt; 
ResultEdit.SelLength := Length(FindDialog1.FindText); 
richedit1.perform( EM_SCROLLCARET, 0, 0 );
//...

[Opa Knack]

Hallo Toms,

Danke für den schnellen Tipp. Ich habe jetzt auch den Fehler gefunden: Im RichEdit hatte ich HideSelection auf True stehen.

Danke
Opa