Zitat von
Tommy1988:
Eine kleine Hilfe, z.B. CodeSchnipsel, würde mir helfen.
Hehe, das glaube ich dir gern.
Doch solltest du selbst mal etwas überlegen und versuchen, das umzusetzen.
Ich würde es in der Art lösen (setzt voraus, dass Width > MaxValue ist):
Delphi-Quellcode:
var
i: Integer;
begin
for i := 1 to Gauge.MaxValue do
begin
Gauge.Progress := i;
Gauge.ForeColor := LinearGradientStep(clGreen, clBlue, Gauge.Width, i * round(Gauge.Width / Gauge.MaxValue));
Delay(40);
end;
end;
Frag mich bitte nicht, wieso am Ende so ein Farbsprung stattfindet.
