界面色彩渐变效果的实现

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档 | 网通镜像

当前位置：> 程序开发 > 编程语言 > Delphi > 图形/图像

界面色彩渐变效果的实现

作者:wljcr 时间:2001-10-30 10:37 出处:互联网责编:chinaitpower

摘要：界面色彩渐变效果的实现

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

关闭本页