Markerings farve i listbox

Sæt listboxen's style property til lbOwnerDrawFixed og håndter tegning af listbox items selv i OnDrawItem event. F.eks kunne det se sådan her ud.

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
    with (Control as TListBox).Canvas do  { Tegn på listboxens canvas}
    begin
    // Er tingen valgt ? Se delphi hjælp for andre stadier

    if (odSelected in State) then
    begin
      // skift baggrundsfarve og font farve

      Brush.Color:=clRed;
      Font.Color:=clBlack;
    end
    else
    begin
      // skift baggrundsfarve og font farve

      Brush.Color:=(Control as TListBox).Color;
      Font.Color:=clBlue;
    end;

      FillRect(Rect); // Tøm området
      TextOut(Rect.Left + 2, Rect.Top, (Control as TListBox).Items[Index]) // Vis teksten
    end;
end;

vil du ikke lave det i et project og så ligge det op?

takker...lukker