界面色彩渐变效果的实现

列举实例说明:

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;