Text von Auswahlfeld der Combobox einfärben

[FBrust]

Hallo,

ich möchte in einer Combobox ein bestimmtes Item farblich markieren, alle anderen sollen weiterhin die Font-Farbe der Combobox behalten. Die Combobox wird zur Laufzeit über eine Schleife mit Texten gefüllt. Wenn nun einer dieser Werte ein bestimmtes Kriterium erfüllt, soll der Text in dem "Ausklappfeld" z. b. blau dargestellt werden, der Hintergrund soll weiß bleiben.


Ich habe schon (testweise, da fehlt noch die if-Bedingung für das Kriterium)
cbEn.Canvas.Font.Color := clGreen; versucht, aber das wird geflissentlich ignoriert...


und cbEn.Font.Color ändert ja die Farbe der ganzen Combobox.


Hat vielleicht jemand einen Tip?


Gruß
Frank

[Sidorion]

Du musst den style der combobox auf csOwnerDrawFixed stellen und im event OnDrawItem kannst du dann prüfen, obs der Eintrag ist, der mit dem Text übereinstimmt. (wird index übergeben) Hier kannst du dann die Einfärbung realisieren.

[freak24]

Das sieht ungefähr so aus

Delphi-Quellcode:

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
 if Kriterium then
  Combobox1.Canvas.Font.Color := clBlue
 else
  Combobox1.Canvas.Font.Color := Combobox1.font.color;
 Combobox1.Canvas.FillRect(rect);
 combobox1.Canvas.TextOut(rect.Left,rect.Top,combobox1.Items.Strings[index])
end;

[Olli]

Dann wirst du selber das Zeichnen übernehmen müssen. Ist ganz ähnlich wie bei Listboxen, aber um das Zeichnen wirst du nicht herumkommen.

CBS_OWNERDRAWFIXED oder CBS_OWNERDRAWVARIABLE setzen und dann WM_DRAWITEM abfangen.