| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
 Publicado: Lun 24 Nov, 2008 10:54 am Asunto: ShowProgress en TStatusBar |
 |
|
Sólo una curiosidad ¿Hay alguna posibilidad de hacer que la barra de progreso de un impresión salga en un TStatusBar en lugar de en un panel en el centro de la pantalla?
_________________
Un saludo
Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA) |
|
| Volver arriba |
|
 |
_Leo
Site Admin
Registrado: 11 Ago 2002Mensajes: 1875Ubicación: Lanzarote - Islas Canarias (España)
|
| Publicado: Mar 02 Dic, 2008 8:05 pm Asunto: |
|
|
En el evento "BeforePrint" del QuickReport pon lo siguiente:
| Código: | if (Sender->QRPrinter->Client->ClassNameIs("TQRProgressForm"))
Sender->QRPrinter->Client = Form1; // El Form donde queremos recibir CM_QRPROGRESSUPDATE |
Y luego en el Form que hemos indicado arriba::
| Código: | private: // User declarations
void __fastcall CmQrProgressUpdate(TMessage& msg)
{
ProgressBar1->Position = msg.WParamLo;
inherited::Dispatch(&msg);
}
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(CM_QRPROGRESSUPDATE, TMessage, CmQrProgressUpdate)
END_MESSAGE_MAP(inherited) |
Y llamaríamos al report así:
| Código: | QuickReport2->ShowProgress = false; // <-- importante
QuickReport2->Print(); |
Ultima edición por _Leo el Mie 03 Dic, 2008 1:10 pm, editado 2 veces |
|
| Volver arriba |
|
|
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
|
| Volver arriba |
|
|
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
| Publicado: Mar 10 Mar, 2015 5:32 pm Asunto: |
|
|
Hace ya años de esta respuesta de Leo, y no sé si la gente sigue activa en el foro. Estoy adaptando a Builder 6 (ya sé que hay muchas versiones posteriores a esta pero no me acabo de adaptar) una aplicación y el código que me dio Leo, que funcionaba a la perfección en Builder 5, ahora me da este error:
en el BeforePrint, más exactamente en la línea:
| Código: | if (Sender->QRPrinter->Client->ClassNameIs("TQRProgressForm")) |
¿Alguien puede ayudarme?
_________________
Un saludo
Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA) |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
