会员
周边
众包
新闻
博问
闪存
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
风雷
风雷的博客
博客园
首页
新随笔
联系
订阅
管理
颜色渐变
颜色渐变
var
I:Word;
Y,YStep:Real;
begin
Y:
=
0
;
//
设置Y方向的初始值
YStep:
=
ClientHeight
/
256
;
//
设置步长
for
I:
=
255
downto
0
do
begin
Canvas.Brush.Color:
=
$
00000000
+
i
*
$
10100
;
//
改变颜色
Canvas.FillRect(Rect(
0
, Round(Y), ClientWidth, Round(Y
+
YStep)));
Y:
=
Y
+
YStep;
end
;
end
;
posted @
2009-07-27 18:48
谭志宇
阅读(
165
) 评论(
0
)
编辑
收藏
举报
会员力量,点亮园子希望
刷新页面
返回顶部
公告