1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

{------------------------------------------------------------------------------
  Zeichnen der Combobox
  Die Stringlist enthält dabei die Werte Textfarbe, Hintergrundfarbe, Beschriftung
  Die Werte sind jeweils mit Strichpunkt separiert und werden mit Explode() getrennt
------------------------------------------------------------------------------}
procedure TfrmFieldEdit.DrawColorBox(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var myr: TRect;
    values: TStringList;
begin
  with (Control as TComboBox) do begin
    values := TStringList.Create();
    Explode(';', Items[index], values);
    Canvas.Font.Color := StrToInt(values[0]);       //Schriftfarbe
    Canvas.Brush.Color := StrToInt(values[1]);      //Hintergrundfarbe
    myr := rect;
    inc(myr.Left, 1);                               //1Pixel weisser Rand
    inc(myr.Top, 1);
    dec(myr.Right, 1);
    dec(myr.Bottom, 1);
    Canvas.TextRect(myr, myr.Left,myr.Top, values[2]);  //Text ausgeben
  end;

end;