Delphi

本类阅读TOP10
·分布式网络考试系统原型分析及实现
·游戏外挂设计技术探讨①
·使用HOOK随心监视Windows
·Delphi 水晶报表打包解决
·试题库开发中非文本数据的处理
·如何将几个DBGRID里的内容导入同一个EXCEL表中....的问题
·如何使用Delphi设计强大的服务器程序
·工人线程中关闭窗体的实现
·用DLL方式封装MDI子窗体。
·支持XP下托盘栏气球提示的托盘单元

→ 分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
界面色彩渐变效果的实现

作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站
列举实例说明:
　　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;
       


相关文章：

相关软件：