Скачать: CL | DM;

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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c