dbgrid根据值改变行的颜色
2006-07-30 22:07
302 查看
我在制作模拟划菜程序的时候,要依据ordr表的void值改变行的颜色
终于找到的方法,以下是代码
在窗体中添加Colorgird1
form ONCreate事件添加
ColorGrid1.ForeGroundIndex:=9;
ColorGrid1.BackGroundIndex:=15;
9是红色
15是白色
dbgrid的DrawDataCell事件添加
procedure TForm1.DBGrid2DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if cds2.Fieldbyname('VOID').value='Y' then
DBGrid2.Canvas.Brush.Color:=ColorGrid1.ForeGroundColor
else
if cds2.Fieldbyname('CNT').value<0 then
DBGrid2.Canvas.Brush.Color:=clYellow
else
DBGrid2.Canvas.Brush.Color:=ColorGrid1.BackGroundColor;
DBGrid2.Canvas.FillRect(Rect);
DBGrid2.Canvas.TextOut(Rect.left+2,Rect.top+2,Field.AsString);
dbgrid要刷新
DBGrid2.refresh;
dbgrid中不能add fields,一添加了数据显示不出来,不知道为什么,只能动态设定标题
DBGrid2.Columns[0].Title.caption:='编码';
DBGrid2.Columns[0].Width:=60;
DBGrid2.Columns[1].Title.caption:='名称';
DBGrid2.Columns[1].Width:=100;
DBGrid2.Columns[2].Title.caption:='点选人';
DBGrid2.Columns[2].Width:=40;
DBGrid2.Columns[3].Title.caption:='数量';
DBGrid2.Columns[3].Width:=40;
DBGrid2.Columns[4].Title.caption:='单位';
DBGrid2.Columns[4].Width:=40;
DBGrid2.Columns[5].Title.caption:='辅助数量';
DBGrid2.Columns[5].Width:=40;
DBGrid2.Columns[6].Title.caption:='上传时间';
DBGrid2.Columns[6].Width:=100;
DBGrid2.Columns[7].Title.caption:='价格';
DBGrid2.Columns[7].Width:=40;
DBGrid2.Columns[8].Title.caption:='总价格';
DBGrid2.Columns[8].Width:=40;
DBGrid2.Columns[9].Title.caption:='取消';
DBGrid2.Columns[9].Width:=40;
DBGrid2.Columns[10].Title.caption:='取消人';
DBGrid2.Columns[10].Width:=40;
end;
终于找到的方法,以下是代码
在窗体中添加Colorgird1
form ONCreate事件添加
ColorGrid1.ForeGroundIndex:=9;
ColorGrid1.BackGroundIndex:=15;
9是红色
15是白色
dbgrid的DrawDataCell事件添加
procedure TForm1.DBGrid2DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if cds2.Fieldbyname('VOID').value='Y' then
DBGrid2.Canvas.Brush.Color:=ColorGrid1.ForeGroundColor
else
if cds2.Fieldbyname('CNT').value<0 then
DBGrid2.Canvas.Brush.Color:=clYellow
else
DBGrid2.Canvas.Brush.Color:=ColorGrid1.BackGroundColor;
DBGrid2.Canvas.FillRect(Rect);
DBGrid2.Canvas.TextOut(Rect.left+2,Rect.top+2,Field.AsString);
dbgrid要刷新
DBGrid2.refresh;
dbgrid中不能add fields,一添加了数据显示不出来,不知道为什么,只能动态设定标题
DBGrid2.Columns[0].Title.caption:='编码';
DBGrid2.Columns[0].Width:=60;
DBGrid2.Columns[1].Title.caption:='名称';
DBGrid2.Columns[1].Width:=100;
DBGrid2.Columns[2].Title.caption:='点选人';
DBGrid2.Columns[2].Width:=40;
DBGrid2.Columns[3].Title.caption:='数量';
DBGrid2.Columns[3].Width:=40;
DBGrid2.Columns[4].Title.caption:='单位';
DBGrid2.Columns[4].Width:=40;
DBGrid2.Columns[5].Title.caption:='辅助数量';
DBGrid2.Columns[5].Width:=40;
DBGrid2.Columns[6].Title.caption:='上传时间';
DBGrid2.Columns[6].Width:=100;
DBGrid2.Columns[7].Title.caption:='价格';
DBGrid2.Columns[7].Width:=40;
DBGrid2.Columns[8].Title.caption:='总价格';
DBGrid2.Columns[8].Width:=40;
DBGrid2.Columns[9].Title.caption:='取消';
DBGrid2.Columns[9].Width:=40;
DBGrid2.Columns[10].Title.caption:='取消人';
DBGrid2.Columns[10].Width:=40;
end;
相关文章推荐
- delphi DxDBgrid根据单元格数据使单元格改变颜色
- delphi Cxdbgrid 根据单元格数据使单元格改变颜色
- dbgrid 根据某一列的值,改变颜色及该列的显示值
- 根据绑定的值的不同改变gridview里某一单元格的字体或背景颜色
- 怎么在EXCEL中根据单元格内容来改变颜色
- 根据条件改变TreeView的颜色
- android中控制根据是否选中或者按下改变按钮的颜色(通过xml代码实现)
- 用GDI+画图像,根据鼠标区域改变填充颜色
- wpf datagrid 单元格根据内容改变颜色
- 关于DevExpress WPF DataGrid 如何根据某列内容来改变整行颜色
- RDLC 根据条件改变背景颜色-多个IIF
- Dev-Gridview中根据条件改变行颜色及单元颜色
- GridControl根据条件改变单元格/行颜色(Dev GridControl 单元格着色)
- iOS中怎么在滚动试图页面根据偏移改变状态栏的颜色
- cxGrid根据条件改变文字颜色
- ExtJS GridPanel根据条件改变字体颜色
- 如何根据判断数据的结果,改变DataGridView中对应记录的背景颜色?
- 在PPT中让文字根据需要改变颜色方法
- 汇编语言使用根据BIOS输入字符改变屏幕颜色
- dev grdicontrol 根据条件改变行颜色,字体颜色等