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)
