ComboBox -> Mehrfarbig gestalten

[Micha88]

Ich könnte gut diese HTML-ComboBox gebrauchen, jedoch finde ich nur gesamte Packs zum herunterladen, die zu allem Übel auch noch ein Setup sind!

Weiß wer wo ich NUR die ComboBox herbekomme?

[Jens Hartmann]

Hallo zusammen,

ich habe nach dem einfärben der ComboBox in verschieden Farben gesucht, und bin zu diesem Thread gekommen. Mein Problem ist, das ich alles so glaube ich, genau so geamcht habe wie hier gezeigt, jedoch ändern sich meine Farben der ComboBox nicht.

Hier mal mein Code...

Delphi-Quellcode:

procedure TMailSendenForm.CBGruppeAnlegenDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var Farbe: TColor;
begin
  Farbe := CBGruppeAnlegen.Color; //Hintergrundfarbe für alle Items, die nicht eine spezielle Farbe haben

  //--'Inhalt' der Zeile abfragen und ggf. spezielle Farbe zuweisen
  if CBGruppeAnlegen.Items[Index] = 'Gruppe 1' then Farbe := clLime;
  if CBGruppeAnlegen.Items[Index] = 'Gruppe 2' then Farbe:= clYellow;
  if CBGruppeAnlegen.Items[Index] = 'Gruppe 3' then Farbe:= clBlue;
  if CBGruppeAnlegen.Items[Index] = 'Gruppe 4' then Farbe:= clFuchsia;
  if CBGruppeAnlegen.Items[Index] = 'Gruppe 5' then Farbe:= clAqua;
  if CBGruppeAnlegen.Items[Index] = 'Gruppe 6' then Farbe:= clMoneyGreen;
  if CBGruppeAnlegen.Items[Index] = 'Gruppe 7' then Farbe:= clSkyBlue;
  if CBGruppeAnlegen.Items[Index] = 'Gruppe 8' then Farbe:= clNavy;
  if CBGruppeAnlegen.Items[Index] = 'Gruppe 9' then Farbe:= clTeal;
  if CBGruppeAnlegen.Items[Index] = 'Gruppe 10' then Farbe:= clPurple;

  //-- Zeile mit der entsprechenden Farbe zeichen; standard=Combobox-Farbe (oder eine beliebige andere)
  with CBGruppeAnlegen, CBGruppeAnlegen.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;

Vieleicht hat ja jemand eine Idee. Danke schon mal und Gruß

Jens

[Jens Hartmann]

Sorry vergesst es.

Hatte das Proberty Style ausversehen wieder geändert.

Danke trotzdem. Gruß Jens

[himitsu]

Hast du das CBGruppeAnlegenDrawItem auch dem .OnDrawItem zugewiesen
und welchen Wert hat .Style deiner ComboBox?

[edit]
OK, dann hat sich das ja geklärt.

PS: bei solchen "Änderungen" bitte nur den Post editieren (ist ja kein neuer Beitrag notwendig)

[Andreas L.]

Zitat:

Zitat von Bernhard Geyer

Das Property Style der ComboBox muß schon auf einen Wert vom Typ csOwnerDraw* stehen damit OwnerDraw aufgerufen wird.

Das hast du auch beachtet? Weicht die Groß- und Kleinschreibung von den Items ab? Ein Stringvergleich ist case-sensitive. Könntest es z. B. so machen:

Delphi-Quellcode:

AnsiLowerCase(CBGruppeAnlegen.Items[Index]) = 'gruppe 1'