Разное
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
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;
