怎么样能改变DBGrid空白区的颜色,有其它能实现这个功能的控件吗,如果有到哪里去
下载,控件名叫什么...
下载,控件名叫什么...
解决方案 »
- 虾们:我的自定义报表打不出来了
- 我的应用程序使用的TImage及TImageList
- 请教如何取IE的Frames中的TEXT的值???
- 怎样编写DataSetProvider的DataRequest啊
- 一段汇编代码,欢迎大家讨论
- 关于type的问题的后继----消息声明
- 两个函数的区别?————在线等待!
- 我这也遇到了同样的问题 ,就是在socket server端的程序段时间没问题,就是时间一长,如两天以上,程序就不动了,服务器cup 使用率100 ,资源管理器程序显示未响应,只能关掉进程才行,也没有数据了。
- 求delphi6.0 2cd的ISO哪里有down!
- 关于DELPHI中process bar的问题
- 怎样实现按下a键对windows发出消息?
- 怎样自己定义消息窗口?有没有这种模板?
begin
dbgrid1.Color :=clred;
end;
哪里有cxDBGrid控件啊!,能否给发一个 [email protected]
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with TDBGrid(Sender) do
begin
case Self.ADOQuery1.RecNo Mod 2 of
0: Canvas.Brush.Color :=clMoneyGreen;
1: Canvas.Brush.Color :=clWindow;
end;
if gdSelected in State then //这个是改变被选择行的高亮颜色
begin
Canvas.Font.Color :=clBackground;
Canvas.Brush.Color:=clSkyBlue;
Canvas.FillRect(Rect);
end;
DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with TDBGrid(Sender) do
begin
case Self.ADOQuery1.RecNo Mod 2 of
0: Canvas.Brush.Color :=clMoneyGreen;
1: Canvas.Brush.Color :=clWindow;
end;
if gdSelected in State then //这个是改变被选择行的高亮颜色
begin
Canvas.Font.Color :=clBackground;
Canvas.Brush.Color:=clSkyBlue;
Canvas.FillRect(Rect);
end;
DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;
up