Evento con una fila en DBGrid

[verito_83mdq]

Hoola Caral!! Claro cuando dije pintada me refería a recorrerla con las flechas y al posicionarme me muestra la info que te comentaba antes. Ahora bien, el evento OnChange no esta en el Dbgrig, vos que que lo ponga en el datasource? Se entiende un poco mas ahora?
Gracias como siempre.

[[Caral]]

Hola
Ponlo en el Query, ahi te va a funcionar muy bien.
Saludos

[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!!!!