TOOLBAR com mais de 4 buttons programa fecha
Enviado: 29 Jul 2019 14:59
Meu programa simplesmente fecha ao acessar a janela, isso ocorreu após ter inserido mais buttons na toobar. Testei só permite até 4 buttons. Se alguem pudar me dar uma dica.
Código: Selecionar todos
DEFINE WINDOW TEMPLATE AT 97,86 WIDTH 800 HEIGHT 600 ;
TITLE "Cadastro de Colaboradores" MODAL NOSYSMENU CURSOR NIL ;
ON INIT ( AbrirTablas() , DesactivarEdicion() ) ;
ON RELEASE CerrarTablas();
NOSIZE
DEFINE TOOLBAR ToolBar_x1 BUTTONSIZE 59,35 FONT "Arial" SIZE 9 FLAT BORDER
BUTTON Novo CAPTION "Novo " TOOLTIP "Cadastrar novo membro" PICTURE "nuevo" ACTION (Nuevo := .T. , Nuevo())
BUTTON Editar CAPTION "Editar " TOOLTIP "Alterar dados" PICTURE "editar" ACTION (if(BloquearRegistro("COLABORA"),ActivarEdicion(),Nil))
BUTTON Apagar CAPTION "Apagar " TOOLTIP "Apagar esse registro" PICTURE "borrar" ACTION (Eliminar())
BUTTON Filtrar CAPTION "Filtro " TOOLTIP "Ativar e Desativar Filtro" PICTURE "filtro24" ACTION (Filtrar()) ;
SEPARATOR
BUTTON Email CAPTION "Email " TOOLTIP "Enviar email " PICTURE "sendmail24" ACTION (if(MandarEmail(),EmailMain(),Nil))
BUTTON Imprimir CAPTION "Imprimir" TOOLTIP "Imprime Cadastros" PICTURE "imprimir2" ACTION (Imprimir_Colabora());
SEPARATOR
BUTTON Sair CAPTION "Sair " TOOLTIP "Fechar" PICTURE "cerrar" ACTION (Win_1.release)
END TOOLBAR
)