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;