Вывод текста на метки

[HellMercenariess]

Очередная попытка "Красиво Написать" текст посредством вывода на массив
динамически-создаваемых меток. Но так простенько тут не получится. Была идея заранее определить макс к-о символов которе можно вывести на одну метку и делить исходный текст по длине (Length) но вдруг на слово попаду, "порвав" его по частям ?

Исходник и шрифт "Burlak".

[Stilet]

Так а в чем проблема то?

[HellMercenariess]

Проблема дать на каждую метку столько текста сколько она покажет а не згамает.

В программе сейчас так: 1 линия Мемо = 1 метка, много текста невидно,
даже если отдать всю ширину экрана для метки, особенно-длинные строки
все-равно "за бортом" часть текста будет.
Если заранее определить сколько символов можно вывести и потом
давать линию на 2-3 метки боюсь розрыв на слове получить.

Да я понимаю что выбрал весьма трудный способ вывода текста, но эта задумка уже лет 5 периодически навещает меня, ведь уже почти получилось ! осталось только по ширине как то упорядочить.

[IliaIT]

а ты не пробовал у метки свойство wordWarp в True ставить? и вместо многих меток создать одну и в неё всё вносить.?

Добавь на панель label3, у неё wordWarp в True, и autoSize в True.

procedure TForm1.Button1Click(Sender: TObject);
 var I,YArea:integer;
begin
  button1.Enabled:=False;
  for i:=1 to memo1.Lines.Count-1 do
  begin
    Label3.Caption:=Label3.Caption+Memo1.Lines.Strings[i];
    Label3.Font:=Label1.Font;
    {LText[i]:=TLabel.Create(self);
    LText[i].Parent:=Panel2;
    LText[i].Name:='MyText'+IntToStr(i);
    LText[i].Font:=Label1.Font;
    LText[i].Caption:=Memo1.Lines.Strings[i];
    LText[i].Left:=15;
    LText[i].Width:=350;
    LText[i].Top:=YArea; }
    YArea:=YArea+38;
    ListBox1.Items.Add('Pos is'+IntToStr(YArea));
  end;
end;

[Alex Cones]

А обязательно лейблы юзать? Не проще поставить рич с бордером в ноне, цветом фона=цвет окружения и жирным шрифтом? (и еще онлиреад в труй)

[russian-stalker]

И Enabled в False чтобы текст не выделялся.

[IliaIT]

Есть ещё идея. так надо сохранить способ вывод и требуется разработать алгоритм вывода строки "так чтобы вмещалось", то делаем просто
1 берём желаемую строку
2 если она больше заданных символов или ширина метки после добавления в неё взятой строки больше "видимого" то бежим с конца строки и ищем пробелы, если влазит то к пункту 1.
3 проверяем на вмещаемость метки на экран после вставки строки без последнего слова.
4 запоминаем отрезанное и переходим к пункту 2.

вобщем вот так, код если надо выложу.