|
Registriert seit: 21. Dez 2002
Ort: Lenzburg
861 Beiträge
Delphi 6 Professional
|
Re: Programmierung eines Farbverlaufs
30. Okt 2003, 18:32
Delphi-Quellcode:
for i := 0 to Height do
begin
Canvas.Pen.Color := rgb( Round(s[0] + i * d[0]), Round(s[1] + i * d[1]), Round(s[2] + i * d[2]) );
Canvas.MoveTo(0,i);
Canvas.LineTo(Width,i);
end;
Tobias
Die Physik ist für die Physiker eigentlich viel zu schwer.
|