Listbox Select Farbe

[janjan]

*selbermeld*

So klappt es:

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListbox) do 
  begin
    if odSelected in State then
    Canvas.Brush.Color := $00C08000;
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left+5, Rect.Top, Items[Index]);
    if (odFocused in state) then
    DrawFocusRect(canvas.Handle,rect);
  end;
end;

und hier noch eine nicht ganz perfekte Winamp-2-Standard-Skin-Imitation:

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListbox) do
  begin
    Canvas.Brush.Color := clBlack;
    if odSelected in State then
      Canvas.Brush.Color := clBlue;;
    Canvas.FillRect(Rect);
    Canvas.Font.Color:=clLime;
    Canvas.TextOut(Rect.Left+5, Rect.Top, Items[Index]);
    if (odFocused in state) then
      DrawFocusRect(canvas.Handle,rect);
  end;  // with
end;  // procedure