Timer & Farbverlauf

[toms]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
const
 {$j+}
  r: Integer = 100;
  g: Integer = 100;
  b: Integer = 100;
 {$j-}
begin
  panel1.color := rgb(r,g,b);
  Inc(r);
  Inc(g);
  Inc(b);
end;