Text Suchen... Text Finden dann Automatisch Scrollbar

[Rave]

Hi,

Habe ein Editor geschrieben mit RichEdit und FindDialog da habe ich ein folgenes Problem. Wen ich auf Suchen gehe und ein Text eingebe findet er auch es aber er Scrollt nicht automatisch dahin.

Im FindDialog1Find ist folgender Code

int FoundAt, StartPos, ToEnd;
  // Suchbeginn nach der aktuellen Markierung
  // (falls vorhanden), 
  // andernfalls am Textanfang starten
  if (RichEdit1->SelLength)
    StartPos = RichEdit1->SelStart + RichEdit1->SelLength;
  else
    StartPos = 0;

  // ToEnd ist die Länge von StartPos
  // bis zum Ende des Textes im RTF-Eingabefeld

  ToEnd = RichEdit1->Text.Length() - StartPos;

  FoundAt = RichEdit1->FindText(FindDialog1->FindText, StartPos, ToEnd, TSearchTypes()<< stMatchCase);
  if (FoundAt != -1)
  {
    RichEdit1->SetFocus();
    RichEdit1->SelStart = FoundAt;
    RichEdit1->SelLength = FindDialog1->FindText.Length();
  }

Ich benutzte den Borland Builder 6.0. Ich hoffe das mir einer Helfen kann habe schon im INet und in der IDE rumgesucht und nix gefunden.

Danke dann im vorraus.

[Christian Marquardt]

http://www.marquardtnet.info/cecke/q...quicky_49.html