Evento con una fila en DBGrid

[verito_83mdq]

Andaaa Vos tenes la bola de cristal!!! Recién lo hice y funciona lo puse en el onchange del query, ahora puedo usar las fechas y ver el estado del cliente. Lo que si tengo miedo de que esto le genere mucho trafico al motor de mysql hacer tantas consultas al mover las flechas, que opinas?
Muchas gracias Caral!!

[[Caral]]

Hola
No lo creo.
Saludos

[verito_83mdq]

Hola Caral!! Tengo otro problema! El drama es el siguiente, los ZQuery y los TDataSource los tengo en un data module fuera de la unidad Buscar, el problema es que cuando pongo el evento onchange como ayer mencionabas me abre el datamodule hasta ahi todo bien, cuando
quiero escribir el cogido por ejem si el cliente este rescindido que me ponga la fuente de color rojo de los botones en el form Buscar ,este no me toma el color y me tira error.

Código Delphi [-]
procedure TQueryDataModule.ClienteDataSourceStateChange(Sender: TObject); 
begin 
              BuscarForm.DatosConyugeBitBtn.Font.Color:=clred; 
 
end;

Me arma la sintaxis perfecta pero cuando le quiero asignar en color no me lo toma, sera que no se puede hacer esto en un datamodule? El problema que si tengo que poner el Zquery en el Form Buscar tengo que modificar bastante el codigo del programa, porque todas las variables de las consultas las saco del DataModule. Espero que me hallas entendido, si me podes dar una mano te lo voy a agradecer!!
Saludos!

[Aleca]

Código Delphi [-]
procedure TFormOrd_Cpra.DBGrillaOCDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  nEst, nImg: Byte;
  gCanvas: TCanvas;
begin
  if Column.Index = 0 then
  begin
    nEst := TDBGrid(Sender).DataSource.DataSet.FieldByName(_Est_Ped).AsInteger;
    gCanvas := TDBGrid(Sender).Canvas;
    case nEst of
      _Ingreso: nImg := 0;
      _Termino: nImg := 1;
      _Impreso: nImg := 2;
    else
      nImg := 3;
    end;
    ImgEstados.Draw(gCanvas, Rect.Left + 2, Rect.Top + 1, nImg);
  end;

con esta opción pongo una imagen según el estado.

[jafera]

Creo que debes tener un campo con el estado del cliente.
Usa este valor para crear un if que compare y que haga la funcion de cambiar el color de la fuente.

Ej.

If estado = cerrado
boton.fuente.color := rojo
sino
boton.fuente.color := negro

Saludos

Josep

[verito_83mdq]

Aleca como andas! Vos sabes que al principio había puesto el código en ese evento el drama es que tardaba mucho en cargar el grid con los datos, porque la búsqueda de clientes lo hago con un like entonces cuando en el buscador pongo la letra 'f' me aparecen 100 clientes y esto hace que se trabe el programa. Estaré haciendo algo mal?? Gracias!!!!

[verito_83mdq]

Jose eso mismo tengo pasa que no puse el código pero lo tengo con un If a todas las observaciones del cliente. Saludos y gracias!!!!!!!!!!!!!!!!!!!!!!!

[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