Como pintar la fila de un DBGrid

[Gustavo Gowdak]

Hola amigos, tengo un DBGrid donde muestros los datos de mis facturas y quiero saber como puedo hacer para que las facturas que no han sido pagadas el fondo de la fila me lo pinte de rojo u otro color y el resto me mantenga el color de original.

[droguerman]

revisa este ejemplo, lo aplicas en el evento DrawColumnCell

Código Delphi [-]procedure TfmAlmacen.dbgDetalleDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var i : integer; begin with dbgDetalle, dbgDetalle.DataSource.DataSet do begin if fieldByName('nroRevision').AsInteger=0 then Canvas.Brush.Color := clWindow else Canvas.Brush.Color := clRed; Canvas.Font := Column.Font; Canvas.Font.Color := Column.Font.Color; Canvas.Font.Style := Column.Font.Style; SetBkMode(Canvas.Handle, TRANSPARENT); Canvas.FillRect(Rect); case Column.Alignment of taRightJustify : begin SetTextAlign(Canvas.Handle, TA_RIGHT); I := Rect.Right - 2; end; taLeftJustify : begin SetTextAlign(Canvas.Handle, TA_LEFT); I := Rect.Left + 2; end; else begin SetTextAlign(Canvas.Handle, TA_CENTER); I := (Rect.Right + Rect.Left) DIV 2; end; end; { case } Canvas.TextRect(Rect, I, Rect.Top + 2, VarToStr(Column.Field.Value) ); end; end;

[vtdeleon]

Saludos

En esta mismi hilo, abajo, hay enlaces que te pueden ayudar. Dale pa'bajo a esta pagina.