Me parece que si, porque la toolbar tiene que estar dentro de un
formulario. Pero puedo estar equivocado. Lo que pasa es que yo siempre
uso un formulario de nivel superior como fondo de la aplicación y desde
ahi sale el menú y todos los formularios del sistema están dentro del
FNS. La toolbar es un tipo especial de formulario. Pero nunca probé de
hacerla aparecer en pantalla.
En cuanto a mostrar varios formularios al mismo tiempo, también se hace
de la forma que te indico yo. Simplemente los vas llamando desde el menú
o desde otros formularios. La toolbar siempre actúa sobre el formulario
que tiene el foco, de ahi el código que hace referencia a activeform.
Rafael
On 18/07/2016 12:09, Walter Comito wrote:
Rafael gracias por responder.
La pregunta es: solo para formularios de nivel superior funciona esto.
Te pregunto porque yo normalmente deje ver solo el formulario con el
que estoy trabajando, de esta forma el nivel superior me deja mostrar
varios formularios al mismo tiempo.
Gracias.
*Walter Cómito*
Analista de Sistemas
MP 0397 C.P.C.I.P.C.
*›****[email protected] <mailto:[email protected]>*
***[email protected] <mailto:[email protected]>*
*'****+54 9 351 494.4667*
* +54 9 3513.292.707*
**
*þ****www.softram.com.ar <http://www.softram.com.ar/>*
QSi no es necesario, no imprima este correo.
Todos somos responsables por el cuidado del medio ambiente.
*NOTA DE CONFIDENCIALIDAD*
Este mensaje (y sus anexos) es confidencial y puede contener
información de propiedad
exclusiva de Walter Cómito (SRS Sistemas). Si usted ha recibido este
mensaje por error,
por favor comuníquelo inmediatamente a _walter.comito
<mailto:[email protected]>[email protected] <http://gmail.com/>_ y
tenga la amabilidad
de eliminarlo; no deberá copiar el mensaje ni divulgar su contenido a
ninguna persona.
Muchas Gracias.
*De:*[email protected] [mailto:[email protected]] *En nombre de *rafael
copquin
*Enviado el:* lunes, 18 de julio de 2016 11:16
*Para:* GUFA List Member
*Asunto:* [GUFA] MENU Y BARRA DE TAREAS
Hola Walter.
Creá una toolbar con todos los botones que necesites y grabala en una
VCX. Digamos que la llamás MITOOLBAR a la clase y miscontroles.vcx a
la class library
Poné dicha biblioteca de clases en el entorno desde el programa con el
que arrancás tu aplicación con:
set classlib to miscontroles.vcx additive
En un formulario de nivel superior, que es el que llamás desde el
programa principal, creá una propiedad oToolBar y en el evento
activate ponés este código:
If Vartype(thisform.oToolBar) <> "O"
thisform.oToolBar = createobject("miToolBar")
thisform.oToolBar.dock(0)
thisform.oToolBar.visible = .t.
endif
Con eso la toolbar aparece arriba y te queda prendida al margen superior.
Para matarla, cuando cerrás ese formulario, en el evento destroy poné
este código:
If Vartype(thisform.oToolBar) = "O"
thisform.oToolBar = .NULL.
EndIf
En cuanto a la toolbar en si, en cada uno de los eventos click de los
botones ponés el código que la hace funcionar, por ejemplo, si en tu
formulario tenés un evento movetop, con código que hace que el puntero
se mueva hacia el principio del archivo, el primer botón de este
ejemplo tendría este código:
If PemStatus(_screen.ActiveForm,'movetop',5)
_screen.activeform.movetop()
endif
Ese evento movetop podría tener el código:
select (thisform.cAlias) && ponés el nombre de la tabla en esta propiedad
go top
Espero te sirva
Rafael Copquin
On 16/07/2016 16:39, Walter Comito wrote:
Amigos como están, de que forma se agrega una barra de tarea o un
menú dentro de un formulario.
Lo que quiero es que queden anclados de alguna forma y que el
usuario no pueda moverlos
Gracias.
*Walter Cómito*
Analista de Sistemas
MP 0397 C.P.C.I.P.C.
*›****[email protected] <mailto:[email protected]>*
***[email protected] <mailto:[email protected]>*
*'****+54 9 351 494.4667*
* +54 9 3513.292.707*
**
*þ****www.softram.com.ar <http://www.softram.com.ar/>*
QSi no es necesario, no imprima este correo.
Todos somos responsables por el cuidado del medio ambiente.
*NOTA DE CONFIDENCIALIDAD*
Este mensaje (y sus anexos) es confidencial y puede contener
información de propiedad
exclusiva de Walter Cómito (SRS Sistemas). Si usted ha recibido
este mensaje por error,
por favor comuníquelo inmediatamente a _walter.comito
<mailto:[email protected]>@gmail.com <http://gmail.com/>_ y
tenga la amabilidad
de eliminarlo; no deberá copiar el mensaje ni divulgar su
contenido a ninguna persona.
Muchas Gracias.
<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=emailclient>
Libre de virus. www.avast.com
<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=emailclient>
<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=emailclient>
Libre de virus. www.avast.com
<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=emailclient>
