vielen Dank für die raschen Antworten.
Ich habe es jetzt wie folgt ausprobiert:
Style auf csOwnerDrawFixed gesetzt und testweise auch auf csOwnerDrawVariable
Delphi-Quellcode:
procedure TMHauptmaske.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var i:integer;
begin
i:= combobox1.ItemIndex;
if combobox1.Items.Strings[i] = 'test1' then
combobox1.canvas.Brush.Color := clred;
if combobox1.Items.Strings[i] = 'test2' then
combobox1.canvas.Brush.Color := clyellow;
if combobox1.Items.Strings[i] = 'test3' then
combobox1.canvas.Brush.Color := clgreen;
combobox1.canvas.FillRect(rect);
end;
Allerdings ändert sich die Frabe erst wenn ich mit der maus über das item gehe,
vorher ist das ganze Feld weiß, es sollen aber direkt die entsprechneden Fraben angezeigt werden.
Des Weiteren scheint dabei der Text auch in der Farbe erstellt zu werden,
der soll aber schwarz bleiben.