Ohje jetzt steh ich wieder aufem Schlauch, weiß gar ned was zur Zeit los ist...Liegt bestimmt daran das Ferien sind
Ich wollte das ganze jetzt umschreiben, dass es beim kleinsten Wert rot wird und je höher, desto grüner.
Dachte ich änder einfach r und g, aber irgendwie bringt das nicht den gewünschten Effekt:
Delphi-Quellcode:
function MakeColor(i, min, max: Extended): TColor;
//hab kleinsten und größten Wert zur Verfügung
var
r, g, b: Integer;
begin
g := Round(255 * (i / max));
r := 255 - g;
b := 0;
Result :=
RGB(r, g, b);
end;
Ich komm einfach nich von dem .... Schlauch runter oO