寻求帮助(急,150分)(150分)

  • 主题发起人 主题发起人 py
  • 开始时间 开始时间
P

py

Unregistered / Unconfirmed
GUEST, unregistred user!
大家好:
现在我有一个棘手的问题,想请各位帮忙.
在DBGrid中,将Options|dgRowLines=False后,标题的立体外观变为平面,我想既保持标题的3D效果,又能取消水平线,我该如何解决呢?
另外,为了增强效果,想把水平线由灰色变为其他颜色,有这样的第三方组件吗?如果没有,该如何实现呢?
 
你可以用Rx构件组试试。我有,怎么给你?
 
既保持标题的3D效果,又能取消水平线
很简单啦, 自己在标题的边框画线, 左边竖线,上边横线用白色, 右边竖线,
下边横线用黑色
把水平线由灰色变为其他颜色
如法炮制, 获得行的高度, 用线条画吧
 
Marlowe,pegasus你们好:
我有Rx,曾经试过,但无效,其DBGrid的RowLine,ColLine好象与标准的DBGrid一样.
并无加强,您那儿不是吗?
pegasus,您的方法我该具体怎么写呢?能否给我一个范例,万分感激.(如果内容较多,
可以Email给我.)


祝新年愉快!



 
我有这样的控件,spreed 2.5 5M
http://www.fpoint.com/patches.htm 下载,不要下载Trial版,要下载补丁版
最好的Grid控制,可编辑, 超过250个属性,极豪华的界面,
强有力的设置工具。Cool!Cool! Cool! 下载License(2K)!
ftp.fortunecity.com
user:chenftp
password:chenftp
get f_fpsd25.zip enjoy it!
试过了,可以实现你的要求。

 
chenke老兄:
你提供的ftp教育网根本连不上,能提供个能连的上的吗?
谢谢!
 
it is very easy.

procedure TForm1.FormCreate(Sender: TObject);
begin
DBGrid1.Canvas.pen.Style:=psClear;
end;

//form1 is dbgrid1.parentform
 
可以在DBGIRD上加一个HeaderControl控件,并将TITLE关掉,
在显示时可用HeaderControl1.Sections.Items[index].Width:=DBGrid1.Columns[index].Width
 
我无话可说。
 
你可试一下Info Power的控件集中的Grid,它没有这样的问题,我试过了。
下载的地方很多,如:
<a href="http://ftp.maoming.gd.cn/c/leonyxl/software/ip4pro_d4.exe">Info Power for D3/D4</a>
注册码及系列号均为:123456
 
修改BDGrids.Pas源代码,在
查找'[dgRowLines, dgColLines] * Options',会找到4处,
这4处[dgRowLines, dgColLines] * Options = [dgRowLines, dgColLines]
条件删除后即可。

附具体修改方法:
第一处
if [dgRowLines, dgColLines] * Options = [dgRowLines, dgColLines] then
删除.
第二处
if [dgRowLines, dgColLines] * Options = [dgRowLines, dgColLines] then
begin
XXXXXXX;
XXXXXXX;
XXXXXXX;
end;
修改为
XXXXXXX;
XXXXXXX;
XXXXXXX;
第三、四处
if (gdFixed in AState) and ([dgRowLines, dgColLines] * Options =
[dgRowLines, dgColLines]) then
修改为
if (gdFixed in AState) then

搞定!


 
忘了说了
上面第三、四处是画最左边的Indicator。
 
可以接受答案了。
我试过menxin的答案最方便。
 

Similar threads

后退
顶部