如何改善dbgrid的显示效果--记录像斑马纹显示(30分)

L

lhxu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-07

• #1

我的朋友使用VB6.0,他的dbgrid中显示记录时,一条记录正常显示,
下一条记录整条加淡灰显示,然后又是正常,加淡灰....,整个dbgrid中
的数据呈斑马纹状,这样看起来比较
清楚舒服,我想VB能做到,Delphi也应该能,
那位大虾指点一二

 

L

liwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-07

• #2

在DBGRID的ONDRAWCELLS中

IF GREY THEN
CANVAS.BRUSH.COLOR:=CLGREY;
ELSE
CANVAS.BRUSH.COLOR:=WHITE;
GREY:= NOT GREY;

然后在FORM中定义一个全局变量如下:
VAR GREY: BOOLEAN.

大概就是这样了.

 

王

王寒松

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-08

• #3

ZEBGRID.ZIP
TzebDBgrid 是以不同色彩交替显示每一列的加强版 TDBGrid 构件 ( 1.2 版，附源码 )，作者 : Elieser Morais。

http://delphi.nease.net/mirror/delphi/DELPHI/D32FREE/ZEBGRID.ZIP

我用过，和MS MONEY的那个类似，挺好看的

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-08

• #4

标准dbgrid实现不容易，你可以用rxlib中的rxdbgrid,COOL

procedure TForm1.RxDBGrid1GetCellParams(Sender: TObject; Field: TField;
AFont: TFont; var Background: TColor; Highlight: Boolean);
begin
if RxDBGrid1.DataSource.DataSet.RecNo mod 2=0 then
Background:=clyellow
else
Background:=clLime;
end;
还有许多别的功能。

 

王

王寒松

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-08

• #5

to MenXin : RecNo在 TQuery里无效

 

L

lhxu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-08

• #6

多人接受答案了。