Colocar menús popup
Artículo original: Positioning popup menus
http://www.foxpert.com/knowlbits_200801_2.htm
Autor: Christof Wollenhaupt
Traducido por: Ana María Bisbé York
No soy un gran fan de los menús contextuales (clic derecho del ratón). En muchas aplicaciones se implementan de forma incorrecta y no se pueden invocar con la tecla de menú contextual o la combinación estándar Shift+10. Para muchos desarrolladores, a veces parecen como un depósito para descargas. En lugar de pensar en cómo incorporar una nueva característica en la justa medida, simplemente agregan la función al menú contextual de un formulario. En esos casos, los menús contextuales son difíciles de descubrir para el usuario final. Teniendo que hacer clic en cada píxel y descubrir si hay alguna característica oculta, solamente está genial para los juegos; pero realmente no es apropiado para una aplicación productiva.
Existen usos para el menú contextual. Hay que tener en mente, que el nombre "acceso directo" es el hecho de que los menús originales sean una vía rápida para las características de acceso con un ratón, que estarían también disponible en el menú o en los botones. Las características que están solamente disponibles a través de menú contextual o de menús popups de múltiples niveles, y cuando se abre una ventana en algún otro lugar en la pantalla, difícilmente entran dentro de esa categoría.
Regresamos al tema. Existen muchas ocasiones en las que tiene sentido brindar menos opciones utilizando funcionalidades en un formulario. Por ejemplo, una característica útil para un control TextBox, es abrir una ventana examinador con una búsqueda web. Para esta funcionalidad utilizo un pequeño botón en el control TextBox que muestra una flecha hacia abajo ("u" en fuente Marlett). Este botón abre un pequeño popup, justo debajo del botón, como se ve en Microsoft Office.
Colocar menús popup produce código que utiliza MCOL() y MROW() para colocar los menús según la posición del ratón. Esto trabaja bien sin que haga clic en ningún lugar del título de la ventana. En este caso, las dos funciones devuelven -1 moviendo el popup a algún lugar fuera de esta ventana.
Cuando intenta mover el popup a algún lugar, se da cuenta enseguida que tiene una posición dada en Fóxeles en lugar de píxeles. Los Fóxeles son para Visual FoxPro lo que los Twips son para Visual Basic. Un Fóxel depende del tamaño de la fuente actual del formulario. En otras palabras, cambiar la propiedad ThisForm.FontName o cualquiera otra propiedad de fuente hará que cambie las medidas a Fóxeles.
La propiedad ScaleMode, que se utiliza raramente, permite especificar las coordenadas del formulario en Fóxeles o píxeles. Como nota al margen, un formulario con medidas Fóxeles es una buena forma de romper lo genérico de la tercera parte de los componentes. Muchos desarrolladores no trabajan mucho con las posiciones que tienen lugares decimales y añaden píxeles a las propiedades Left, Top, Width y Height sin verificar la escala antes.
Entonces, para ubicar un control popup justo debajo o arriba de un botón de comandos, puede cambiar las medidas, leer la posición del botón en Fóxeles y devolver el valor a píxeles. Esto trabaja bien para botones que estén colocados en el formulario directamente. Con controles anidados, sin embargo, tiene que utilizar OBJTOCLIENT(), una función que ignora completamente la propiedad ScaleMode. Para solucionar esto, agrego un botón derecho invisible en el formulario.
Local lnRow, lnColumn
If Vartype(Thisform.PosHelp) != "O"
Thisform.AddObject("PosHelp", "Commandbutton")
EndIf
Thisform.PosHelp.Move( ;
Objtoclient(This,2), ;
Objtoclient(This,1) + This.Height ;
)
Thisform.ScaleMode = 0
lnRow = Thisform.PosHelp.Top
lnColumn = Thisform.PosHelp.Left
Thisform.ScaleMode = 3
Con la posición en Fóxeles puedo ahora definir un menú popup como este:
DEFINE POPUP shortcut ; SHORTCUT RELATIVE ; From m.lnRow, m.lnColumn ; Font Thisform.FontName, This.FontSize Define bar 1 of Shortcut Prompt "Elemento 1" Define bar 2 of Shortcut Prompt "Elemento 2" Define bar 3 of Shortcut Prompt "Elemento 3" Activate Popup Shortcut
Si es que sorprende sobre la cláusula FONT que utilicé aquí, explico. Algunos clientes insisten en un control redimensionar para el formulario. Esto es, cuando un formulario se redimensiona, el contenido se alargara. Con esta cláusula el menú popup tiene el mismo tamaño que todo lo demás en el formulario.