Ver Mensaje Individual
  #1  
Antiguo 18-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
RXDBGrid.OnDrawColumnCell

Hola amigos, una consulta más.

Quiero visualizar en un DBGrid datos referentes a tuplas de una tabla. Entre otros existen campos de tipo fecha y algunas tuplas continen en fecha almacenado el dato '01/01/1900'.
Mi objetivo es no visualizar esas fechas en la columna destinada a este atributo, pero si todas aquellas que tengan fecha diferente a 01/01/1900.

Para ello he hecho este código.

Código Delphi [-]
procedure TFPrincipal.RxDBGridAlbaranDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
        if (RxDBGridAlbaran.Columns[4] = Column) then
           if(DMInstalgas.ADOSP_AlbaranesFecAlb_Alb.AsString = '01/01/1900') then
           begin
              DMInstalgas.ADOSP_Albaranes.Edit;
              RxDBGridAlbaran.Fields[4].Value := NULL;
           end;
end;

Pero el programa se me queda como colgado y como parpadeante dicho RXDBGrid.

¿Sabríais decirme porqué? o ¿como hacerlo?.

Gracias.
__________________
El meu país és tan petit, que des de dalt d'un campanar es pot veure el campanar veí.
Responder Con Cita