Irgendwie passt das Erscheinungsbild der Standardlistbox nicht zu meinem Design. Daher färbte ich kurzer Hand das Teil wie folgt ein:
Delphi-Quellcode:
procedure TTracklist.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListbox) do
begin
Canvas.Font.Color := clWhite; //Schriftfarbe
if (odSelected in State) then //Focus
begin
Canvas.Brush.Color := clRed;
end;
Canvas.FillRect(rect);
DrawText(Canvas.Handle, Pchar(Items[Index]), Length(Items[Index]), Rect,
DT_SINGLELINE or DT_VCENTER);
end;
end;
Alles gut und schön, nur wie bekomme ich den hässlichen Balken mit Arrow etc. eingefärbt?