| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/4/26 10:41:06 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 急，，，在线等。 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/4/26 16:58:56 | ||||
| 1楼： | 以下是我的一段代码： procedure TFrmResConfig.DgUntreadDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin //体现不同的调度类型为不同的颜色 IF (DgUntread.DataSource<>nil) and (DgUntread.DataSource.DataSet.Eof=False) Then Begin //正常调度clgreen： IF DgUntread.DataSource.DataSet.FieldByName('ATTEMPER_TYPE_ID').AsInteger=1 Then DgUntread.Canvas.Font.Color := clgreen; //割接调度：clblue IF DgUntread.DataSource.DataSet.FieldByName('ATTEMPER_TYPE_ID').AsInteger=2 Then DgUntread.Canvas.Font.Color := clblue; //拆除调度：clblack IF DgUntread.DataSource.DataSet.FieldByName('ATTEMPER_TYPE_ID').AsInteger=3 Then DgUntread.Canvas.Font.Color := clblack; //应急调度：clred IF DgUntread.DataSource.DataSet.FieldByName('ATTEMPER_TYPE_ID').AsInteger=4 Then DgUntread.Canvas.Font.Color := clred; DgUntread.DefaultDrawColumnCell(Rect, DataCol, Column, State); End; end; ---------------------------------------------- 依然记得从你口中说出再见坚强如铁 昏暗中有种烈日灼伤的错觉 黄昏的地平线 画出一句离别 爱情进入永夜 依然记得从你眼中滑落的泪伤心欲决 混乱中有种烈日灼伤的错觉 黄昏的地平线 割断幸福喜悦 相爱已经幻灭 |
|||||
| 作者： |
|
2004/4/26 17:32:40 | ||||
| 2楼： | 推荐一个控件 ＦＹdbgrid 还支持排序 下载地址。。。 http://www.2ccc.com/article.asp?articleid=504 ---------------------------------------------- -8165在线游戏-小游戏8165.cn在线小游戏 |
|||||
| 作者： |
|
2004/5/11 15:02:27 | ||||
| 3楼： | 当我移动到下一条时，前面的颜色恢复正常，当前数据变成上一条的颜色，怎么实现~~~ ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
