How to search text in Richmemo

[Tommi]

Hello everyone,
this is my code:

Code: [Select]

  richmemo1.SetFocus;
  if richmemo1.Search(treeview1.Selected.Text,0,length(richmemo1.Text),[soMatchCase,soWholeWord],testo,testoLen) then
  begin
      richmemo1.SelStart := testo;
      richmemo1.SelLength := testoLen;
  end

It works, but the problem is that the selected result is always the last row of the Richmemo control. I'd like that highlighted text wold be positioned in the center.

How colud I do ?

Thank you

[CM630]

Maybe move the caret to the beginning of the selection, then scroll a few lines down (in this example 8 ) and then restore the selection.

Code: Pascal  [Select][+][-]

1.   RichMemo1.SelStart := testo;
2.   RichMemo1.CaretPos := point(0,RichMemo1.CaretPos.Y+8);
3.   RichMemo1.SelStart := testo;
4.   RichMemo1.SelLength := testolen;