首页 > > 程序设计 > delphi >

界面色彩渐变效果的实现

2008-04-09 04:31:17来源：互联网阅读 ()

列举实例说明:
　　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;

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有