Ich habe Wert, sagen wir von 1 bis 200, diese möchte ich nun farblich darstellen, wie man es von Temperaturen kennt: niedrige Temperaturen blau über gelb, orange zu rot für warme Temperaturen.
Das:
Delphi-Quellcode:
case cnt of
0: StringGrid1.Canvas.Brush.Color := clWhite;
1..10: StringGrid1.Canvas.Brush.Color := clNavy;
11..20: StringGrid1.Canvas.Brush.Color := clBlue;
21..30: StringGrid1.Canvas.Brush.Color := clGreen;
31..40: StringGrid1.Canvas.Brush.Color := clLime;
41..50: StringGrid1.Canvas.Brush.Color := clYellow;
51..60: StringGrid1.Canvas.Brush.Color := cl
else
StringGrid1.Canvas.Brush.Color := clRed;
end;
liefert nur sehr unbefridigende Resultatet. Hat jemand eine Funktion zu Hause rumliegen, die mir in Abhängigkeit des Wertes eine passenden Farbe liefert?
Danke schon mal für eure Mühe.