cambiar de color CIERTOS renglones en un DBGRID

[advancexz]

en un DBGRID como puedo cambiar el color ya sea de la letra o del fondo del renglon, en ciertos registros que cumplan con una condicion??

[[coso]]

Hola, debes usar el evento OnDrawCell o OnDrawColumnCell

Código Delphi [-]

procedure T_lfact.DBGrid1DrawColumnCell(Sender : TObject; const Rect : TRect;
     DataCol : Integer; Column : TColumn; State : TGridDrawState);
var
    md,ms : integer;
begin
     if Column.Field = nil then begin inherited; exit; end;

     if condicion then
     begin
          inherited;
          DBGrid1.Canvas.Brush.Color := clRed;
          DBGrid1.Canvas.FillRect(Rect);
     end;

     md := Rect.Left + ((Rect.Right - Rect.Left) div 2) -
          (DBGrid1.Canvas.TextWidth(data) div 2);
     ms := Rect.Top + ((Rect.Bottom - Rect.top) div 2) -
          (DBGrid1.Canvas.TextHeight(data) div 2);
     DBGrid1.Canvas.TextOut(md, ms, data);
end;

[*Caro*]

Hola advancexz, revisa también este hilo http://www.clubdelphi.com/foros/show...ghlight=DBGrid

Saluditos