Видимые строки TMemo

[Utkin]

Как узнать номер первой и последней отображаемой строки (имеется ввиду индекс Lines) в Memo?

[Аватар]

Первая

  Label1.Caption:=IntToStr(Memo1.Perform(EM_GETFIRSTVISIBLELINE, 0, 0));

[Utkin]

function LinesVisible(): integer;
Var

     OldFont : HFont;
     Hand : THandle;
     TM : TTextMetric;
     Rect  : TRect;
     tempint : integer;

   begin

     Hand := GetDC(Handle);

     try
       OldFont := SelectObject(Hand, Font.Handle);

       try
         GetTextMetrics(Hand, TM);
         Perform(EM_GETRECT, 0, longint(@Rect));
         tempint := (Rect.Bottom - Rect.Top) div
            (TM.tmHeight + TM.tmExternalLeading);

       finally
         SelectObject(Hand, OldFont);

       end;

     finally
       ReleaseDC(Handle, Hand);

     end;

     Result := tempint;
   end;

Сдернул код с DRKB , выдает количество видимых строк. Тему можно закрывать.