problema

[Elias Torres]

Antonio,

He modificado la apariencia de la aplicación y en vez de usar botones utilizo imagenes..

El tema es que después de ejecutarlo varias veces empieza a darme errores que antes no daba y se me queda colgada la pda dandome el siguiente mensaje error:

Internal Error:

Too many recursive error handler calls

Esto antes no me salia y la aplicacion me funcionaba bien. Me he pasado a la nueva actualizacion (la de diciembre) y a raiz de eso o del cambio de los botones por las imagenes me pasa esto...

Las imagenes las pongo de la siguiente forma:


DEFINE dialog oWnd resource "menu_principal"


REDEFINE BITMAP oBmp1 NAME 'btn_inventario' ID 100 OF oWnd
REDEFINE BITMAP oBmp2 NAME 'btn_compras' ID 200 OF oWnd
REDEFINE BITMAP oBmp3 NAME 'btn_ventas' ID 300 OF oWnd
REDEFINE BITMAP oBmp4 NAME 'btn_configuracion' ID 400 OF oWnd

oBmp1:setcolor(RGB(1,1,1),RGB(230,184,94))
oBmp2:setcolor(RGB(1,1,1),RGB(230,184,94))
oBmp3:setcolor(RGB(1,1,1),RGB(230,184,94))
oBmp4:setcolor(RGB(1,1,1),RGB(230,184,94))

oBmp1:blClicked := {|| abre_tablas(),Listados_inventarios() }
oBmp4:blClicked := {|| configuracion() }

oWnd:setcolor(RGB(1,1,1),RGB(230,184,94))

ACTIVATE dialog oWnd;
VALID MsgYesNo("¿Desea abandonar la aplicación?","Salir")

DbCloseAll() &&cierra todas las tablas
oBmp1:end()
oBmp2:end()
oBmp3:end()
oBmp4:end()

retu nil


No se que es lo que está pasando...

Saludos

Elías Torres.

[Antonio Linares]

Elías,

Quita estas 4 líneas, ya que no son necesarias, pues al destruirse el diálogo, destruye todos los controles que contiene:

oBmp1:end()
oBmp2:end()
oBmp3:end()
oBmp4:end()