EJUNDBGRID改变行颜色

procedure TForm1.EjunDBGrid1CellGetColor(Sender: TObject; ACoord: TPoint;
  var AColor: TColor);
begin
  if EjunDBGrid1.Cells[3, ACoord.Y].AsFloat < 0 then
    AColor := clRed
  else
    AColor := clWindow;
end;