Delphi实现多次渲染的RGB色环颜色渐变特效源码.rar

Delphi实现RGB色环多次渐变，生成一个渐变的圆形，颜色渐变步长可自定义，在代码中，为了绘制出来的圆好看，分成四个部分进行绘制，此部分代码展示如下： 　　if (degree >= 0 qki) and (degree <= 45 qki) then 　　 Canvas.FillRect(Rect(x,y,x-2,y-1)); 　　if (degree > 45 qki) and (degree <= 135 qki) then 　　 Canvas.FillRect(Rect(x,y,x-1,y-2)); 　　if (degree > 135 qki) and (degree <= 225 qki) then 　　 Canvas.FillRect(Rect(x,y,x 2,y 1)); 　　if (degree > 215 qki) and (degree <= 315 qki) then 　　 Canvas.FillRect(Rect(x,y,x 1,y 2)); 　　if (degree > 315 qki) and (degree <= 360 qki) then 　　 Canvas.FillRect(Rect(x,y,x-2,y-1));