BUTTOMBAR EN DIALOG

[helvant]

buenas, estoy intentando poner una buttombar en un dialog, es un recurso de la dll de mi programa, y cuando defino la buttombar el programa me da error en ejecución de que no puede crear el dialog.
¿ cómo puedo hacerlo?

muchas gracias.
salu2
Javier Pérez

[Manuel Aranda]

Así:

Code: Select all  Expand view

Local oBarraBotones

  DEFINE BUTTONBAR oBarraBotones;  // Se define Barra de Botones (Objeto: BUTTONBAR).
  SIZE 34,34;                      // Tama¤o en pixeles de los botones
  3D;                              // Vista en efecto 3¦ dimensi¢n
  TOP;                             // Se despliega en la parte superior de la ventana.
  OF oVentPrinc;                   // Se indica que pertenece a la ventana principal.
  CURSOR oCursorMano               // Se define tipo de cursor al posicionarse en la barra.

/********  Definimos Botones que incluiremos en la Barra de Botones */

  DEFINE BUTTON oBtn[1] RESOURCE "PTRABAJA" OF oBarraBotones ;
         TOOLTIP OemToAnsi(" Trabajadores ");
         NOBORDER;
         ACTION ( oBtn[1]:Toggle(),; // Primero mantenemos Presionado el Bot¢n
                  SndPlaySound("click.wav"),;
                  BrwDato("TRABAJA",nSerie,nRango),;         // llamamos a la funci¢n
                  oBtn[1]:GoUp() );  // Al terminar Levantamos el bot¢n
         GROUP;                         // Se inicia nuevo grupo de iconos
         MESSAGE "Mantenimiento de la Base de Datos de Trabajadores....."

  DEFINE BUTTON oBtn[2] RESOURCE "PEMPRESA" OF oBarraBotones ;
         TOOLTIP OemToAnsi(" Empresas ") NOBORDER;
         ACTION ( oBtn[2]:Toggle(),;
                  SndPlaySound("click.wav"),;
                  BrwDato("EMPRESAS",nSerie,nRango),;
                  oBtn[2]:GoUp() );
         MESSAGE "Mantenimiento de la Base de Datos de Empresas....."



[R.F.]

Las barras de botones no pueden ser colocadas directamente en los dialogos como se hace con una ventana, tienes que recurrir al evento ON INIT del dialogo para colocarle la barra de botones, asi:

Code: Select all  Expand view

DEFINE DIALOG oDlg ...........

ACTIVATE DIALOG oDlg ON INIT (DlgBar(oDlg))

/* en la funcion DlgBar vamos a construir la barra de botones */

FUNCTION oDlgBar(oDlg)
   LOCAL oBar
   DEFINE BUTTONBAR oBar OF oDlg ......
   DEFINE BUTTON OF oBar .....
   ....
   ,...
RETURN

[helvant]

FUNCIONA,
muchas gracias, me traia un poco de cabeza.

Salu2
Javier