Автоматическое растягивание (width) панели StatusBar'a

[newprog12]

Есть StatusBar
В нем выделены три панели
panel[0]
panel[1]
panel[3]

В них отображается текст (тип string), но длина текста каждый раз разная.

Задача : необходимо чтобы panel[0] и panel[1] автоматический подстраивали свою ширину (width) по размер передаваемого текста.

Пожалуйста, помогите.

[ОДИНОЧЕСТВО В СЕТИ]

Вот: через Ж конечно! но работает

procedure SetText(SB : TStatusBar; I : Integer;
    const Text: String);
var l:tlabel;
begin
l:=tlabel.Create(self);
l.AutoSize:=true;
l.Font.Assign( SB.Font);
l.Caption:=Text+'     ';
sb.Panels[i].Width:=l.Width;
sb.Panels[i].Text:=l.Caption;
l.Free;
end;

[maxionans]

А еще можно вот так:

procedure SetPanelText(AStatusBar : TStatusBar; APanelIndex : Integer;
    const AText: String);
var
  TmpStr : String;
begin
  Assert( Assigned( AStatusBar ) );
  Assert( ( APanelIndex >= 0 ) and ( APanelIndex < AStatusBar.Panels.Count ) );

  TmpStr := StringReplace( AText, ' ', '_', [ rfReplaceAll ] );
  if TmpStr = AText then TmpStr := TmpStr + '__';

  AStatusBar.Panels[ APanelIndex ].Width := AStatusBar.Canvas.TextWidth( TmpStr );
  AStatusBar.Panels[ APanelIndex ].Text := AText;
end;

Использовать таким образом:
SetPanelText( StatusBar1, 0, '123abcABC' );
SetPanelText( StatusBar1, 1, 'Loooooooooooooooooong teeeeeeeeeeeeeeeeeeeeeext' );

[Kotofff]

Действительно через Ж !!!!
А вот так ? :

    StatusBar1.Panels[0].Width := StatusBar1.Canvas.TextWidth(Edit1.Text) + 5; // + небольшой отступ
    StatusBar1.Panels[0].Text := Edit1.Text;

[maxionans]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

l.Font.Name:=statusbar1.Font.Name;
l.Font.Size:=statusbar1.Font.Size;

Вместо этого обычно пишется что-то вроде
L.Font.Assign( StatusBar1.Font );

[maxionans]

Сообщение от Kotofff

    StatusBar1.Panels[0].Width := StatusBar1.Canvas.TextWidth(Edit1.Text) + 5; // + небольшой отступ

Этот небольшой отступ не спасет при длинных строках - панель "съест" конец строки

[ОДИНОЧЕСТВО В СЕТИ]

Наругали
2maxionans
У меня кода меньше по сравнению с вашим постом №3
2Kotoff
Главное что работает
А через ж не через ж - не суть
Вся Винда так работает!

[Kotofff]

ОДИНОЧЕСТВО В СЕТИ, прости не хотел
maxionans, ну так уважаемые программисты и им сочувствующие, мы предложили варианты - дальше вперед !!!
У формы и контролов масса свойств на которые можно опираться для достижения нужного эффекта, можно использовать сторонние компоненты которые. например, делают троеточие если строка типа не "лезет" в панель ... и т.д.

[maxionans]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

2maxionans
У меня кода меньше по сравнению с вашим постом №3

Угу, меньше. А если нужно изменить текст для трех панелей? А для пяти? А для N?

[maxionans]

Сообщение от Kotofff

мы предложили варианты - дальше вперед !!!

Ну так следующим вопросом от автора будет "как сделать так, чтобы панель не съедала текст при длинных строках"