Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Secuencia al pintar un dbgrid (https://www.clubdelphi.com/foros/showthread.php?t=76705)

Choclito 20-11-2011 16:16:29

Secuencia al pintar un dbgrid
 
Buenos dias amigos del foro
Mi problema es el siguiente:
Antes trabajo con Firebird y delphi 7,Tengo un dbgrid asociado a un query y con lo ayuda de amigos del foro pude hacer que teniendo un edit registre un valor del query y que luego de registrar,busque en el query que registro tiene ese valor y lo pinte y emita sonido por un tiempo determinado
Para que me entiendan mejor les doy un ejemploi
tengo un dbgrid con los siguientes datos
Oficina Codigo
Administracion ADM
Fichaje FIC
Contabilidad CON
Almacenes ALM


entonces por medio de un edit registro FIC y la segunda fila parpadea y emite sonido por un tiempo determinado
el codigo es:

Código Delphi [-]
procedure TF_Principal.Button2Click(Sender: TObject);
var i:integer;
begin
     P:=0;
     M:=0;
      FValor:= Trim(Edit1.Text);
  modulo_db.mdoq_listado.Locate('Codigo', Edit1.Text, []);
    TimerBlink.Enabled:=TRUE;
  TimerSound.Enabled:=TRUE;
end;
en el dbgrid es:
Código Delphi [-]
procedure TF_Principal.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
 {if mdoq_listado.FieldByName('Codigo').AsString = Val then
    DBGrid1.Canvas.Brush.Color:= clLime;  // el color de tu gusto
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  }
  const
  CBLNK: array[0..1] of TColor = (clLime, clWhite);
begin
  if modulo_db.mdoq_listado.FieldByName('Codigo').AsString = FValor then
  BEGIN
    DBGrid1.Canvas.Brush.Color:= CBLNK[Integer(FBlink)];
    DBGRID1.Canvas.Font.Color:=CLBLACK;
    END;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

  end;
y los timer son:
Código Delphi [-]
procedure TF_Principal.TimerBlinkTimer(Sender: TObject);
begin
  p:=p+1;
  FBlink:= not FBlink;
  DBgrid1.Invalidate;
  //p:=p+1;
  if p=50  then
TimerBlink.Enabled:=FALSE;
end;

Código Delphi [-]
procedure TF_Principal.TimerSoundTimer(Sender: TObject);
VAR I:INTEGER;
begin
 M:=M+1;
 IF M MOD 5 =0 THEN
  MessageBeep(MB_OK);
   if M=20  then
TimerSound.Enabled:=FALSE;
end;

El problema que tengo es que si registro CON me parpadea y emite sonido todo bien , pero si instantes luego registro en el edit ADM me emite la fila donde esta ADM y lo anterior que estaba parpadeando en el registro CON ya no parpadea,
Como puedo hacer para que se vaya parpadeando segun vaya registrando los datos en el edit ????
asi como si entraria a una cola de datos y en funcion a lo que vaya registrando vaya parpadeando los registros y no como lo tengo ahora que solo un registro parpadea y emite sonido
Se que talves es sencillo pero la verdad nose por donde empezar , estare muy agradecido por su ayuda amigos del foro

ElDioni 21-11-2011 18:54:22

Hola,
he leido tu mensaje y no he entendido muy bien lo que pretendes hacer, puede que tu mensaje no haya obtenido respuesta porque a los demás les ocurra lo mismo que a mi, intenta explicar mejor tu problema para poder entender realmente como quieres que actúe tu programa.

Saludos.

Choclito 22-11-2011 05:22:46

Aclarando
 
Bueno, gracias por responder , entonces nuevamente les explico
Tengo un sistema de colas para la atencion en una institucion, entonces tengo la emision de fichas que se genera de la siguiente manera en un dbgrid de la siguiente manera:

Codigo Oficina Ticket
ADM ADMINISTRACION ADM 1
CON CONTABILIDAD CON 1
FIC FICHAJE FIC 2
EST ESTADISTICA EST 3


Entonces es recibir mediante eventos de firebird el codigo y buscar en el listado y hacerlo parpadear y emitir sonido por un tiempo determinado
Lo pude realizar recibiendo el codigo en un edit y por medio de un boton hacer que parpadee por un tiempo determinado,pero si escribo otro codigo en el edit que este en el dbgrid y llamo al evento del boton aun cuando el anterior codigo sigue parpadeando, lo que hace es que el anterior reglon o registro que estaba parpadeando deja de parpadear y ahora parpadea el reglon o registro asociado al codigo taypeado en el edit.
¿Como puedo hacer que si registro un codigo en el edit y luego parpadea el renglon y si registro otro codigo en el edit parpadee por un tiempo determinado esa fila asociada pero continue parpadeando el anterior registro que estaba parpadeando hasta que cumpla el tiempo asignado?
Espero que se haya entendido el problema que tengo y estare atengo a sus comentarios amigos foreros


La franja horaria es GMT +2. Ahora son las 06:23:31.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi