RXDBGrid.OnDrawColumnCell

[Cabanyaler]

Ya está, a veces las cosas son más sencillas de lo que parecen:
No he escrito lo que queria en el DBGrid, ya que esto suponia escribir en los datos directamente del Dataset, simplemente para no ver lo que no quiero igualo el color de la fuente con el del fondo, de ese modo no se vé.
Gracias a todos y un saludo.

Código Delphi [-]
procedure TFPrincipal.RxDBGridPagosObraDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
        if (RxDBGridPagosObra.Columns[8] = Column) then
           if(DMInstalgas.ADOSP_PagosRegFac_Pag.AsString = '01/01/1900') then
           begin
              RxDBGridPagosObra.Canvas.Font.Color := RxDBGridAlbaran.Color;
           end;
        RxDBGridPagosObra.DefaultDrawColumnCell(rect,DataCol,Column,State);
end;

[Neftali [Germán.Estévez]]

Aunque hay un viejo provervio informático que dice "...si funciona, ¡¡NO LO TOQUES!!", creo que vale la pena que pruebes el método que te comenta Roman del GetText (aunque el que comentas ya te funciona); Es más eficiente, que no volver a dibujar toda la celda.

[Cabanyaler]

Si, gracias, ya lo he mirado, pero aplicaré el corolario
La ventaja que presenta el evento OnGetText frente a tratamiento del Canvas, es que el campo se visualizará del modo establecido en el evento OnGetText en cualquier lugar donde lo visualices, mientras en el OnDrawColumnCell, sólo se aplicará al Grid que lo posee.
Gracias a todos.