Registriert seit: 17. Mai 2007
482 Beiträge
Delphi XE6 Professional
|
Re: Color mixer
27. Dez 2011, 17:08
Delphi-Quellcode:
var
V, T: Byte;
begin
SetLength(Result, 0);
V := 100 div (EnsureRange(ASteps, 1, 64) + 1);
T := V;
while (T < 100) and (100 - T >= V) do
begin
SetLength(Result, Length(Result) + 1);
Result[High(Result)] := BlendColors(AColor1, AColor2, T);
Inc(T, V);
end;
end;
F1
|
|
Zitat
|