Скачать: CL | DM;

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

← →
П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]

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

---

← →
panov ©   (2004-10-16 00:03) [4]

А что непонятно?
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 будет находиться нижняя граница области, необходимой для отображения текста целиком м переносами.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c