2,498
社区成员
发帖
与我相关
我的任务
分享
procedure TMedicalFrm.DBGridEh1DrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State: TGridDrawState);
var L:string;
begin
L:=DBGridEh1.DataSource.DataSet.FieldByName('字段名').integer;
if L mod 2=0 then
begin
DBGridEh1.Canvas.Font.Color:=clBlack;
DBGridEh1.Canvas.pen.mode:=pmmask;
DBGridEh1.DefaultDrawDataCell(Rect, Field, State);
end
else begin
DBGridEh1.Canvas.Font.Color:=clBlue;
DBGridEh1.Canvas.pen.mode:=pmmask;
DBGridEh1.DefaultDrawDataCell(Rect, Field, State);
end;
end;