RichEdit. Центрировать выделенный текст по вертикали.

[victorixx]

Здрасьте всем!
Есть RichEdit. В нем большой текст. Есть массив подстрок этого текста, в котором сохранены сами подстроки и их позиция в тексте.
Задача: 1. Нажатием кнопки выделить очередную подстроку. 2. При этом необходимо, чтобы эта выделенная подстрока позиционировалась по середине (в смысле по вертикальной середине, расположение по горизонтали роли не играет) клиентской области RichEditа.
С первой задачей кое-как справился . А вот со второй че та...
Поможите, чем могёте, пжлста! А то уже голову сломал. Пасиба.

[Аватар]

Центрируется абзац целиком. См. свойство Paragraph.Alignment

[victorixx]

Сообщение от Аватар

Центрируется абзац целиком. См. свойство Paragraph.Alignment

Я не в том смысле что центрировать алайнмент. Может не так выразился... Мне надо, чтобы строка, в которой находится выделенная (SelStart, SelLength и всё такое) подстрока "встала" посередине клиентской области, то есть не вверху поля ввода и не внизу, а посерединке. Понятно?
Нажатием кнопки выделяется очередная подстрока. Пока эти подстроки находятся в начале текста - все нормально. Но как только они начинают сдвигаться за пределы видимой области вниз, то сам текст, соответственно, тоже сдвигается вверх. В принципе, мне это и нужно, но при сдвиге очередная выделенная подстрока находится у нижнего края (а то и вообще в правом нижнем углу) окна ввода, и пользователю неудобно читать контекст. Scrollby не подходит, так как он медленный и не в каждом случае нужен (несколько подстрок могут находиться и в самом начале текста, а ставить выполнение или невыполнение scrollby в зависимость от позиции подстроки в тексте невозможно, так как сам текст, его размер и размер шрифта могут изменяться). Вот... как то так.

[ZuBy]

прокрутить область нужно?

[victorixx]

собственно говоря, да, но предварительно нужно еще узнать, насколько ее нужно прокручивать

[Аватар]

Можно так примерно в середину. Фокус должен оставаться на RichEdit, иначе проблемы с GetCaretPos, поэтому и SpeedButton

procedure TForm1.SpeedButton1Click(Sender: TObject);
var xPoint: TPoint;
    xDelta,xTmp,xLine,wParam: Integer;
begin
  GetCaretPos(xPoint);
  xDelta:=(RichEdit1.ClientHeight div 2)-xPoint.Y;
  if xDelta<0 then begin xLine:=-1; wParam:=SB_LINEDOWN; end
              else begin xLine:=1;  wParam:=SB_LINEUP;   end;
  while xDelta<>0 do begin
    PostMessage(RichEdit1.Handle,WM_VSCROLL,wParam,0);
    Application.ProcessMessages;
    GetCaretPos(xPoint);
    xTmp:=(RichEdit1.ClientHeight div 2)-xPoint.Y;
    if (xTmp=xDelta) or (Sign(xTmp)<>Sign(xLine)) then xDelta:=0 else xDelta:=xTmp;
  end;
end;

[victorixx]

Блин! Не очень понял как именно, но факт - получилось. Спасибо огроменное!