Centreret tekst i Listbox

Sæt style til lbOwnerDrawVariable eller lbOwnerDrawFixed og kør følgende:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  S: String;
  I: Integer;
begin
  S := ListBox1.Items.Strings[Index];
  I := (ListBox1.ClientWidth - Canvas.TextWidth(S)) div 2;
  if I < 0 then
    I := 0;
  ListBox1.Canvas.TextOut(I, Rect.Top, S);
end;

Så skal den bare paintes lidt bedre! ;)

Mange tak for det...

Var det nok?

Sorry...
ja det var det...:)
tak for det