[Йогурт]

Здравствуйте! Подскажите пожалуйста как сделать чтобы забитый текст в компонент Listbox был по центру?
Например

ListBox1.Items.Add('"Клиент без регистрации"');

Как сделать чтобы надпись "Клиент без регистрации" была по центру?

Заранее спасибо! С меня +1!

Добавлено через 43 минуты
Эммм, ну чего нет знатоков по такому компоненту?

Добавлено через 1 час 25 минут
Мдаа, наверно вопрос очень сложный (((

[lmikle]

Да нет, не сложный. Просто, видимо, поздно уже.
Делается это проще всего через ручную отрисовку итемов.
Тебе потребуется метод канвы TextWidth для расчета точки начала отрисовки.

[Kapitoshka438]

Код:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  S: string;
begin
  with TListBox(Control), Canvas do
  begin
    S := Items[Index];
    FillRect(Rect);
    SetBkMode(Handle, TRANSPARENT);
    SetTextAlign(Handle, TA_CENTER);
    TextOut(ClientWidth div 2, Rect.Top, S);
  end;
end;

И еще установи у ListBox'а свойство свойство Style = lbOwnerDrawFixed.

[Йогурт]

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

Код:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  S: string;
begin
  with TListBox(Control), Canvas do
  begin
    S := Items[Index];
    FillRect(Rect);
    SetBkMode(Handle, TRANSPARENT);
    SetTextAlign(Handle, TA_CENTER);
    TextOut(ClientWidth div 2, Rect.Top, S);
  end;
end;

И еще установи у ListBox'а свойство свойство Style = lbOwnerDrawFixed.

Спасибо огромное! Все получилось!

[Kapitoshka438]

А где обещаный +1?