Ver Mensaje Individual
  #3  
Antiguo 02-11-2011
Choclito Choclito is offline
Miembro
 
Registrado: jul 2004
Posts: 169
Reputación: 20
Choclito Va por buen camino
falta algo

gracias por el aporte ecfisa;
El codigo que me brindaste lo cambie pero no hace nada el codigo cambiado es el sgte;
Código Delphi [-]
procedure TF_Principal.JvDBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if ((gdSelected in State) and (FPintar<>'')) then
    with (Sender as TjvDBGrid) do
    begin
     if mdoq_listado.FieldByName('codigo').AsString=fpintar then
 begin
      Canvas.Brush.Color:= clblue;
      Canvas.Font.Color:= clWhite;
      DefaultDrawColumnCell(Rect, DataCol, Column, State);
      FPintar:='';
      end;
    end;
y en el boton:
Código Delphi [-]
procedure TF_Principal.Button2Click(Sender: TObject);
var i:integer;
begin
FPintar:= edit1.Text;  // variable privada a TForm1
  jvDBGrid1.Invalidate;
end;
Como se ve lo que quisiera es que registrando en un edit el codigo de una de las oficinas que se busque en el dbgrid y se pinte la fila en un tiempo determinado y emitiendo un sonido
Gracias amigo por los aportes
Responder Con Cita