КАк прокрутить RichEdit на выделенную облась
TStas © (2005-06-23 00:26:00)
Как заставить RichEdit, в который загружен большой текст
прокрутиться на выделение? Сам он почему-то не прокручивается
begin...end (2005-06-23 11:58:00) [1]
Да, на XP сообщение EM_SCROLLCARET, которое посылается
RichEdit'у при изменении свойства SelLength, почему-то ни на что не
влияет.
Поэтому могу предложить только такой тупой способ:
1. Получить номер строки, в которой находится выделенный
участок:
N1 := SendMessage(RE.Handle, EM_LINEFROMCHAR, -1, 0).
2. Получить номер верхней видимой строки:
N2 := SendMessage(RE.Handle, EM_GETFIRSTVISIBLELINE, 0,
0).
3. Прокрутить содержимое на
N2 - N1 - 1строк:
SendMessage(RE.Handle, EM_LINESCROLL, 0, N1 - N2 -
1).
Наверх 
ЧАТ |
Орешник |
|
