Club Builder

_Willa · Invitado

Hola:
Haber si sabe alguien como activar/desactivar
los botones que aparecen a la hora de presentar una consulta quickreport
(esos botones, son los de impresora, grabar, movimientos, configuración ... )
es decir, como puedo definir la visualizacion individualmente de cada uno de los botones que salen en quickreport.
Salu2
_Willa

TOÑO · Invitado

HOLA:

Supongo que se puede, pero QReport trae algo mejor que es tu te puedes crear tu propio navegador, asi tienes un control total.

Nota: Esto lo vi hace mucho, mucho tiempo, hechale un vistazo, si no ves nada mirare mi codigo, pero no tengo ni idea de donde lo puedo tener.

By.

_Leo · Invitado

Hola Willa:

A ver si te sirve esto, solo lo he probado en la versión 6, pero tendría que funcionar bien al menos desde la 4...

Prueba a meter el siguiente código en el evento OnBeforePrint del informe en cuestión:

  HWND w = FindWindow("TQRStandardPreview", NULL);
  w = FindWindowEx(w, NULL, "TToolBar", NULL);
  if (IsWindow(w))
  {
      TToolBar *toolBar = dynamic_cast<TToolBar*>(FindControl(w));
      // Deshabilitamos algunos botones
      toolBar->Buttons[1]->Enabled = false;
      toolBar->Buttons[2]->Enabled = false;
      toolBar->Buttons[3]->Enabled = false;
      // Cambiamos el texto y tamaño de otro boton
      toolBar->Buttons[16]->Caption = "Cerrar - cambiamos el texto ";
      toolBar->Buttons[16]->Width = 200;
  }

---
aunque me imagino que si habilitas un botón que tiene deshabilitado por defecto al final al pulsarlo saltara un error, ya nos contaras que tal

Y desde luego si necesitas hacer muchos cambios lo más recomendable quizás seria que te crees tu propia previsualización como dice Toño.

Saludos:
_Leo

_Willa · Invitado

Agradezco la colaboración de todos.
Muchas Zenkius!!

Saludos
_Willa

_Willa_ · Invitado

Gracias _Leo
Funciona perfectamente, lo he probado
con builder 5 pro
lo que es curioso es que los botones
printer setup y print no son posibles
desactivar, pero en fin, todo lo demas
si.
Otra cosa curiosa como esta en el evento BeforePrint, tanto al hacer el preview, como el print, entra por esta rutina.
Salu2
_Willa

_Leo · Invitado

Cierto, no lo había comprobado, veo que es porque ese evento salta justo antes de que el qreport actualice el estado de algunos botones. Una forma fácil de conseguir que se desactiven es meter el código en un TTimer con un par de segundos de retardo. Otra sencilla podría ser ocultarlos usando la propiedad Visible en vez de Enabled...

KAYETANO · Invitado

Hola

Esta me la se, existe un fichero llamado qrprev.dfm que esta en c:\archivos de programa\borland\cbuilder5\lib\obj, aqui se encuentrar la definicion del preview y se pueden encontrar objetos tales como los botones:

object SaveReport: TToolButton
Left = 239
Top = 0
Visible = False <-----------
Hint = 'Save Report'
Caption = 'PrintSetup'
ImageIndex = 10
OnClick = SaveClick
end

con la linea marcada (Visible = False) hacemos que este boton desaparezca.

Espero que te sirva de algo

Salu2
KAYETANO