根据条件,DBGrid不同行显示不同的颜色
2007-10-29 22:24
357 查看
procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.Open;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Table1.Close;
end;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DBGrid1.DataSource.DataSet.RecNo mod 2 = 0 then //条件判断
begin
with DBGrid1 do
begin
Canvas.Font.Color:=clRed;
Canvas.Brush.Color:=clYellow;
end;
end;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
begin
Table1.Open;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Table1.Close;
end;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DBGrid1.DataSource.DataSet.RecNo mod 2 = 0 then //条件判断
begin
with DBGrid1 do
begin
Canvas.Font.Color:=clRed;
Canvas.Brush.Color:=clYellow;
end;
end;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
相关文章推荐
- FLEX4实践—DatagridColumn根据条件显示不同颜色
- delphi Dbgrid 根据值的不同显示不同颜色
- devexpress实现单元格根据条件显示不同的样式(颜色、字体、对齐方式,大小等)
- DevTreeList 不同行根据特定值显示不同颜色
- LigerUi中Grid表记录根据条件显示不同颜色和不同内容!(实例)
- Gridview某一列根据不同的条件显示不同颜色的实现(原创)
- reportservice报表单元格根据条件显示不同的颜色
- VB.NET中根据DataGridView中显示的数据条件数据行显示不同的颜色
- 如何使DataGrid(Web)的不同行根据不同的条件有不同的显示格式?
- devexpress实现单元格根据条件显示不同的样式(颜色、字体、对齐方式,大小等)
- AngularJS进阶(七)实现根据不同条件显示不同控件
- 在Dynamics AX 中按条件分不同颜色显示表格中的记录
- AngularJS实现根据不同条件显示不同控件
- DBGridEH根据某一字段不同值显示不同的行颜色
- SharePoint 2013 日历根据Category显示不同颜色
- 用level-list让同一个ImageView根据条件来显示不同的内容
- 在gridview根据不同的状态显示不同的颜色
- dbgrid 根据某一列的值,改变颜色及该列的显示值
- DBGrid 单双行显示不同颜色
- repeater根据不同字段显示不同颜色