Moin moin,

ich versuch mal mich verständlich auszudrücken (fällt mir gerade schwer).
Ich springe per tab in eine Combobox und wähle einen Eintrag aus. Der Eintrag
(der Text) wird nun blau hinterlegt.

Wie kann ich diese Farbe ändern (der Focus ist nicht gemeint..) der steht auf

markieren

Delphi-Quellcode:

ComboBox3.Color:=clRed;
ComboBox3.Font.Color:=clwhite;

was auch funktioniert ... Nur dieser Text wird mit Blau hinterlegt.
Hat jemand eine Idee ?? Im Forum habe ich nur was zum Fokus gefunden ...

Ich hänge mal 'n Beispiel an... und n' Screenschot

cu && besten Dank

ascotlx
:EDIT: Beispielprogramm aktualisiert.

Nabend ...
so in etwa funktionopelt es

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var farbe: TColor;
begin
  farbe:= clInfoBk; // HintergrundFarbe (GrundFarbe)
  case index of // Farbe zum zeichnen festlegen
    1 : farbe:= TColor($00CF9030);
    2 : farbe:= TColor($0093CAB1);
    3 : farbe:= TColor($00B3F8FF);
    4 : farbe:= TColor($00829AA2);
  end;
  with ComboBox1, ComboBox1.Canvas do begin
    Font.Color:= clblack; // SchriftFarbe
    Brush.Color:= farbe; // HintergrundFarbe
    FillRect(Rect); // Hintergrund zeichnen
    TextOut(Rect.Left+5, Rect.Top+1, Items[index]); // Textausgabe
  end;
end;

LG

Moin ...,

hier nochmal das Beispiel (mit der Änderung von Mario)
Es liegt bestimmt an mir ...aber es funktioniert leider nicht.

cu
ascotlx

Zitat von ascotlx:

Moin ...,

hier nochmal das Beispiel (mit der Änderung von Mario)
Es liegt bestimmt an mir ...aber es funktioniert leider nicht.

Nö, mein Fehler. Ich hatte vergessen zu erwähnen das ComboBox.Style natürlich mit gesetzt werden muss.

Zitat:

OH: Wenn Style den Wert csOwnerDrawFixed oder csOwnerDrawVariable hat, wird das Ereignis OnDrawItem ausgelöst, sobald die Listeneinträge gezeichnet werden müssen.

Also nur ändern und Dein Demo läuft

[edit] Bitte noch hinzufügen.

markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
 ...
 ComboBox1.ItemIndex:= 0;
end;

[/edit]

Moin Mario,

'tschuldige die dumme Frage ..., aber wo/wie bekomme ich die Farbwerte her ??

markieren

Delphi-Quellcode:

1 : farbe:= TColor($00CF9030);
2 : farbe:= TColor($0093CAB1);
3 : farbe:= TColor($00B3F8FF);
4 : farbe:= TColor($00829AA2);

Ich habe in meiner ComboBox einen Eintrag der Rot hinterlegt werden soll, alles
andere soll weiss bleiben.

cu

ascotlx

:EDIT:
Sorry, blöde Frage. Online-Hilfe lesen kann helfen.
Ich habe jetzt einfach die Farben eingetragen.

Trotzdem Danke

ascotlx