if Length(Form4.Label18.Caption) > 100 //100 символов
then begin
Form4.Label18.WordWrap := true;
Form4.Label18.Height := 80;
Form4.Label18.Width := 800;
end
else Form4.Label18.WordWrap := false;//меньше 100 символов
Form4.Label18.Caption := form4.ListBox3.Items[1]; //загружаем текст
Label.wordwarp
Доброго времени суток товарищи!
столкнулся с такой вот проблеммой, дело в том что программа получает текст гдето 50-350 символов в листбоксе одой строчкой
далее определяёт если до 100 то тескт в лабеле должен быть в одну строку
если нет то в несколько..
фигня в том что в несколько он почему то не растягивает а обрывает, или же просто продолжает до конца в одну строку..
помогите срочняк надо!
столкнулся с такой вот проблеммой, дело в том что программа получает текст гдето 50-350 символов в листбоксе одой строчкой
далее определяёт если до 100 то тескт в лабеле должен быть в одну строку
если нет то в несколько..
фигня в том что в несколько он почему то не растягивает а обрывает, или же просто продолжает до конца в одну строку..
помогите срочняк надо!
Код:
Если я правильно понял то это будет выглядеть так:
Код:
if Length(form4.ListBox3.Items[1]) > 100 //100 символов
then begin
Form4.Label18.WordWrap := true;
Form4.Label18.Height := 80;
Form4.Label18.Width := 800;
Form4.Label18.Caption := form4.ListBox3.Items[1]
end
else Form4.Label18.WordWrap := false;//меньше 100 символов
Form4.Label18.Caption := form4.ListBox3.Items[1]; //загружаем текст
then begin
Form4.Label18.WordWrap := true;
Form4.Label18.Height := 80;
Form4.Label18.Width := 800;
Form4.Label18.Caption := form4.ListBox3.Items[1]
end
else Form4.Label18.WordWrap := false;//меньше 100 символов
Form4.Label18.Caption := form4.ListBox3.Items[1]; //загружаем текст
Цитата: ВуД™
Если я правильно понял то это будет выглядеть так:
Код:
if Length(form4.ListBox3.Items[1]) > 100 //100 символов
then begin
Form4.Label18.WordWrap := true;
Form4.Label18.Height := 80;
Form4.Label18.Width := 800;
Form4.Label18.Caption := form4.ListBox3.Items[1]
end
else Form4.Label18.WordWrap := false;//меньше 100 символов
Form4.Label18.Caption := form4.ListBox3.Items[1]; //загружаем текст
then begin
Form4.Label18.WordWrap := true;
Form4.Label18.Height := 80;
Form4.Label18.Width := 800;
Form4.Label18.Caption := form4.ListBox3.Items[1]
end
else Form4.Label18.WordWrap := false;//меньше 100 символов
Form4.Label18.Caption := form4.ListBox3.Items[1]; //загружаем текст
нет, с загрузкой проблем нет, дело в том что когда текст попадает в лабел из листбокса он дёт в одну строку а я хотел бы в несколько строк так как он не умечается в нужные формы.
Кто может коможет, или есть альтернатива, ребят надо!
Попробуй уменьшать ширину, увеличивать высоту.
Насколько я помню, а TLabel есть свойство Autosize, которое при значении true при смене Caption подгоняет размеры компонента под текст. Попробуй установить Autosize = false.
ребят, извините что с задержкой, вот нашёл самый актыальный способ, и наверняка один из самых рабочих. ТО что описывалось выше не сработало..!
Цитата:
Form4.Label18.Caption := Copy(form4.ListBox3.Items[1], 1,100);
Form4.Label18.Caption := Form4.Label20.Caption + Copy(form4.ListBox3.Items[1], 100,200);
Form4.Label18.Caption := Form4.Label20.Caption + Copy(form4.ListBox3.Items[1], 200,300);
Form4.Label18.Caption := Form4.Label20.Caption + Copy(form4.ListBox3.Items[1], 300,400);
Form4.Label18.Caption := Form4.Label20.Caption + Copy(form4.ListBox3.Items[1], 100,200);
Form4.Label18.Caption := Form4.Label20.Caption + Copy(form4.ListBox3.Items[1], 200,300);
Form4.Label18.Caption := Form4.Label20.Caption + Copy(form4.ListBox3.Items[1], 300,400);