您好,欢迎来到[编程问答]网站首页   源码下载   电子书籍   软件下载   专题
当前位置:首页 >> 编程问答 >> Delphi >> 如何改变DBGridEh中其中某个单元格的字体颜色??

如何改变DBGridEh中其中某个单元格的字体颜色??

来源:网络整理     时间:2016/7/7 15:19:07     关键词:

关于网友提出的“ 如何改变DBGridEh中其中某个单元格的字体颜色??”问题疑问,本网通过在网上对“ 如何改变DBGridEh中其中某个单元格的字体颜色??”有关的相关答案进行了整理,供用户进行参考,详细问题解答如下:

问题: 如何改变DBGridEh中其中某个单元格的字体颜色??
描述:

如何改变DBGridEh中其中某个单元格的字体颜色??


解决方案1:

if (Column.FieldName='ITEM_TYPE') and
     (DbGridEh1.DataSource.DataSet.FieldByName('ITEM_TYPE').AsString='P') then
       DbGridEh1.Canvas.Brush.color:=clred;
  DbGridEh1.DefaultDrawColumnCell (Rect, DataCol, Column, State);
這是個例子,具體字段要你自己看著辦

解决方案2:

给你个改变某行的颜色;某个单元格自己修改下
procedure TfrmBorrow.dgrdUnDataGetCellParams(Sender: TObject;
  Column: TColumnEh; AFont: TFont; var Background: TColor;
  State: TGridDrawState);
begin
  if (Sender as TDBGridEh).DataSource.DataSet.FieldByName('Returned').AsString='1' then
    Background:=_clReturn;
  if (Sender as TDBGridEh).DataSource.DataSet.FieldByName('unAudited').AsString='AAA' then
    Background:=_clAuditedEnd;
  if (Sender as TDBGridEh).DataSource.DataSet.FieldByName('BBB').AsString = '2' then
    Background := clRed;
end;

解决方案3:

在OnDrawColumnCell事件里重绘,根据指定的行列,用Canvas.FillRect填充底色,DefaultDrawColumnCell来重绘内容。旧贴里有很多,自己搜索一下。


以上介绍了“ 如何改变DBGridEh中其中某个单元格的字体颜色??”的问题解答,希望对有需要的网友有所帮助。
本文网址链接:http://www.codes51.com/itwd/2384034.html

相关图片

相关文章