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;