TGauge ForeColor

[Tommy1988]

Delphi-Quellcode:

Gauge.Progress := Gauge.Progress + 1;
DoubleBufferd := True;  

if Gauge.Progress > 20 then
   begin
   // vorher clBtnFace
    Gauge.BackColor := $0002FDCB;
    Gauge.ForeColor := $0002FDCB;
   end
  else if Gauge.Progress > 40 then
   begin
   // vorher clBtnFace
    Gauge.BackColor := $0000B3FF;
    Gauge.ForeColor := $0000B3FF;
   end
  else if Gauge.Progress > 60 then
   begin
   // vorher clBtnFace
    Gauge.BackColor := $000079FF;
    Gauge.ForeColor := $000079FF;
   end
 else if Gauge.Progress > 80 then
   begin
   // vorher clBtnFace
    Gauge.BackColor := $000053FF;
    Gauge.ForeColor := $000053FF;
   end
  else if Gauge.Progress > 100 then
   begin
   // vorher clBtnFace
    Gauge.BackColor := clRed;
    Gauge.ForeColor := clRed;
   end;

Ok, so ist es jetzt
Nur leider ist es so, dass mit dem else er die farbe nicht wechselt