|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2008/1/28 21:39:59 |
标题: |
当DBGridEh中的单元格具有焦点时加边框,怎么实现? |
浏览:1989 |
|
加入我的收藏 |
楼主: |
效果如下图
此帖子包含附件:
大小:检测失败 |
----------------------------------------------
- |
作者: |
|
2008/1/29 16:46:52 |
1楼: |
自己顶一下!难道真的没人知道?
----------------------------------------------
-
|
作者: |
|
2008/1/29 19:14:51 |
2楼: |
自己在OnDrawColumnCell事件里画
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……
|
作者: |
|
2008/1/29 19:36:20 |
3楼: |
楼上请问应该怎么画?
----------------------------------------------
-
|
作者: |
|
2008/1/29 20:00:16 |
4楼: |
找到了这个:
with (Sender as TDBGridEh).canvas do //画 cell 的边框 begin pen.color := clBlack; //定义画笔颜色 moveto(Rect.left, Rect.bottom); //画笔定位 lineto(Rect.right, Rect.bottom); //画横线 pen.color := clBlack; //定义画笔颜色 moveto(Rect.right, Rect.top); //画笔定位 lineto(Rect.right, Rect.bottom); //画竖线 end;
它是全部重新画过
----------------------------------------------
-
|
作者: |
|
2008/1/29 21:00:11 |
5楼: |
↑已经写出来了! 在DBGridEH里的那两个ONDraw里(ColumnCell或DataCell)写代码就行了. 先判断State值是否为选中,是的话就开始自己用CANVAS画,否则就调用DefaultDraw,这样就万事OK了,想怎么画就怎么画(或者改变焦点位置字体颜色之类的).
----------------------------------------------
|~!!~~~~~~~!!~~~~~~~~!!~| | I am SEDWEN,My QQ: .| | 12109253 .| | Welcome! .| |__@@______@@_______@@__|
|
作者: |
|
2008/1/29 21:14:39 |
6楼: |
用4楼的方法后效果如下图:
此帖子包含附件:
大小:检测失败 |
----------------------------------------------
-
|
|