Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];

Вниз

Получение ширины текста в Memo   Найти похожие ветки 

← →
Jano   (2002-01-11 22:04) [5]

Немного подправив все заработало.

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;

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

---

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

Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c