"Farbverlauf" von clBtnFace zu clBlack

[jfheins]

Ok, vielleicht hast du meinen Post übersehen

Mit dem Code aus der Codelib bekomme ich einen ganz, ganz tollen Farbverlauf, von clBtnFace nach Schwarz.

Mein Code:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  DoubleBuffered := True;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to PaintBox1.Width - 1 do
  begin
    PaintBox1.Canvas.Pen.Color := ColorBetween(clBtnFace, clBlack, i/(PaintBox1.Width-1));
    PaintBox1.Canvas.MoveTo(i, 0);
    PaintBox1.Canvas.LineTo(i, 200);
  end;
end;

Ergebinis: Ein schöner Farbverlauf von links (clBtnFace) nach rechts (Schwarz)