Hallo,
Soweit ich weiß gehts über den Canvas von der ListBox.
Den Style von der Listbox musst du auf lbOwnerDrawFixed stellen.
Un im OnDrawItem zeichnest du dann das Item selbst:
Delphi-Quellcode:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
TopDif: Integer; // Gleicht die Höhendifferenz aus
begin
with (Control as TListbox) do begin
Canvas.Brush.Color := clRed; //Hintergrundfarbe
Canvas.Font.Color := clYellow; //Schriftfarbe
TopDif := (ItemHeight div 2) - (Canvas.TextHeight(#32) div 2);
Canvas.TextRect(Rect, Rect.Left, Rect.Top + TopDif, Items[Index]);
end;
end;
grüße, daniel