unidbgrid 设置 单元格颜色




 




procedure TF_Resource2.UniDBGrid1DrawColumnCell(Sender: TObject; ACol,

  ARow: Integer; Column: TUniDBGridColumn; Attribs: TUniCellAttribs);

begin

  if Column.FieldName='zt' then

  begin

    if Column.Field.AsString='通过' then

    begin

      Attribs.Font.Color:=clGreen;

    end;

  end ;

end;