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.