界面色彩渐变效果的实现

列举实例说明:　　1.新建一个表单,假设其Width为500,设置一个按钮Button1,按此按钮将把表单置为由左向右由黄变白的渐变效果。　　2.Button1按钮的代码如下:　　procedure TForm1.Button1Click(Sender: TObject);　　var i,j:Integer;　　Dct:TRect;　　begin　　j:=Form1.height; 　　//获得表单高度　　for i:=0 to 255 do 　　//此处设置RGB()中一个颜色值　　begin　　Canvas.Brush.Color:=RGB(255,255,i);　　//每次画矩形的画刷颜色　　Dct:=Rect(i＊2,0,(i＋1)＊2,j);　　//每次刷绘的矩形区域　　Canvas.FillRect(Dct);　　//填充颜色　　end;　　end;