发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标  题: Delphi编程 -- 11.3 界面色彩渐变效果的实现
发信站: 哈工大紫丁香 (2000年09月01日16:56:10 星期五), 站内信件

界面色彩渐变效果的实现

　界面色彩渐变效果是通过用渐变的画刷刷绘依次相邻的矩形块实现的。下面列举
实例说明:
　　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;
　　上例在Windows95,Delphi3.0环境下运行通过。


 

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]