VPF::Определение положения полосы прокрутки в TRichEdit

ЖанКефир

Дата 14.10.2006, 23:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 29.6.2005
Где: Москва

Репутация: нет
Всего: нет

Подскажите, как определить положение полосы прокрутки в TRichEdit, чтобы можно было его запомнить и вернуться потом в то же место.

Fedia

Дата 16.10.2006, 01:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

Репутация: 8
Всего: 13

Функции GetScrollPos (получить текущее положение скроллбара) и SetScrollPos (установить положение скроллбара). Но, к сожалению, функция SetScrollPos для TRichEdit перемещает только полосу прокрутки и не затрагивает сам текст. Поэтому могу предложить вариант с построчной прокруткой:
1. Запоминаем текущее положение:

Код


var
  Pos: Integer;
  delta: Single;

//...

procedure TForm1.Button1Click(Sender: TObject);
var
  Min, Max: integer;
begin
  Pos:=GetScrollPos(RichEdit1.Handle, SB_VERT);
  GetScrollRange(RichEdit1.Handle, SB_VERT, Min, Max);
  delta:=(Max - Min)/RichEdit1.Lines.Count;
end;

2. Переходим на запомненную позицию:

Код


var
  p, i, n: Integer;
begin
  p:=GetScrollPos(RichEdit1.Handle, SB_VERT);
  if p<Pos then
  begin
    n:=Ceil((Pos-p)/delta);
    for i:=1 to n do
    PostMessage(RichEdit1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
  end else
  begin
    n:=Ceil((p-Pos)/delta);
    for i:=1 to n do
    PostMessage(RichEdit1.Handle, WM_VSCROLL, SB_LINEUP, 0);
  end;
end;

--------------------

Накануне решающей битвы
Я иду, и надеждою зыбкой
Озаряется эта дорога,
Я мечтаю увидеть улыбку
На лице победившего Бога…

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »