Как вычислить высоту ТЕКСТА в TMemo ?

← →
Альф © (2003-04-24 10:53) [0]

Что-бы не устанавливать ScrollBars = ssVertical а подогнать высоту Memo под высоту текста ???
Для любителей поприкалываться - из текста удаляются CR+LF и MaxLength = 127 :)

← →
Song © (2003-04-24 11:02) [1]

(TCanvas.TextHeight(по строке)+межстрочный интервал)*кол-во нужных строк

← →
Альф © (2003-04-24 11:05) [2]

2Song © (24.04.03 11:02)
Спасибо. Ага - математика за 3-й класс :)))
Но в этом и проблема - не могу найти где определяются все интнрвалы и отступы :(

← →
Модер (2003-04-24 11:10) [3]

GetTextMetrics()

← →
NAlexey © (2003-04-24 11:15) [4]

function GetTextHi: integer; var Metrics : TTextMetric; begin GetTextMetrics(Canvas.Handle, Metrics); Result := Metrics.tmHeight + Metrics.tmInternalLeading; end;

Подскажите еще - где в TMemo свойство Сanvas ???

>Подскажите еще - где в TMemo свойство Сanvas ???
Да создай любой наверное, присвой фонт. И считай наздоровье.

Как вычислить высоту ТЕКСТА в TMemo ? Найти похожие ветки