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
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....."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 .....
....
,...
RETURNFUNCIONA,
muchas gracias, me traia un poco de cabeza.
Salu2
Javier