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

Вниз

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

← →
MBo   (2002-01-10 08:04) [2]

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;

---

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

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

Наверх

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