Полная высота TLabel

← →
Цукор5 (2007-02-22 16:35) [0]

Есть некоторый контрол в нем расположен TLabel(причем Align=alClient). Как получить ПОЛНУЮ высоту TLabel"а, а не видимую ???
Т.е. Label1.Height дает только видимую часть высоты.

← →
Суслик © (2007-02-22 16:39) [1]

Что ты подразумевашье под полной?
Наверно речь о том, что ты хочешь автоопределить высоту?

Тогда ставь у label autosize = true, устанавливай текст, потому бери высоту.

ЗЫ Есно label не должен быть align = alClient.

← →
Цукор5 (2007-02-22 16:45) [2]

>Наверно речь о том, что ты хочешь автоопределить высоту?
Не.
У меня что-то типа :
в цикле Label1.Caption:=Label1.Caption+"MySuperLine"+sLineBreak

Вот...и нужна полная высота.

← →
Суслик © (2007-02-22 16:48) [3]

в общем я тебе сказал все уже

а! сделай как я тебе сказал, но поставть wordwrap = true

← →
RASkov (2007-02-22 16:52) [4]

> [2] Цукор5 (22.02.07 16:45)

Более подробно можно, что нужно...
Если ты имеешь ввиду, тот факт, что строк получается много и некоторые уходят за граници видимой части Label и тебе необходимо знать суммарную их высоту, то так:
Nh:=Label1.Font.Height*<кол-во строк>;

← →
Суслик © (2007-02-22 16:57) [5]

ну это не факт - в общем случае ты не знаешь, как происходит прорисовка.

надежней [3]

← →
Цукор5 (2007-02-22 17:02) [6]

>RASkov (22.02.07 16:52) [4]
А если я не знаю кол-во строк. Что тогда ???

Более детально...
Есть TScrollBox. В нем TLabel(c Align=alClient). Далее я наполняю TLabel некоторым количеством строк.
А далее мне нужно в TScrollBox установить скролбар, дабы весь текст читать. Вот и нужно мне задать
ScrollBox1.VertScrollBar.Range:=полная высота TLabel

← →
Суслик © (2007-02-22 17:44) [7]

может тебе tscrollbox воспользоваться?

чем тебе tmemo не подходит?

← →
Цукор5 (2007-02-22 19:22) [8]

>может тебе tscrollbox воспользоваться?
Вы внимательно читали [6] ???

ладно, разбирайся сам - я тебе все сказал как можно сделать.

убери align = alClient и используй autosize = true.
все

← →
RASkov (2007-02-22 20:32) [11]

> Есть TScrollBox. В нем TLabel(c Align=alClient).

TLabel брось на TScrollBox, поставь Align:=alTop; AutoSize=True и например Alignment:=taCenter
далее в цикле Label1.Caption:=Label1.Caption+"MySuperLine"+sLineBreak

> А далее мне нужно в TScrollBox установить скролбар, дабы
> весь текст читать

У ScrollBox"а AutoScroll=True и он сам выставит прокрутку.

Полная высота TLabel Найти похожие ветки