我自己找到方法了
with dbg_kcbj do
begin
if (AQ_KCBJ.FieldByName('kcsl').AsString = '0') and (Column.FieldName = 'kcsl')
then
canvas.Font.Color := clRed
else
Canvas.Font.Color := clBlack;
DefaultDrawColumnCell(Rect,DataCol,Column, State);
end;
with dbg_kcbj do
begin
if (AQ_KCBJ.FieldByName('kcsl').AsString = '0') and (Column.FieldName = 'kcsl')
then
canvas.Font.Color := clRed
else
Canvas.Font.Color := clBlack;
DefaultDrawColumnCell(Rect,DataCol,Column, State);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货