Положение ScrollBar'a в TRichView

[NexoLarus]

На форме лежит компонент TRichView. Нужно реализовать автоскролл, который активируется, когда пользователь опускает вертикальный scrollbar этого компонента в самый конец. Пробовал получить общую длину scrollbar'a и по событию проверить, находится ли он на позиции max:

var
   SInf:TScrollInfo;
begin
   Sinf.cbSize:= SizeOf(ScrollInfo);
   Sinf.fMask:=SIF_TRACKPOS + SIF_RANGE;
   GetScrollInfo(RichView.Handle, SB_VERT, Sinf);
   if Sinf.nTrackPos = Sinf.nMax then
      //тут включаем автоскролл
end;

Проблема в том, что Sinf.nMax не соответствует положению scrollbar'a, находящегося в самом низу.
Экспериментальным путем выяснил, что каждое добавление строки увеличивает nMax на 1 или на 2 (чередуются, но не всегда). Когда строк становится больше, чем размеры RichView, nTrackPos увеличивается точно так же. Но не факт, что так же будет происходить при другом расширении экрана, размере шрифта, размере компонента и т.д. Может есть какой-то простой способ определить, что scrollbar находится в самом конце?

[cotseec]

MSDN говорит ITextServices::TxGetVScroll method

...
plMax
Type: LONG*
The maximum scroll position.
plPos
Type: LONG*
The current scroll position.
...

хейдер для Text Object Model (TOM)
стоит попробовать, о результатах отпишитесь - интересно

[NexoLarus]

Если я правильно понимаю, ITextServices позволяет создать "Windowless Rich Edit", т.е с его помощью можно реализовать функционал RichEdit без использования оного. А как его можно привязать к стороннему компоненту TRichView?

[NexoLarus]

Все оказалось значительно проще =)

var
   Sinf:TScrollInfo;
begin
   Sinf.cbSize:= SizeOf(ScrollInfo);
   Sinf.fMask:= SIF_POS + SIF_RANGE + SIF_PAGE;
   GetScrollInfo(RichView.Handle, SB_VERT, Sinf);
   if Sinf.nPos+1 = Sinf.nMax - Sinf.nPage  then
      AutoScroll:=true
   else
      AutoScroll:=false;
end;

The SetScrollInfo function performs range checking on the values specified by the nPage and nPos members of the SCROLLINFO structure. The nPage member must specify a value from 0 to nMax - nMin +1. The nPos member must specify a value between nMin and nMax - max( nPage– 1, 0). If either value is beyond its range, the function sets it to a value that is just within the range.