Поиск сообщества
Показаны результаты для тегов 'WordWrap'.
Найдено: 3 результата
-
Всем привет. Реализую поведение TListBox, при котором на OnItemClick, высота Item-а увеличивается и становится виден TText (делаем Visible:=true). Анимация для наглядности: ). Реализуется так: 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 содержимое? Сильно не пинайте, я дизайнер, а не программист.
-
Как установить свойство WordWrap в ListBoxItem, когда итемы грузятся из базы через Live Binding? В цикле после открытия таблицы sqlite не прикольно, есть еще варианты? -
Всем привет. Когда добавляю в TListBox новый Item, и в дизайнере ставлю свойство WordWrap = True, то текст успешно переносится на новую строку. Но если добавлять динамически в TListBox новые Item - то текст не переносится. Добавляю так: procedure TFrame1.GenerateTestVis; var x: integer; Itm: TListBoxItem; begin ListBox1.Clear; ProgressBar1.Value := TestQA1.ItemIndex + 1; Label1.Text := TestQA1.ItemSelected.Quest; for x := 0 to TestQA1.ItemSelected.Count - 1 do begin Itm := TListBoxItem.Create(ListBox1); Itm.WordWrap := true; Itm.Text := TestQA1.ItemSelected.Answers[x].Answer; // Itm.WordWrap := true; ListBox1.AddObject(Itm); //Пользуясь случаем:Itm.Free потом ListBox сам сделает, да? end; end; Но длинный текст не переносится на новую строку, и "уходит в глубь" формы. Выделенный на скрине Итем - я добавил в дизайнере. А вот второй - с помошью вышеописанного кода. Вот собственно необходимо добавить перенос длинного текста для Итемов, которые добавляются динамически. Спасибо.
