Timer & Farbverlauf

[toms]

Zitat:

Geht das auch dass er erst r voll macht dann g voll dann b?

Probier's mal so:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
const
  r: Integer = 100;
  g: Integer = 100;
  b: Integer = 100;
begin
  panel1.color := rgb(r,g,b);
  if r < 255 then
    Inc(r)
  else
  if g < 255 then
    Inc(g)
  else
  if b < 255 then
    Inc(b)
  else
   Timer1.Enabled := False;
end;