TComboBox: Farbe des Markierrahmens ändern

[Gollum]

Hallo,

vielleicht mit der FrameRect-Methode des Canvas-Objekts.

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with TListBox(Control) do
  begin
    Canvas.TextRect(Rect, Rect.Left+1, Rect.Top, Items[Index]);
    if (odSelected in State) then
    begin
      Canvas.Pen.Color:=clRed;
      Canvas.FrameRect(Rect);
    end; // if
  end; // with
end;