2Pascal-新时代的Pascal

标题: unigrid行颜色 [打印本页]

作者: admin 时间: 2015-11-8 10:53
标题: unigrid行颜色
procedure TMainForm.UniDBGrid1DrawColumnCell(Sender: TObject; ACol,
ARow: Integer; Column: TUniDBGridColumn; Attribs: TUniCellAttribs);
begin
if adodataset1.FieldByName('ffenlei').AsInteger=5 then attribs.Color:=clred;;

end;

欢迎光临 2Pascal-新时代的Pascal (http://2pascal.com/)