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.
*›****walter.com...@gmail.com <mailto:walter.com...@gmail.com>*
***wcom...@hotmail.com <mailto:wcom...@hotmail.com>*
*'****+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:walter.com...@gmail.com>_...@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>
