TComboBox: Farbe des Markierrahmens ändern

[Helmi]

Hallo,

wie kann ich die Farbe des Markierrahmens einer ComboBox beim Fokus ändern?

[Bernhard Geyer]

Bei XE2 - Über ein angepasste Theme sollte das möglich sein.

[Helmi]

Zitat von Bernhard Geyer:

Bei XE2 - Über ein angepasste Theme sollte das möglich sein.

Ich vergaß zu erwähnen, dass ich keine Themes benutzen kann (wegen der Optik) und die ComboBox selbst zeichne.

Delphi-Quellcode:

procedure TComboBoxFeld.OnComboBoxDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  i_ItemTop: Integer;
  ComboBox : TLabeledComboBox;

begin
  //akt. ComboBox auf Variable laden
  ComboBox := Control as TLabeledComboBox;

  If odSelected in State then
    begin
      //Wenn der Eintrag markiert ist, dann Hintergrund blau und Schriftfarbe weiss
      ComboBox.Canvas.Brush.Color := clHighlight;
      ComboBox.Canvas.Font.Color  := clHighlightText;
    end
  else
    begin
      //Hintergrund-Farbe und Font setzen
      ComboBox.Canvas.Brush.Color := ComboBox.Color;
      ComboBox.Canvas.Font.Assign(ComboBox.Font);
    end;

  //ComboBox-Rect füllen
  ComboBox.Canvas.FillRect(Rect);

  //Top der einzelnen Zeilen errechnen
  i_ItemTop := Rect.Top + ((Rect.Height - abs(ComboBox.Font.Height)) div 2) - 1;

  //Text ausgeben
  ComboBox.Canvas.TextOut(Rect.Left + 2, i_ItemTop, ComboBox.Items[Index]);
end;

[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;

[Helmi]

Zitat von Gollum:

vielleicht

leider nein!