Vielen Dank für Eure Hilfe, vor allem für den INDEX
habe es jetzt wie folgt hinbekommen:
Delphi-Quellcode:
procedure TMHauptmaske.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var holdColor: TColor;
begin
holdColor := combobox1.Canvas.Brush.Color;
if combobox1.Items.Strings[index] = 'test1' then
combobox1.canvas.Brush.Color := clred;
if combobox1.Items.Strings[index] = 'test2' then
combobox1.canvas.Brush.Color := clyellow;
if combobox1.Items.Strings[index] = 'test3' then
combobox1.canvas.Brush.Color := clgreen;
combobox1.canvas.Font.Color := clblack;
combobox1.Canvas.FillRect(rect);
combobox1.Canvas.TextOut(Rect.left, Rect.top, combobox1.Items[index]);
combobox1.canvas.brush.Color := holdColor;
end;