| Цитата(Skiminok @ 9.5.2008, 18:17) | Здравствуйте. Есть такой вот вопрос. Лично мне он кажется ламерским донельзя, но выхода найти не могу...
Имеется Label. От него требуется следующее:
- фиксированная ширина
- перенос по словам
- изменение высоты в зависимости от текста
Пункт 1 банален.
Пункт 2 достигается только установкой AutoSize в false.
А вот что теперь делать с пунктом 3, если нельзя ресайзить автоматически... |
Проблемы начались с того, что вы посчитали пункт 1 банальным:)
Т.е. с ходу решили ставить AutoSize:=false; WordWrap:=true;
А ведь можно было бы немного подумать и тогда....
(На net не пишу, но в дельфе то же самое, так что сообразите, кому нужно).
| Код |
//Фиксируем ширину лейбла
Label1.Constraints.MaxWidth:=YourWidth;
Label1.Constraints.MinWidth:=YourWidth;
//А теперь автосайзим сколько угодно
Label1.AutoSize:=TRUE;
Label1.WordWrap:=true;
|
Ширина будет оставаться фиксированной (а куда ей деваться?), высота будет меняться при переносе по словам.
Более того, если сам лейбл автосайзить не можете (например, у него Align=alClient), а в рантайме хотите менять размеры его родителя (Parent), скажем, панели на которой он лежит, то нетрудно посчитать высоту текста с помощью невидимого лейбла(точнее, вообще безхозного лейбла, точнее лейбла-сироты (Parent=nil)):
| Код |
function TFrame1.CalcLblHeight(_lbl: TLabel): Integer;
begin
Result :=0;
if not Assigned(_lbl) then Exit;
fLbl.Font:=_lbl.Font;
fLbl.Constraints.MaxWidth:=_lbl.Width;
fLbl.Constraints.MinWidth:=_lbl.Width;
fLbl.Caption:=_Lbl.Caption;
Result:=fLbl.Height;
end;
|
Параметр _lbl - лейбл высоту текста которого хотите измерить, при существующей у него ширине и шрифте.
fLbl - экземпляр TLabel, который создается и уничтожается соответственно в конструкторе и деструкторе Вашей формы/фрейма/класса или при инизализации/финализации модуля:
| Код |
constructor TFrame1.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
//Parent остается nil - таким образом, высота даже теоретически не может быть ограничена размерами родителя (как будет в случае использования для измерения паразитного невидимого лейбла на форме )
if not Assigned(fLbl) then fLbl := TLabel.Create(nil);
fLbl.AutoSize:=true;
fLbl.WordWrap:=true;
end;
destructor TFrame1.Destroy;
begin
if Assigned(fLbl) then FreeAndNil(fLbl);
inherited Destroy;
end;
|
Ну и естественно, fLbl нужно объявить как TLabel. Скажем, в private секции TFrame1.
ПРЕДУПРЕЖДЕНИЕ: все отлично работает до тех пор, пока ширина слов текста меньше или равна ширине лейбла. Если она больше - поведение лейбла вообще странно-непонятное, разное, но палюбому неадекватное. Поэтому о переносе или разрыве слишком длинных слов нужно заботиться отдельно
|
)
Только я никогда не знаю размер текста, который будет отображаться на Label'e - он определяется в run-time. Да и контролы внизу не хотелось бы перекрывать...