Высота текста с переносами

← →
П7 (2004-10-15 13:16) [0]

Уважаемые Мастера!
Имеется некая строка. Имеется некий компонент в котором она отображается (TMemo, TLabel и т.д.). Так вот, строка в высоту компонента без переносов не вписывается, но делая переносы нужно увеличить высоту компонента, чтобы строка была видна полностью? Как найти общую высоту текста с переносами, если известен его шрифт, размер и т.д.?

← →
panov © (2004-10-15 13:43) [1]

DrawText с параметрами
DT_CALCRECT+DT_WORDBREAK

← →
П7 (2004-10-15 16:15) [2]

DrawText - это что? Это куда пишется? Мне нужно само значение узнать... Как? ):

← →
П7 (2004-10-15 23:49) [3]

вопрос остаётся в силе! Мастера, неужели никто не знает? Подскажите, пожалуйста...

А что непонятно?
var
R: TRect;
MyStr: String;
begin
...
R.Top := 10;
R.Left := 10;
R.Right := 150;
MyStr := "Тестовая строка для проверки переносов";

DrawText(Сanvas.Handle,PChar(MyStr),Length(MyStr),R,DT_WORDBREAK+DT_CALCRECT);

После выполнения в R.Bottom будет находиться нижняя граница области, необходимой для отображения текста целиком м переносами.

Высота текста с переносами Найти похожие ветки