TMemo - количество видимых строк

← →
Эли (2003-12-19 12:49) [0]

Подскажите, пожалуйста, как определить количество строк, которые видны в TMemo.

← →
BSL (2003-12-19 12:57) [1]

ТMemo.Height/TMemo.Font.Height ?

← →
MBo (2003-12-19 13:03) [2]

С помощью EM_*** сообщений найти номера первой и последней видимых строк.

← →
Эли (2003-12-19 13:14) [3]

Спасибо, попробую.

← →
Эли (2003-12-19 13:24) [4]

var i,k,number:integer;
begin
i:=SendMessage(RichEdit1.Handle, EM_GETFIRSTVISIBLELINE, 0, 0);
k:=SendMessage(RichEdit1.Handle, EM_GET???????VISIBLELINE, 0, 0);
number:=k-i;
end;

И что там вместо вопросиков писать? last вместо first - не работает?
И где можно найти help по этим EM_*** сообщениям?

← →
MBo (2003-12-19 13:31) [5]

WinSDK Help (или просто F1 на EM_GETFIRSTVISIBLELINE)
LastLine - такого нет, придется CharFromPos+LineFromChar.

У тебя Memo или Richedit все-таки?

← →
Эли (2003-12-19 13:38) [6]

RichEdit

← →
Эли (2003-12-19 13:42) [7]

Трюк с F1 не работает. Потому и спрашиваю. У меня Delphi7.
А где найти WinSDK Help?

← →
gek (2003-12-19 13:55) [8]

> А где найти WinSDK Help?

"C:\Program Files\Common Files\Borland Shared\MSHelp\WIN32SDK.HLP"

← →
MBo (2003-12-19 14:07) [9]

В IDE жмем мышкой Help - Windows SDK

для RichEdit сообщения несколько отличаются по способу работы

function GetRichEditVisibleLinesCount(RE:TRichEdit):Integer;
var
p:tpoint;
begin
p:=point(2, RE.ClientHeight-2);
Result:=SendMessage(Re.Handle,EM_EXLINEFROMCHAR,0,
SendMessage(RE.Handle,EM_CHARFROMPOS,0,Integer(@p)))-
SendMessage(RE.Handle,EM_GETFIRSTVISIBLELINE,0,0);
end;

← →
Эли (2003-12-19 14:08) [10]

Спасибо - теперь дела пойдут повеселей.

TMemo - количество видимых строк Найти похожие ветки