Перейти к содержанию
Fire Monkey от А до Я
  • 0

Вычисление высоты текста в TText при WordWrap = true


namxai

Вопрос

Всем привет.
Реализую поведение TListBox, при котором на OnItemClick, высота Item-а увеличивается и становится виден TText (делаем Visible:=true).

 

Анимация для наглядности:

post-105-0-09008400-1406041356.gif).

 

Реализуется так:

  Detail := Item.Children.Items[1];
  (Detail as TText).Visible := true;
  ItemAni := TFloatAnimation.Create(Item);
  ItemAni.Parent := Item;
  ItemAni.StartValue := 50;
  ItemAni.StopValue := 150;
  ItemAni.PropertyName := 'Height';
  ItemAni.Start;
  ItemAni.OnFinish := FreeItemAni;

Вопрос такой. Как мне узнать сколько места займет разбитый автоматом на строки текст в TText, чтобы подстраивать высоту Item под размер текста(он получается от 1 до 7-8 строк). Как узнать на сколько подстрок разбивает TText содержимое?

 

Сильно не пинайте, я дизайнер, а не программист.

Ссылка на комментарий

Рекомендуемые сообщения

  • 0
  • Администраторы

Добрый день,

 

Посмотрите на тему: Автоматический переход на вторую строку TLabel

Там рассказывается, как вычислить высоту текста.

Ссылка на комментарий
Гость
Эта тема закрыта для публикации ответов.
×
×
  • Создать...