Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Получение ширины текста в Memo [D5, Win2k]

Jano © (2002-01-10 02:12:00)
Как получить размер (в пикселях) текста введенного
в компонент Memo с учетом межстрочных интервалов?

MBo (2002-01-14 14:11:00) [1]
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1010833133&n=3

Jano (2002-01-11 22:04:00) [2]
Немного подправив все заработало.

procedure TForm1.Button2Click(Sender: TObject);
var
R, L, H: LongInt;
begin
L := Length(Memo1.Lines.Text);
while (L > 0) and (Memo1.Lines.Text[L] = #13)
or (Memo1.Lines.Text[L] = #10) do Dec(L);
R := Memo1.Perform(Messages.EM_POSFROMCHAR, L, 0);
if R >= 0 then begin
H := (HiWord(R) div (Memo1.Lines.Count - 1)) * Memo1.Lines.Count;
Label1.Caption := IntToStr(H);
end;
end;

А нет ли менее навороченного метода?

MBo (2002-01-11 15:28:00) [3]
и правда. пока не разбирался.
вот еще вариант
procedure TForm1.Button2Click(Sender: TObject);
var
r,l,h: LongInt;
begin
l:=length(memo1.Lines.text);
while (l>0) and (memo1.lines.text[l]=#13) or
(memo1.lines.text[l]=#10) do dec(l);
r := memo1.Perform(messages.EM_POSFROMCHAR,l,0);
if r >= 0 then begin
h:=hiWord(r)+abs(memo1.Font.Height);
label1.caption := IntToStr(h);
end;
end;

Jano (2002-01-10 18:49:00) [4]
TTM.tmHeight (да и все осталное) остается постоянным
и не меняется при изменении шрифта в Memo. Как исправить?

MBo (2002-01-10 08:04:00) [5]
procedure TForm1.Button3Click(Sender: TObject);
var
TTM:TTextMetric;
begin
GetTextMetrics(GetDC(Memo1.Handle),TTM);
label1.caption:=inttostr(Memo1.Lines.Count*(TTM.tmHeight+TTM.tmExternalLeading));
end;

Jano (2002-01-10 02:16:00) [6]
Получение не ширины текста, а его высоты.
Сори...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »