转帖小新写过的:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (Table1.Recno mod 2) <> 0 then begin
DBGrid1.Canvas.Font.Color := clWhite;
DBGrid1.Canvas.Brush.Color := clRed; //这里设置单元格填充色
DBGrid1.Canvas.FillRect(Rect); //这里对相应的单元格进行北景色填充
end;
//输出内容
DBGrid1.Canvas.TextRect( Rect, Rect.Left, Rect.Top, Column.Field.AsString);
end;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (Table1.Recno mod 2) <> 0 then begin
DBGrid1.Canvas.Font.Color := clWhite;
DBGrid1.Canvas.Brush.Color := clRed; //这里设置单元格填充色
DBGrid1.Canvas.FillRect(Rect); //这里对相应的单元格进行北景色填充
end;
//输出内容
DBGrid1.Canvas.TextRect( Rect, Rect.Left, Rect.Top, Column.Field.AsString);
end;
解决方案 »
- 线程释放不了了
- windows2000如何启动Socket服务
- 如何Visibled掉DXSIDEBAR控件中的某一组?谢谢
- 新年快乐
- 如何生成这样的报表?
- savedialog中用什么标识我是点了“确定”还是“取消”
- [Fatal Error] fDemo.pas(33): File not found: 'uDll.dcu',为什么?(简单:20分)
- 在局域网内,如何动态获得本局域网对外(INTERNET网)的未分配的端口号,
- 我要用TreeView对数据表操作,点击相应节点,右键实现添加,删除等功能.请给个相关例程.
- Delphi简单问题
- 我忘了CSDN上的登陆密码,怎么找回密码?
- 汉化问题!!!!!!急
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (Table1.Recno mod 2) = 0 then begin //条件
begin
DBGrid1.Canvas.Font.Color := clWhite ;
DBGrid1.Canvas.Brush.Color := clRed;
[其它属性]
end
else
begin
DBGrid1.Canvas.Font.Color := clWhite ;
DBGrid1.Canvas.Brush.Color := clyellow;
[其它属性]
end;
Dbgrid1.defaultdrawcolumncell(rect,datacol,column,state) ;
end;
太多了