unigrid行颜色

admin

procedure TMainForm.UniDBGrid1DrawColumnCell(Sender: TObject; ACol,
  ARow: Integer; Column: TUniDBGridColumn; Attribs: TUniCellAttribs);
begin
  if adodataset1.FieldByName('ffenlei').AsInteger=5 then attribs.Color:=clred;;

end;