RichEdit

← →
Fast (2004-01-09 14:59) [0]

Уважаемые мастера! Как можно узнать Lines[i] первой видимой строки. Заранее благодарен.

← →
[lamer]Barmaglot (2004-01-09 15:10) [1]

EM_GETFIRSTVISIBLELINE?

← →
Fast (2004-01-09 15:48) [2]

Извините, забыл спросить: а последнюю видимую или их кол-во или межстрочный интервал?

← →
[lamer]Barmaglot (2004-01-09 15:49) [3]

EM_GETLINECOUNT?

← →
Fast (2004-01-09 16:24) [4]

Если я правильно понял EM_GETLINECOUNT - всего строк? Нужна последняя видимая или их кол-во.

← →
[lamer]Barmaglot (2004-01-09 16:47) [5]

EM_GETRECT?

← →
Fast (2004-01-09 17:57) [6]

Номер последней видимой Lines для меня здесь не просматривается.
Все равно приходится делать цикл по Lines с подсчетом Height от TTextMetric?

← →
olookin (2004-01-09 18:02) [7]

EM_GETFIRSTVISIBLELINE - An application sends an EM_GETFIRSTVISIBLELINE message to determine the uppermost visible line in an edit control.

← →
Fast (2004-01-09 18:04) [8]

Если не трудно, своими словами ...

← →
olookin (2004-01-09 18:09) [9]

EM_GETFIRSTVISIBLELINE позволяет получить номер первой верхней видимой линии... А вот номер последней видимой видимо придется рассчитывать исходя из высоты ричедита и высоты строки...

← →
Fast (2004-01-09 18:58) [10]

К сожалению возник очередной вопрос. Подсчитываю высоту строк РичЕдит
procedure TForm1.Button1Click(Sender: TObject);
var ii,j,h1,h2:integer;
R : TRect;
TxMetric : TTextMetric;
begin
with RichEdit1 do begin
GetTextMetrics(Handle, TxMetric);
SelStart := 200;
SelLength := 220;
SelAttributes.Height := strtoint(edit1.text);
h1 := 0; h2 := 0;
for j:= 0 to 8 do begin
h1 := Form1.Canvas.TextHeight(Lines.Strings[j]);
h2 := TxMetric.tmHeight;
showmessage(inttostr(j)+ " h1 = " + inttostr(h1)+ " h2 = " + inttostr(h2));
end;
end;
end;

В результате для всех строк (последние с другим шрифтом) имеем
h1=13, h2=5289. В каких единицах h2 и почему все одинаковые?

RichEdit Найти похожие ветки