Prepare del QReport

[[coso]]

Hola, desde la ayuda de delphi

property Available : Boolean (read only)

Applies to

TCustomQuickRep, TQuickRep

Description

Use the Available property if you need to know if it's safe to call a report's Preview or Print method. If the report is already active Available will return False and the report cannot run. If Available is True it's ok to run the report.

nunca la he usado, pero estara la solucion usandola. (por ejemplo, imprimirbtn.Enabled := QuickRep1.Avaible; ) saludos

[lbidi]

Hola, coso. Gracias por responder antes que nada.

Ese codigo que pusistes en mi caso no funcionaria porque el boton de imprimir , es el que crea el reporte , lo prepara, lo imprime y lo destruye.

Algo asi es lo que tengo..

Código Delphi [-]
Application.CreateForm(Tf_Reporte, f_Reporte);
qrydatos.DisableControls;
f_reporte.RepListas.Prepare;
while not f_reporte.RepListas.Available do
begin
end;
f_reporte.RepListas.Preview;
qrydatos.EnableControls;

No se me ocurrio otra manera de utilizar la propiedad "available".
Y aun asi, se muestra el preview antes de terminar de procesar todos los
registros.

Cualquier monedita sirve..

Gracias

[ctrl_attack]

Hola pues no se si sea la mejor manera pero se me ocurrio, que si usaras un progressbar, que este en otro formulario, y lo mostraras en lo que se prepara el form donde esta el quick report, pues no seria mucho lio, aunque solo es una idea a lo mejor funcione, yo tuve un problema, con una aplicacion qu demoraba mucho en mostrar un form, asi que le hice esto

Código Delphi [-]
form_espere.Show;
  form_espere.Update;
     form_espere.progressbar1.StepIt;
         Form_amostrar := TForm_amostrar.Create(Application);
form_espere.progressbar1.StepIt;
       Form_amostrar.Show;
              form_espere.progressbar1.StepIt;
       Form_amostrar.Update;
      form_espere.progressbar1.StepIt;
  form_espere.close;

yo asi lo hice con un form, supongo que no habra muchos problemas en adaptarlo al qreport, intentalo pero con el prepare, para que asi muestre el form donde pongas el progressbar, y mientras se valla cargando el prepare, valla cargando el progressbar, cuando finalize ya le pones el Preview;

Bueno amigo es solo una idea, pero si la llevas a cabo y la pruebas, por lo menos asi sabremos si funciona o no,

[Kipow]

Código Delphi [-]
try    
   qryDatos.DisableControls;    
   imprimirbtn.enabled := false;    
   Application.CreateForm(Tf_Reporte, f_Reporte);    
   f_reporte.RepListas.Prepare;    
   f_reporte.RepListas.Preview;     
finally    
   qrydatos.EnableControls;    
   imprimirbtn.enabled := true; 
end;

[ctrl_attack]

con eso se deshabilitan los controles del preview??

o los del form de donde se llama el preview?

[Kipow]

Empezado por ctrl_attack

con eso se deshabilitan los controles del preview??

o los del form de donde se llama el preview?

Los del form que llama al preview, los del preview solo que tengas un preview a medida (custom preview). el unico boton que hay que deshabilitar es el que genera el preview (imprimebtn)

[Kipow]

post repetido.