界面色彩渐变效果的实现

标签：cli   实现   for   填充   button   form   nbsp   begin   实例   

　　界面色彩渐变效果是通过用渐变的画刷刷绘依次相邻的矩形块实现的。下面列举实例说明:
　　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;
　　

界面色彩渐变效果的实现

标签：cli   实现   for   填充   button   form   nbsp   begin   实例   

原文地址：http://www.cnblogs.com/yzryc/p/6374396.html