Ver Mensaje Individual
  #5  
Antiguo 09-03-2023
Avatar de pgranados
pgranados pgranados is offline
Miembro
 
Registrado: sep 2022
Ubicación: México
Posts: 264
Reputación: 2
pgranados Va por buen camino
Con un componente de 1st Class lo logro en el evento OnDrawDataCell

Código Delphi [-]
procedure TFormaAdministrarXML.wwDBGrid1DrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
begin
      if DModuloEmpresa.FDQueryUsuarios.FieldByName('USUARIO').Value <> '' then
        wwDBGrid1.Canvas.Brush.Color:= wwDBGrid1.Color
      else
        wwDBGrid1.Canvas.Brush.Color:= clRed; // Vacio

      wwDBGrid1.DefaultDrawDataCell(rect, field, state);
end;
Responder Con Cita