Code:

function LinesVisible(Memo: TMemo): integer;

   Var

     OldFont : HFont;

     Hand : THandle;

     TM : TTextMetric;

     Rect  : TRect;

     tempint : integer;

   begin

     Hand := GetDC(Memo.Handle);

     try

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

       try

         GetTextMetrics(Hand, TM);

         Memo.Perform(EM_GETRECT, 0, longint(@Rect));

         tempint := (Rect.Bottom - Rect.Top) div

            (TM.tmHeight + TM.tmExternalLeading);

       finally

         SelectObject(Hand, OldFont);

       end;

     finally

       ReleaseDC(Memo.Handle, Hand);

     end;

     Result := tempint;

   end;

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить