Evento con una fila en DBGrid

[jafera]

Pues no se, yo tengo puesto en una de mis aplicaciones que si en un campo hay un valor X, entonces me ponga el fondo en color amarillo y la letra en rojo para que resalte y funciona perfectamente.

Igual si pones donde te lanza el error podemos ayudarte mejor.

En cuanto al like que dices que te traba, yo hago busquedas similares donde me devuelve mas de 100 registros y no se me bloquea.

Yo uso Firebird y IBX en Delphi 6

Saludos

Josep

[verito_83mdq]

Jafera ahi lo puse otra vez en el evento DrawColumnCel y ahora anda fluido, ayer lo probé varias veces y se trababa todo. Si llega a andar así me ahorraría un montón de código. Lo que me hace es que a veces no me actualiza los estados de los clientes por ahí si un cliente esta activo pero vengo de un rescindido el que esta activo me lo marca como rescindido y viceversa, no se si te pasara esto a vos? Sera problema del código mio?

Código Delphi [-]
procedure TBuscarForm.ClientesDBGridDrawColumnCell(Sender: TObject; 
  const Rect: TRect; DataCol: Integer; Column: TColumn; 
  State: TGridDrawState); 
begin 
 
 
 
       if (gdSelected in State) then 
          begin 
           TDBGrid(sender).Canvas.Brush.Color:=$00E8D3B5; 
           TDBGrid(sender).DefaultDrawColumnCell(Rect,DataCol,Column,State); 
          end; 
 
 
 
 
           if QueryDataModule.ClienteZQuery.FieldByName('Baja').Value=1 then 
                  begin 
 
                     if QueryDataModule.ClienteZQuery.FieldByName('Conyuge').IsNull then 
                         DatosConyugeBitBtn.Visible:=false 
                     else 
                       begin 
                         DatosConyugeBitBtn.Visible:=QueryDataModule.ClienteZQuery.FieldByName('Conyuge').Value; 
                         DatosConyugeBitBtn.Font.Color:=clred; 
                       end; 
 
 
 
                     if QueryDataModule.ClienteZQuery.FieldByName('Observaciones_Check').IsNull then 
                         ObservacionesBitBtn.Visible:=false 
                     else 
                       begin 
                         ObservacionesBitBtn.Visible:=QueryDataModule.ClienteZQuery.FieldByName('Observaciones_Check').Value; 
                         ObservacionesBitBtn.Font.Color:=clred; 
                        end; 
 
 
                         BorrarBitBtn.Font.Color:=clRed; 
                         DatosClienteBitBtn.Font.Color:=clred; 
                         DatosVentaBitBtn.Font.Color:=clred; 
                         EstadoBitBtn.Font.Color:=clred; 
                         ExportarBitBtn.Font.Color:=clred; 
                         ImprimirBitBtn.Font.Color:=clred; 
                         UltimaModificacionBitBtn.Font.Color:=clred; 
                         PagosBitBtn.Font.Color:=clred; 
                         ContracargosBitBtn.Font.Color:=clred; 
                         TarjetasBitBtn.Font.Color:=clred; 
                         RescindirBitBtn.Font.Color:=clred; 
                         BitBtn1.Font.Color:=clred; 
                         BitBtn2.Font.Color:=clred; 
 
                  end 
 
                else 
 
                 begin 
                    // Si el cliente esta activo, pone botones en verde 
 
 
                    if QueryDataModule.ClienteZQuery.FieldByName('Conyuge').IsNull then 
                         DatosConyugeBitBtn.Visible:=false 
                    else 
                      begin 
                         DatosConyugeBitBtn.Visible:=QueryDataModule.ClienteZQuery.FieldByName('Conyuge').Value; 
                         DatosConyugeBitBtn.Font.Color:=clGreen; 
                      end; 
 
 
 
 
 
 
                      if QueryDataModule.ClienteZQuery.FieldByName('Observaciones_Check').IsNull then 
                         ObservacionesBitBtn.Visible:=false 
                     else 
                       begin 
                         ObservacionesBitBtn.Visible:=QueryDataModule.ClienteZQuery.FieldByName('Observaciones_Check').Value; 
                         ObservacionesBitBtn.Font.Color:=clGreen; 
                        end; 
 
 
 
                         DatosClienteBitBtn.Font.Color:=clGreen;; 
                         DatosVentaBitBtn.Font.Color:=clGreen; 
                         BorrarBitBtn.Font.Color:=clGreen; 
                         EstadoBitBtn.Font.Color:=clGreen; 
                         ExportarBitBtn.Font.Color:=clGreen; 
                         ImprimirBitBtn.Font.Color:=clGreen; 
                         UltimaModificacionBitBtn.Font.Color:=clGreen; 
                         PagosBitBtn.Font.Color:=clGreen; 
                         ContracargosBitBtn.Font.Color:=clGreen; 
                         TarjetasBitBtn.Font.Color:=clGreen; 
                         RescindirBitBtn.Font.Color:=clGreen; 
                         BitBtn1.Font.Color:=clGreen; 
                         BitBtn2.Font.Color:=clGreen; 
                  end; 
 
 
 
 
 
 
 
                         DatosClienteBitBtn.Visible:=True; 
                         DatosVentaBitBtn.Visible:=True; 
                         BorrarBitBtn.Visible:=True; 
                         EstadoBitBtn.Visible:=True; 
                         ExportarBitBtn.Visible:=True; 
                         ImprimirBitBtn.Visible:=True; 
                         UltimaModificacionBitBtn.Visible:=True; 
                         PagosBitBtn.Visible:=True; 
                         ContracargosBitBtn.Visible:=True; 
                         TarjetasBitBtn.Visible:=True; 
                         RescindirBitBtn.Visible:=True; 
                         BitBtn1.Visible:=True; 
                         BitBtn2.Visible:=True; 
 
 
 
 
