Verläufe erstellen

[SirThornberry]

einen einfachen Farbverlauf bekommst du so hinn

Delphi-Quellcode:

var LCountx, LCounty: Integer;
begin
  for LCountx := 0 to 255 do
  begin
    for LCounty := 0 to 50 do
    begin
      canvas.pixels[LCountx, LCounty] := RGB(LCountX, 0, 0);
    end;
  end;
end;