文件名称：Delphi Canvas.Brush为窗体绘制渐变背景.rar
文件大小：9KB
文件格式：RAR
更新时间：2022-07-30 11:12:45
Delphi源码-界面编程
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;
【文件预览】：
codesc.net
----Delphi 为窗体绘制渐变背景()
--------Unit1.ddp(51B)
--------Project1.res(876B)
--------Unit1.dcu(7KB)
--------Unit1.dfm(1KB)
--------Project1.cfg(386B)
--------效果图.bmp(489KB)
--------Project1.dpr(188B)
--------Project1.dof(1KB)
--------Unit1.pas(3KB)