[结贴]请问如何根据不同的条件设置DataGrid行字体的颜色

KevinGM

请问如何根据不同的条件设置DataGrid行字体的颜色？高手请赐教。谢谢！

zfang

http://bbs.justep.com/forum.php?mod=viewthread&tid=12040

KevinGM

我需要的不是改变某列字体的颜色，而是要改变某行字体的颜色

zfang

类似的，楼主。
请看论坛的faq里
http://bbs.justep.com/forum.php?mod=viewthread&tid=2430

KevinGM

if dsPGD.DataSet.FieldByName('SH').AsInteger = 0 then
    AFont.Color := clBlue
  else AFont.Color := clRed;

我在DataGridCustomDrawCell事件里写上面的代码，但是效果是选中某行，如果 SH = 0 则把整个表格的字体颜色都变成蓝色，如果 SH = 1 则把整个表格的字体颜色都变成红色。而我的要的效果的自动根据某行 SH值的不同显示不同的颜色

zfang

你是说你的sh存的是颜色信息？

KevinGM

不是，SH存的是这条记录是否被审核，已审核为1，未审核为0

zfang

那我不知道你5楼说的意思了。
你看我的图，是否这样子就可以满足你要求？

atiger

是设置 AColor，不是设置 AFont，请楼主再仔细看一下代码

zfang

procedure TYSXSBDWD.DataGridCustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TTreeListNode; AColumn: TTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: string; var AColor: Integer; AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
begin
  //字体变色
  {Case DataSetBrokerBZSJJ1.DataSet.FieldByName('ys').AsInteger of
    1 : AFont.Color := Business.System.Graphics.clred;
    2 : AFont.Color := Business.System.Graphics.clBlue;
    3 : AFont.Color := Business.System.Graphics.clGreen;
  end;}
  //行变色
  Case DataSetBrokerBZSJJ1.DataSet.FieldByName('ys').AsInteger of
    1 : AColor := Business.System.Graphics.clred;
    2 : AColor := Business.System.Graphics.clBlue;
    3 : AColor := Business.System.Graphics.clGreen;
  end;

end;