bisher mache ich es so:
Delphi-Quellcode:
if aktiv
and (value=0)
then box.canvas.brush.color:=clgreen
else
case value
of
0: box.canvas.brush.color:=clcream;
1: box.canvas.brush.color:=clbackground;
2: box.canvas.brush.color:=
RGB(255,66,66);
end;
das heisst er kommt mit clbackground nicht zurecht. ok dann mache ich ein screenshot von meinem Programm, lade es paint, gucke mir die
RGB Werte an, wandle sie in eine TColor um und schreibe sie darein
edit: so ist geändert, bitte testen ob es jetzt funktioniert