Information générale
Titre:
Optimizacion de toolbar
Hola compañeros, tengo la siguiente pregunta....
Desde hace tiempo en mi proyecto, manejo una toolbar, y mis reportes son ascii, los cual visualizo con modi comm reporte.txt noedit
El problema viene cuando le doy salir a mi toolbar, y no se ha cerrado antes el reporte.
**************************************************
En el ACTIVATE del formulario, tengo lo siguiente:
WITH THISFORM
IF TYPE(".oToolbar") == "O" AND !ISNULL(.oToolbar)
RETURN
ENDIF
SET CLASSLIB TO Wizards ADDITIVE
.oToolbar = CREATEOBJ("tbrCapturasPrt",THISFORM)
.oToolbar.SHOW
.Nuevo()
ENDWITH
**************************************************
En el Init de la Toolbar
PARAMETER oForm
IF TYPE("m.oForm")#"O" OR ISNULL(m.oForm) OR UPPER(oForm.BaseClass) # "FORM"
=MESSAGEBOX("Debes de pasar una referencia a la forma para crear la toolbar.", 48, '')
RETURN .F.
ENDIF
THIS.oFormRef = oForm
THIS.DOCK (0,0,0)
**************************************************
En el boton Click del Boton Salir tengo...
CLOSE DATABASES
RELEASE ALL
THISFORM.oFormRef.Hide
THISFORM.oFormRef.Release
pnAccesos = .T.
Alguien le ha sucedido algo similar.... o tiene una forma mejor de aplicar las toolbar...
Disculpen si no me explique.... ;)
De antemano gracias....
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement