Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Перегенерировать все индексы Dbase
   Категория: Базы данных
  Undo в memo
   Категория: Компоненты
  Как поместить графический элемент в ListBox
   Категория: Компоненты
  Быстрое копирование файлов
   Категория: Файловая система
  Объект экрана — Screen
   Категория: Компоненты
  BDE. Создание алиасов
   Категория: Базы данных
  Удалить пробелы в начале и конце
   Категория: Текст и строки
  Listbox - элементы вверх-вниз
   Категория: Компоненты

Delphi - База Знаний: Получить первую и последнюю видимую строку в TRichEdit

  << Вернуться к Содержанию  

//Первую
ns:=Rxrichedit1.Perform(EM_GETFIRSTVISIBLELINE, 0, 0); // первая видимая
//-------------------------
//Последнюю сложнее
uses
  {...,} RichEdit;
function RE_GetLastVisibleLine( RichEdit: TRichEdit ): integer;
const
  EM_EXLINEFROMCHAR = WM_USER + 54;
var
  r: TRect;
  i: integer;
begin
   RichEdit.Perform( EM_GETRECT, 0, Longint( @r ) );
   r.Left := r.Left + 1;
   r.Top  := r.Bottom - 2;
   i := RichEdit.Perform( EM_CHARFROMPOS, 0, Integer( @r.topleft ) );
   Result := RichEdit.Perform( EM_EXLINEFROMCHAR, 0, i );
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage( IntToStr( RE_GetLastVisibleLine( RichEdit1 ) ) );
end;
  << Вернуться к Содержанию