Items einer ComboBox farbig füllen

Reply to Items einer ComboBox farbig füllen on Sat, 23 Jun 2007 18:49:36 GMT

Horschdware — Sat, 23 Jun 2007 18:49:36 GMT

Hallio,
ich würde gerne die einzelnen Zeilen meiner Combobox farbig füllen.
Dazu habe ich mir folgenden Code erdacht:

void __fastcall Tform_maps::ComboBox1DrawItem(TWinControl *Control,
      int Index, TRect &Rect, TOwnerDrawState State)
{
  switch (Index) {
    case 0 :  Canvas->Brush->Color = clLime;    break;
    case 1 :  Canvas->Brush->Color = clRed;     break;
    case 2 :  Canvas->Brush->Color = clAqua;    break;
    case 3 :  Canvas->Brush->Color = clYellow;  break;
  }
  Canvas->FillRect(Rect);
}

Leider wird die Farbe nicht in den Zeilen der Combobox, sondern an Position (0|0) das Formulars gezeichnet. Laut Hilfe gibt mir der Parameter Rect das Rechteck zurück, in dem gezeichnet werden soll.
hab ich etwas übersehen?

MfG
Stefan

Reply to Items einer ComboBox farbig füllen on Sat, 23 Jun 2007 21:12:51 GMT

VergissEs — Sat, 23 Jun 2007 21:12:51 GMT

Du musst schon das Canvas des Control verwenden und nicht der form

(TWinControl *Control) auswerten

Reply to Items einer ComboBox farbig füllen on Sun, 24 Jun 2007 15:18:26 GMT

Horschdware — Sun, 24 Jun 2007 15:18:26 GMT

TWinControl hat aber anscheinend kein Canvas. Ein Typecast auf TComboBox tut auch nicht. Ich kann natürlich manuell den Namen der aufrufenden ComboBox angeben, aber ich möchte die Funktion ja allgemein halten. Gibt es hier kein "TObject *Sender" ?

Reply to Items einer ComboBox farbig füllen on Sun, 24 Jun 2007 15:48:04 GMT

VergissEs — Sun, 24 Jun 2007 15:48:04 GMT

klar geht ein cast auf die ComboBox

TComboBox* pCBO = dynamic_cast(Control);
if (pCBO) {
  pCBO->Canvas->FillRect(Rect);
}

Reply to Items einer ComboBox farbig füllen on Sun, 24 Jun 2007 15:58:38 GMT

akari — Sun, 24 Jun 2007 15:58:38 GMT

Hallo

Zu beachten ist dabei noch das der Style der ComboBox muß auf csOwnerDraw... gesetzt sein muß

bis bald
akari