procedure TForm1.dxDBGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: String; var AColor: TColor; AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean); begin if (AColumn=dxDBGrid1Column2) and (ADOQuery1.FieldByName('XBC').Value='0') then begin AColor:=clRed; //背景 AFont.Color:=clBlack; //字体 end;
if (AColumn=dxDBGrid1Column2) and (ADOQuery1.FieldByName('XBC').Value>'12') then begin AColor:=clGreen; AFont.Color:=clBlue; end;
if (AColumn=dxDBGrid1Column2) and (ADOQuery1.FieldByName('XBC').Value>'20') then begin AColor:=clBackground; AFont.Color:=clCaptionText; end;
end;