Ver Mensaje Individual
  #8  
Antiguo 21-11-2005
Avatar de Cabanyaler
Cabanyaler Cabanyaler is offline
Miembro
 
Registrado: jun 2003
Ubicación: País Valencià
Posts: 339
Reputación: 21
Cabanyaler Va por buen camino
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;
__________________
El meu país és tan petit, que des de dalt d'un campanar es pot veure el campanar veí.
Responder Con Cita