end;

Ahi esta el procedimiento entero, Desde ya gracias por la ayuda a todos no solo a jafera, son todos muy amables.

[jafera]

El campo observaciones_check que valores toma?

Pones algo de valor null, yo le asignaria siempre un valor 0-1, S-N y no trabajaria con null porque null no es nada.

Cuando tengo un campo chek yo por defecto le asigno siempre valor en el newrecord, esto me ahorra muchos problemas.

Tambien podrias dejar los botones siempre visibles pero ponerle enabled a false, no se lo digo sin ver el resultado que quieres conseguir con tu interface.

Hasta pronto

Josep

[Aleca]

fijate este codigo (no lo pude probar)

Código Delphi [-]
procedure TBuscarForm.ClientesDBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
  cColor: TColor;
begin
  if State = [] then
    TDBGrid(sender).Canvas.Brush.Color := clWhite
  else
  begin
    TDBGrid(sender).Canvas.Brush.Color := $00E8D3B5;
    //Veo que esto lo haces x cada celda cuando no te cambia la info, lo haria para la primer celda nada más.
    if Column.Index = 0 then
    begin
      with QueryDataModule.ClienteZQuery do
      begin
        //por lo que vi la visibilidad depende del valor del campo y no si esta activo o no.
        if FieldByName('Conyuge').IsNull then //Aca coincido con jafera
          DatosConyugeBitBtn.Visible := false
        else
          DatosConyugeBitBtn.Visible := FieldByName('Conyuge').Value;

        if FieldByName('Observaciones_Check').IsNull then
          ObservacionesBitBtn.Visible:=false
        else
          ObservacionesBitBtn.Visible := FieldByName('Observaciones_Check').Value;

        if FieldByName('Baja').Value = 1 then
          cColor := clRed
        else
          // Si el cliente esta activo, pone botones en verde
          cColor := clGreen;

        DatosConyugeBitBtn.Font.Color := cColor;
        ObservacionesBitBtn.Font.Color := cColor;
        BorrarBitBtn.Font.Color := cColor;
        DatosClienteBitBtn.Font.Color := cColor;
        DatosVentaBitBtn.Font.Color := cColor;
        EstadoBitBtn.Font.Color := cColor;
        ExportarBitBtn.Font.Color := cColor;
        ImprimirBitBtn.Font.Color := cColor;
        UltimaModificacionBitBtn.Font.Color := cColor;
        PagosBitBtn.Font.Color := cColor;
        ContracargosBitBtn.Font.Color := cColor;
        TarjetasBitBtn.Font.Color := cColor;
        RescindirBitBtn.Font.Color := cColor;
        BitBtn1.Font.Color := cColor;
        BitBtn2.Font.Color := cColor;

        //Estos true no harian falta x que no veo que los pongas en falso
        DatosClienteBitBtn.Visible:=True;
        DatosVentaBitBtn.Visible:=True;
        BorrarBitBtn.Visible:=True;
        EstadoBitBtn.Visible:=True;
        ExportarBitBtn.Visible:=True;
        ImprimirBitBtn.Visible:=True;
        UltimaModificacionBitBtn.Visible:=True;
        PagosBitBtn.Visible:=True;
        ContracargosBitBtn.Visible:=True;
        TarjetasBitBtn.Visible:=True;
        RescindirBitBtn.Visible:=True;
        BitBtn1.Visible:=True;
        BitBtn2.Visible:=True;
        //se podria sacar.
      end;
    end;
  end;
  TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

[verito_83mdq]

Aleca como andas?? Hace poco que estoy en esta comunidad y ya les tome aprecio, espero que con el tiempo yo también pueda dar una mano como hacen ustedes, recién estoy empezando en esto. Vos sabes que con el código que me pasaste pude arreglar el problema, le modifique algunas cosas que mencionaron ustedes salvo la ultima parte de los botones que los pongo en Visible:=True, eso es porque en el form create los oculto, y si no aparece el cliente también los oculto, es por eso.

Bueno a todos los que me ayudaron Aleca, Jafera,Caral, les digo gracias! Seguiré trabajando en en el programa, nunca les conté pero este trabajo es para un final de la facultad, no es para venderlo!
Saludos!