| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/1/9 17:08:57 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | procedure DrawVerticalGradient(Canvas: TCanvas; const ARect: TRect; FromR, ToR, FromG, ToG, FromB, ToB: Byte); var SR: TRect; H, I: Integer; R, G, B: Byte; begin SR := ARect; with ARect do H := Bottom - Top; for I := 0 to 255 do begin SR.Bottom := ARect.Top + MulDiv(I + 1, H, 256); with Canvas do begin R := FromR + MulDiv(I, ToR - FromR, 255); G := FromG + MulDiv(I, ToG - FromG, 255); B := FromB + MulDiv(I, ToB - FromB, 255); Brush.Color := RGB(R, G, B); FillRect(SR); end; SR.Top := SR.Bottom; end; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/9 17:19:43 | ||||
| 1楼： | 这么简单的代码...没办法解释... ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/1/9 19:30:25 | ||||
| 2楼： | 我就是那么笨，我也没有办法！ ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
