Farbe "smooth" ändern

[marabu]

Einen Farblauf kannst du so realisieren:

Delphi-Quellcode:

type
  Int3 = 0..7;

function NextColor(color: TColor; step: Int3): TColor;
var
  quad: TRGBQuad absolute color;
begin
  with quad do
  begin
    rgbBlue := rgbBlue + 1 shl step;
    rgbGreen := rgbGreen + 1 shl step;
    rgbRed := rgbRed + 1 shl step;
  end;
  Result := color;
end;

Oder du wechselst einfach mehrmals in Folge zwischen der Farbe und ihrer Komplementärfarbe.