怎样实现一种颜色到另一种颜色的渐变??例如:蓝色--黑色在线!
解决方案 »
- 自定义函数总提示警告
- 请问Delphi中某具体控件如何得到外部拖放的文件路径
- 请问一下Rave控件TRvCustomConnection怎么用啊?
- 关于dbgrideh
- 读写图片文件
- 过节了,技术大放送3:利用Sql语句从数据库中随即取出20条纪录。
- 请问哪儿有报表控件和自动生成帮助的控件下载,谢谢!
- 简单问题,如何象一个控件发送Ctrl + X按键?
- insert记录时“Cannot insert explicit value for identity clolumn”是什么意思?
- 请教一个高级问题!!!
- 帮我看看我的代码,是关于动态调用DLL中的过程的。
- 下载了一个扩展名为IMG的xp安装文件,请问怎么用啊?
var i:word;
dy,y:real;
begin
dy:=clientheight/256;
y:=0;
for i:=255 downto 0 do
begin
canvas.brush.color:=$00000000+i*$10000;
canvas.fillrect(rect(0,round(y),clientwidth,round(y+dy)));
y:=y+dy;
end;
end;