Delphi Canvas.Brush为窗体绘制渐变背景.rar
Delphi 为窗体绘制渐变背景，这里使用了Delphi中的Canvas.Brush.Color来实现窗口背景的渐变色，不错吧？如示例图的左右渐变效果，实现的代码：
for i:=0 to self.Width-1 do
begin
c1:=GetRValue(StartColor) Trunc(i*(GetRValue(EndColor)-GetRValue(StartColor))/(self.Width-1));
c2:=GetGValue(StartColor) Trunc(i*(GetGValue(EndColor)-GetGValue(StartColor))/(self.Width-1));
c3:=GetBValue(StartColor) Trunc(i*(GetBValue(EndColor)-GetBValue(StartColor))/(self.Width-1));
Canvas.Brush.Color:=RGB(c1,c2,c3);
//每次画矩形的画刷颜色
Dct:=Rect(i,0,i 1,self.Height);
//每次刷绘的矩形区域
Canvas.FillRect(Dct);
//填充颜色
end;
for i:=0 to self.Width-1 do
begin
c1:=GetRValue(StartColor) Trunc(i*(GetRValue(EndColor)-GetRValue(StartColor))/(self.Width-1));
c2:=GetGValue(StartColor) Trunc(i*(GetGValue(EndColor)-GetGValue(StartColor))/(self.Width-1));
c3:=GetBValue(StartColor) Trunc(i*(GetBValue(EndColor)-GetBValue(StartColor))/(self.Width-1));
Canvas.Brush.Color:=RGB(c1,c2,c3);
//每次画矩形的画刷颜色
Dct:=Rect(i,0,i 1,self.Height);
//每次刷绘的矩形区域
Canvas.FillRect(Dct);
//填充颜色
end;
文件下载
资源详情
[{"title":"（ 9 个子文件 9KB ） Delphi Canvas.Brush为窗体绘制渐变背景.rar","children":[{"title":"codesc.net","children":[{"title":"Delphi 为窗体绘制渐变背景","children":[{"title":"Unit1.ddp <span style='color:#111;'> 51B </span>","children":null,"spread":false},{"title":"Project1.res <span style='color:#111;'> 876B </span>","children":null,"spread":false},{"title":"Unit1.dcu <span style='color:#111;'> 6.61KB </span>","children":null,"spread":false},{"title":"Unit1.dfm <span style='color:#111;'> 1.23KB </span>","children":null,"spread":false},{"title":"Project1.cfg <span style='color:#111;'> 386B </span>","children":null,"spread":false},{"title":"效果图.bmp <span style='color:#111;'> 489.49KB </span>","children":null,"spread":false},{"title":"Project1.dpr <span style='color:#111;'> 188B </span>","children":null,"spread":false},{"title":"Project1.dof <span style='color:#111;'> 1.02KB </span>","children":null,"spread":false},{"title":"Unit1.pas <span style='color:#111;'> 3.46KB </span>","children":null,"spread":false}],"spread":true}],"spread":true}],"spread":true}]
评论信息
其他资源
- 瑞利衰落下中继信道的中断概率的蒙特卡洛及公式的仿真
- opencv 识别圆心
- 深信服负载均衡mib信息
- tensorflow-1.14.0-cp37-cp37m-win_amd64.whl
- revouninstallerpro4最新版（内含破解文件）
- FPGA 64位浮点乘法器代码
- java web接口开发demo
- 计算机网络课设代码+报告
- JAVA JSP教师档案管理系统
- 数学建模，中国人口增长预测模型
- Behavior Designer 1.6.1
- Setup-Subversion-1.8.9.msi
- His实施总结
- 画板.zip源代码 含UI页面
- 如何创建用户模型：问卷调查与数据分析
- 数据结构和算法：数据结构和算法，用C＃和JavaScript编写-源码
- api检索对决单运行-源码
- covid-19-data-usa-源码
- 近世代数(3)PPT.pdf
- ipv6子网划分计算器-工具箱v1.0.xlsm
- 猜数游戏flash
- 16QAM通信系统仿真
- Webstorm 2019.1汉化包.rar
- webrtcDemo
- ATM自动取款机系统需求规格说明书
- iOS逆向技术视频教程
免责申明
【只为小站】的资源来自网友分享，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，【只为小站】 无法对用户传输的作品、信息、内容的权属或合法性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论 【只为小站】 经营者是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明