Поиск сообщества
Показаны результаты для тегов 'TStyledSetting'.
Найдено: 1 результат
-
Всем привет. Когда добавляю в 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; Но длинный текст не переносится на новую строку, и "уходит в глубь" формы. Выделенный на скрине Итем - я добавил в дизайнере. А вот второй - с помошью вышеописанного кода. Вот собственно необходимо добавить перенос длинного текста для Итемов, которые добавляются динамически. Спасибо.