RichEdit поддерживает страничные операции?

[dimofey]

Задача: пролистывать текст в RichEdit постранично. То есть, перейти сразу на ту строку, которая является первой, неуместившейся в видимой части RichEdit. Количество видимых строк заранее неизвестно, ибо размер компонента будет динамически изменяться.

Заранее благодарен.

[Neeter]

Вот, попробуйте:

procedure TForm1.bt_2Click(Sender: TObject);
var
 line, index: integer;
begin
 index := RichEdit1.CaretPos.Y;
 line := LinesVisible(RichEdit1);
 RichEdit1.SelStart := RichEdit1.Perform(EM_LINEINDEX, index + line * 2, 0);
 RichEdit1.Perform(EM_SCROLLCARET, 0, 0);
 RichEdit1.SetFocus;
 RichEdit1.SelStart := RichEdit1.Perform(EM_LINEINDEX, index + line, 0);
 RichEdit1.Perform(EM_SCROLLCARET, 0, 0);
 RichEdit1.SetFocus;
end;

Тут используется процедура LinesVisible (находит кол-во видимых строк), вот ее описание:

function LinesVisible(RichEdit: TRichEdit): integer;
var
  OldFont : HFont;
  Hand : THandle;
  TM : TTextMetric;
  Rect : TRect;
  tempint : integer;
begin
  Hand := GetDC(RichEdit.Handle);
  try
    OldFont := SelectObject(Hand, RichEdit.Font.Handle);
    try
      GetTextMetrics(Hand, TM);
      RichEdit.Perform(EM_GETRECT, 0, longint(@Rect));
      tempint := (Rect.Bottom - Rect.Top) div
      (TM.tmHeight + TM.tmExternalLeading);
    finally
      SelectObject(Hand, OldFont);
    end;
  finally
    ReleaseDC(RichEdit.Handle, Hand);
  end;
  Result := tempint;
end;

Необходимо, чтобы позиция каретки по Y изначально была равна нулю, в onCreate пропишите:

procedure TForm1.FormCreate(Sender: TObject);
begin
 RichEdit1.SelStart := RichEdit1.Perform(EM_LINEINDEX, 0, 0);
end;

[dimofey]

Огромная Вам благодарность. Реальное ршение. Все заработало сходу, без единой ошибки.
Позвольте набраться наглости и попросить еще кое о чем?
1. Как обнаружить конец текста при листании?
2. Как оптимально подсчитать количество слов/строк/страниц, загруженных в RichEdit?

Спасибо еще раз.

[Neeter]

Я изменил кардинально работу данной программы, теперь стало намного удобнее обращаться к страницам, за счет динамического массива типа запись, в котором находится текст каждой страницы. На первый вопрос теперь и не надо будет отвечать. На второй вопрос ответ дан в исходнике.
Здесь описывать код не рационально, посмотрите прикрепеленный исходник, написан в Delphi 2009