Descripción general
Esta clase proporciona un control de barra de estado que se puede usar para reemplazar la barra de estado VFP9 nativa. Si usa un formulario de nivel superior como formulario principal de su programa, también puede usar esta barra de estado en su formulario de nivel superior.
Esta clase usa las funciones de la API de Windows para crear un verdadero control común de control de Windows Barra de estado.
Esta clase es un proyecto VFPX.
VFPX: un esfuerzo de la Comunidad de Visual FoxPro para crear complementos de código abierto para Visual FoxPro 9.0. El código, las clases y las bibliotecas disponibles aquí complementarán los esfuerzos continuos de Microsoft para mejorar y extender Visual FoxPro con el código llamado proyecto Sedna que se describe en la Hoja de ruta de Visual FoxPro.
Esta clase usa las funciones de la API de Windows para crear un verdadero control común de control de Windows Barra de estado.
Esta clase es un proyecto VFPX.
VFPX: un esfuerzo de la Comunidad de Visual FoxPro para crear complementos de código abierto para Visual FoxPro 9.0. El código, las clases y las bibliotecas disponibles aquí complementarán los esfuerzos continuos de Microsoft para mejorar y extender Visual FoxPro con el código llamado proyecto Sedna que se describe en la Hoja de ruta de Visual FoxPro.
Jerarquía de clases
ctl32
ctl32_statusbar
ctl32_statusbar
Principales características
Puede usar esta barra de estado en todo su potencial, usando la barra de progreso, los paneles, los íconos de configuración, los títulos, etc. O simplemente puede colocarlo en su proyecto y no hacer nada más que crear una instancia al inicio de su programa, y dejarlo simplemente conviértase en un sustituto más agradable de la barra de herramientas nativa, o suelte una en su formulario principal de nivel superior y disfrute de una barra de estado en su formulario de nivel superior. Todos los textos mostrados por las opciones de menú y la propiedad StatusBarText de los controles se mostrarán en la barra de estado ctl32.
Así que ahora no más "así que usas esa cosa de FoxPro ... ¿es eso todavía? ¿Y por qué la Barra de estado se ve tan fea, diferente de todos mis otros programas de Windows? Debe ser porque FoxPro es viejo ..."
Así que ahora no más "así que usas esa cosa de FoxPro ... ¿es eso todavía? ¿Y por qué la Barra de estado se ve tan fea, diferente de todos mis otros programas de Windows? Debe ser porque FoxPro es viejo ..."
Imágenes
Así es como se ve la barra de estado VFP nativa. No es muy bueno para una aplicación de Windows XP.
Así es como se ve la barra de estado ctl32 en un formulario de nivel superior o en la pantalla VFP, con todos sus paneles en uso.
Así es como se ve ctl32_statusbar en Vista Beta 2 Build 5384.
Descripción de los paneles
El primer panel (desde la izquierda) muestra un icono opcional y los mensajes normales de la barra de estado de VFP, los que normalmente se muestran en la barra de estado nativa de VFP. No muestra el recuento de registros / posición de registro para las tablas abiertas, etc. Si configura un mensaje en este panel, anula todos los mensajes de la barra de estado generados por el sistema VFP, hasta que borre el mensaje personalizado.
El segundo panel contiene una barra de progreso, una clase por sí misma, que se puede controlar completamente, su ancho se puede ajustar, etc.
Los siguientes paneles son los paneles personalizados (tantos como desee en la versión 3 o superior). Estos paneles se pueden utilizar para mostrar un icono y un título. Los paneles personalizados se pueden consultar por nombre: Panel1, Panel2 ... o por su índice: Panels(1), Panels(2), etc.
Los siguientes paneles son los 3 paneles indicadores, que muestran el estado de las teclas Insertar, Bloqueo de teclas y Bloqueo de números. El texto que se muestra es configurable por el usuario y se pueden ocultar.
Luego, hay un Panel de fechas que puede mostrar la fecha del sistema en formato corto o largo, según los formatos y el idioma del sistema operativo.
El último panel no se usa, es solo un divisor para el área de agarre de tamaño.
Todos los paneles, excepto el primero, el Panel de mensajes, se pueden mostrar/ocultar.
El segundo panel contiene una barra de progreso, una clase por sí misma, que se puede controlar completamente, su ancho se puede ajustar, etc.
Los siguientes paneles son los paneles personalizados (tantos como desee en la versión 3 o superior). Estos paneles se pueden utilizar para mostrar un icono y un título. Los paneles personalizados se pueden consultar por nombre: Panel1, Panel2 ... o por su índice: Panels(1), Panels(2), etc.
Los siguientes paneles son los 3 paneles indicadores, que muestran el estado de las teclas Insertar, Bloqueo de teclas y Bloqueo de números. El texto que se muestra es configurable por el usuario y se pueden ocultar.
Luego, hay un Panel de fechas que puede mostrar la fecha del sistema en formato corto o largo, según los formatos y el idioma del sistema operativo.
El último panel no se usa, es solo un divisor para el área de agarre de tamaño.
Todos los paneles, excepto el primero, el Panel de mensajes, se pueden mostrar/ocultar.
Aquí todos los paneles están ocultos.
Inicio rápido: uso en un formulario
Si desea un ctl32_statusbar en un formulario, arrastre el control ctl32_statusbar desde la ventana del Project Manager y suéltelo en el formulario. Por supuesto que hay otras formas de hacer esto. Tamaño y posición en la parte inferior del formulario. Este último paso no es necesario, el control cambia de tamaño y se coloca en la parte inferior en el tiempo de ejecución, hágalo solo por razones estéticas en el momento del diseño. O puede instalar el constructor, haciendo clic en constructores \ ctl32_statusbar_builder.app Luego, si hace clic con el botón derecho en el control de la barra de estado en el diseñador de formularios y elige el creador del menú de acceso directo, la barra de estado se posicionará y dimensionará.
NOTA: Si su formulario es un Formulario de nivel superior, ctl32_statusbar usará los 24 píxeles inferiores de su formulario para sí mismo, por lo que su formulario será 24 píxeles más corto. Si también tienes un menú de formulario de nivel superior, eso es 20 píxeles más que pierdes. Compruebe cómo distribuir los controles y use la propiedad Ancla de ellos.
Las únicas propiedades que debe cambiar en el momento del diseño son Nombre y PanelCount.
NOTA: Si su formulario es un Formulario de nivel superior, ctl32_statusbar usará los 24 píxeles inferiores de su formulario para sí mismo, por lo que su formulario será 24 píxeles más corto. Si también tienes un menú de formulario de nivel superior, eso es 20 píxeles más que pierdes. Compruebe cómo distribuir los controles y use la propiedad Ancla de ellos.
Las únicas propiedades que debe cambiar en el momento del diseño son Nombre y PanelCount.
Inicio rápido: uso en la pantalla principal de VFP
Agregue las siguientes líneas a su código:
If Not Pemstatus(_Screen,"StatusBar", 5) Then
_Screen.Newobject("StatusBar", "ctl32_statusbar", "ctl32.vcx")
Endif
|
O, si desea especificar un cierto número de paneles personalizados (el valor predeterminado es 5):
If Not Pemstatus(_Screen,"StatusBar", 5) Then
_Screen.Newobject("StatusBar", "ctl32_statusbar", "ctl32.vcx", null, 3)
Endif
|
Para eliminar el ctl32_statusbar:
_Screen.RemoveObject("StatusBar")
|
Eso es todo. No tiene que configurar nada más si solo desea un reemplazo básico de la barra de estado VFP nativa. La barra de estado ctl32 sondeará el valor de _vfp.StatusBar y el estado de Capslock(), NumLock() e Insmode() en un evento de temporizador, y actualizará el mensaje.
NOTA: La barra de estado de VFP nativa no debe configurarse como DESACTIVADA o _VFP.StatusBar no devolverá ningún valor.
NOTA: La barra de estado de VFP nativa no debe configurarse como DESACTIVADA o _VFP.StatusBar no devolverá ningún valor.
Control de barra de progreso
Hay un control ctl32_progressbar en ctl32_statusbar, invisible por defecto. Hay un archivo de ayuda para ello (en español, lo siento). Verifique las propiedades allí, en su mayoría son autoexplicativas, y en los proyectos de muestra. Para un inicio rápido, para verlo en acción haga esto:
oStatusBar.ProgressBar.Repeat = .T.
oStatusBar.ProgressBar.Play = .T.
oStatusBar.ProgressBar.Visible = .T.
|
Simplemente reemplace oStatusBar con la referencia de objeto correcta. Esta barra de progreso se puede usar sola en cualquier formulario, verifique el proyecto de ejemplo ctl32_progressbar.
Proyecto de ejemplo
Vea el proyecto de muestra incluido en la carpeta de muestra para ver ejemplos de cómo usar el control y qué se puede hacer.
BindEvent
Esta clase hace Bindevents a las siguientes ventanas y mensajes de ventana:
_VFP.hWnd, WM_THEMECHANGED
_Screen, WM_SIZE
_Screen, WM_SIZE
Si se conecta a esos mismos pares de ventana / evento en alguna otra parte de su código, recuerde lo que dice el archivo de Ayuda:
"Al vincular eventos de mensaje de Windows (Mensaje de Windows), solo puede existir un emparejamiento de mensajes hWnd a Windows".
Los archivos de iconos utilizados deben incluirse en el proyecto. No es necesario redistribuir los archivos de iconos a los usuarios finales. Los archivos de iconos deben contener un icono de 16x16 256 colores, que se usa para mostrar en la barra de estado.
¿Por qué un temporizador? Intenté usar Bindevent con la propiedad _Vfp.StatusBar, para detectar cambios en su valor y actualizar el texto para mostrar, pero hay un error en VFP, los cambios _Vfp.StatusBar no siempre activan el método enlazado, por lo que no siempre se actualiza correctamente . No había otra manera que usar un temporizador. Para leer más sobre esto, y una solución parcial, consulte el Blog de Calvin Hsia, pero el problema para la propiedad StatusBarText de los controles permanece. (Y sí, es un error).
Si tiene un botón de comando en un formulario que cierra el formulario haciendo, por ejemplo, Thisform.Release(), y ese botón tiene la propiedad StatusBarText establecida en algún valor, cuando se cierra el formulario, StatusBarText permanecerá en la barra de estado, y tipo de colgar para mostrarse en función de dónde apunta el mouse.
Para resolver esto, usa el siguiente truco:
"Al vincular eventos de mensaje de Windows (Mensaje de Windows), solo puede existir un emparejamiento de mensajes hWnd a Windows".
Los archivos de iconos utilizados deben incluirse en el proyecto. No es necesario redistribuir los archivos de iconos a los usuarios finales. Los archivos de iconos deben contener un icono de 16x16 256 colores, que se usa para mostrar en la barra de estado.
¿Por qué un temporizador? Intenté usar Bindevent con la propiedad _Vfp.StatusBar, para detectar cambios en su valor y actualizar el texto para mostrar, pero hay un error en VFP, los cambios _Vfp.StatusBar no siempre activan el método enlazado, por lo que no siempre se actualiza correctamente . No había otra manera que usar un temporizador. Para leer más sobre esto, y una solución parcial, consulte el Blog de Calvin Hsia, pero el problema para la propiedad StatusBarText de los controles permanece. (Y sí, es un error).
Si tiene un botón de comando en un formulario que cierra el formulario haciendo, por ejemplo, Thisform.Release(), y ese botón tiene la propiedad StatusBarText establecida en algún valor, cuando se cierra el formulario, StatusBarText permanecerá en la barra de estado, y tipo de colgar para mostrarse en función de dónde apunta el mouse.
Para resolver esto, usa el siguiente truco:
Procedure cmdClose.Click
This.StatusBarText = " "
Thisform.Release()
|
Por cierto, este es un error de VFP ...
Errores
Version 3 20060522
Andrew Nickless estaba teniendo un problema extraño al acceder a todos los controles de una forma en un método de formulario. Cuando su método llegó a la barra de estado, se generó un error, e incluso al intentar obtener la propiedad de nombre del objeto con el problema surgió un error.
Lo que descubrí es que la etiqueta y el control del temporizador contenidos en la barra de estado de alguna manera tienen la mayoría de sus propiedades configuradas como protegidas u ocultas. Para resolver esto, corta cada objeto, guarda la clase, abre y pega nuevamente. Haga esto con la etiqueta y el temporizador. Insecto realmente oscuro, quién sabe cómo sucedió eso.
Si la barra de estado se usa en un formulario estándar con ShowWindow = 0 y el formulario se redimensiona en su evento inicial, parece que el evento de cambio de tamaño del formulario no se dispara, por lo que la barra de estado no tiene la posibilidad de reposicionarse. Para solucionar esto rápidamente, agregue el siguiente código al método ctl32_BindEvents de la clase ctl32_statusbar:
Lo que descubrí es que la etiqueta y el control del temporizador contenidos en la barra de estado de alguna manera tienen la mayoría de sus propiedades configuradas como protegidas u ocultas. Para resolver esto, corta cada objeto, guarda la clase, abre y pega nuevamente. Haga esto con la etiqueta y el temporizador. Insecto realmente oscuro, quién sabe cómo sucedió eso.
Si la barra de estado se usa en un formulario estándar con ShowWindow = 0 y el formulario se redimensiona en su evento inicial, parece que el evento de cambio de tamaño del formulario no se dispara, por lo que la barra de estado no tiene la posibilidad de reposicionarse. Para solucionar esto rápidamente, agregue el siguiente código al método ctl32_BindEvents de la clase ctl32_statusbar:
*!* When host is a Standard Form and the form is resized in its Init event,
*!* the Resize event of the form does not fire, so we bind to the form Visible property:
If This.ctl32_FormType = CTL32_FORMTYPE_DEFAULT Then
Bindevent(Thisform, [Visible], This, [ctl32_Resize], 1)
Endif
|
Gracias, Andrew Nickless por informar de este error (VFP).
Versión 3 20060510
Para evitar que la barra de herramientas auxiliar parpadee en máquinas lentas, cambie el código en ctl32_statusbar_toolbar Init a esto (solo intercambia el dock y las líneas visibles)
Versión 3 20060510
Para evitar que la barra de herramientas auxiliar parpadee en máquinas lentas, cambie el código en ctl32_statusbar_toolbar Init a esto (solo intercambia el dock y las líneas visibles)
This.ctl32_DeclareDlls()
*!* Hide the toolbar thru API so its still there but invisible
With This
*!* 20060519 swaped lines //Doru Constantin//
.Dock(TOOL_BOTTOM, 0, 0)
.Visible = TRUE
ShowWindowAPI(.HWnd, SW_HIDE)
Endwith
|
Un error en ctl32_ResizePanels tiene el efecto de no mostrar el título del panel de mensajes cuando todos los paneles están ocultos. En ctl32_Resizepanels encuentra esta línea:
.SetAll([ctl32_Right], -1, [ctl32_StatusBar_Panel])
|
Y cambiarlo a esto:
.SetAll([ctl32_Right], 0xFFFFFF, [ctl32_StatusBar_Panel])
|
En ctl32_Width_Access, las barras de herramientas acopladas por el lado no se consideraron al calcular el ancho deseado de la barra de estado en una forma de nivel superior. Reemplace ctl32_Width_Access con este código:
*!* RETURN desired Width for StatusBar proxy Window
*!* Width from _Screen is no good, space taken by toolbars on both
*!* sides is subtracted from total Width, so we use _vfp Hwnd
*!* Modified 20060513
Local lnHwnd, lnWidth, lcRect, lnLeft, lnRight
With This
If .ctl32_FormType = CTL32_FORMTYPE_SCREEN
m.lnHwnd = _vfp.HWnd
Else
m.lnHwnd = Thisform.HWnd
Endif
m.lcRect = Space(16)
GetClientRect(m.lnHwnd, @m.lcRect)
m.lnLeft = .uStrToLong(Substr(m.lcRect, 1,4))
*!* m.lnTop = .uStrToLong(Substr(m.lcRect, 5,4))
m.lnRight = .uStrToLong(Substr(m.lcRect, 9,4))
*!* m.lnBottom = .uStrToLong(Substr(m.lcRect, 13,4))
m.lnWidth = m.lnRight - m.lnLeft
Endwith
*!* Width is off by one pixel
m.lnWidth = m.lnWidth + 1
Return m.lnWidth
|
Los problemas se notificaron con la pantalla que no se actualizaba correctamente en ciertas máquinas. Resuelto al comentar la primera línea de tmrUpdater.Timer:
*!* DoEvents
|
Debo confesar que ni siquiera sé por qué estaba allí DoEvents.
Si está acoplando programáticamente una barra de herramientas en la parte inferior izquierda de un formulario de nivel superior con una barra de estado, debe hacer esto:
Si está acoplando programáticamente una barra de herramientas en la parte inferior izquierda de un formulario de nivel superior con una barra de estado, debe hacer esto:
oToolbar.Dock(3)
oToolbar.Dock(3)
|
De esa manera el toobar no cubrirá la barra de estado. No hay ningún problema si la barra de herramientas se acopla con el mouse.
Versión 2:
Al configurar la propiedad de icono de cualquier panel en una cadena vacía, borrará el icono del primer panel. Para corregir esto, en la clase ctl32_statusbar_panel, método icon_assign, cambie esta línea:
Versión 2:
Al configurar la propiedad de icono de cualquier panel en una cadena vacía, borrará el icono del primer panel. Para corregir esto, en la clase ctl32_statusbar_panel, método icon_assign, cambie esta línea:
SendMessageN(This.Parent.HWnd, SB_SETICON, 0, 0)
|
Por esto:
SendMessageN(This.Parent.HWnd, SB_SETICON, This.Index - 1, 0)
|
Problemas conocidos
Registro de cambios
2006XXXX
Algunos errores corregidos.
Añadido ctlSizeGrip.
Se agregó ctlInit que se ejecuta después de crear la barra de estado, para permitir personalizar la barra de estado cuando se usa en un formulario de nivel superior, donde se crea en el evento de activación de formulario.
Se ha corregido el pinzamiento de tamaño que se muestra en la barra de estado de _Screen maximizada cuando se selecciona _Screen.Themes. nOldWindowState se establece en -1.
La barra de estado _Screen de muestra fija, los eventos, dblclick y clic derecho no funcionan.
Se eliminaron todos "With This" de la clase ctl32_statusbar.
Se agregó el código en ctl32_FormActivate para actualizar las leyendas e íconos del panel cuando se usa la barra de estado en un formulario de nivel superior y las leyendas e íconos se configuran en el control de inicio, vea el nuevo formulario ctl32_statusbar_sample_toplevelform2.scx Los iconos e leyendas no se muestran sin este código, y No entiendo por qué.
Se eliminaron todos "Con esto" de la clase ctl32_statusbar_panel. Refactored todos los métodos de asignación de esa clase. Se agregó control para el control Hwnd <> 0.
Se modificaron las funciones _ThemeStatus, _HostHWnd, _FormType en _util de ctl32_common. Eliminó todas las referencias a ThisForm, ahora el formulario se determina a partir del control que se pasa como parámetro a estas funciones.
Se modificó la forma en que se agrega el objeto _Util al control, de newobject a addproperty, para que no cuente como otro control.
Se agregó la verificación para la asignación de la variable numérica a la propiedad lógica panel.ctlAutosize
Agregado ctlVcxProgressBar, especifica el nombre / ubicación de la clase ctl32_progressbar.
Añadidos ctlVcxStructs y ctlVcxCommon, especifican el nombre / ubicación de las clases ctl32_structs y ctl32_common.
Movió y renombró las propiedades del objeto de uso interno a ctl32_addproperties()
Se agregó el método ctlUpdatePanels() y la propiedad ctlUpdateStyle
Código movido para determinar el idioma a la clase _util
Propiedad ctlLangId agregada
Movió el método ctlos a la clase _util.
Elimine el método ctlTheme, utilizando _ThemeStatus de _util
Se agregó una verificación de ancho para evitar que los paneles se vuelvan a dibujar cuando el ancho no haya cambiado.
Añadido ctlSizeGrip.
Se agregó ctlInit que se ejecuta después de crear la barra de estado, para permitir personalizar la barra de estado cuando se usa en un formulario de nivel superior, donde se crea en el evento de activación de formulario.
Se ha corregido el pinzamiento de tamaño que se muestra en la barra de estado de _Screen maximizada cuando se selecciona _Screen.Themes. nOldWindowState se establece en -1.
La barra de estado _Screen de muestra fija, los eventos, dblclick y clic derecho no funcionan.
Se eliminaron todos "With This" de la clase ctl32_statusbar.
Se agregó el código en ctl32_FormActivate para actualizar las leyendas e íconos del panel cuando se usa la barra de estado en un formulario de nivel superior y las leyendas e íconos se configuran en el control de inicio, vea el nuevo formulario ctl32_statusbar_sample_toplevelform2.scx Los iconos e leyendas no se muestran sin este código, y No entiendo por qué.
Se eliminaron todos "Con esto" de la clase ctl32_statusbar_panel. Refactored todos los métodos de asignación de esa clase. Se agregó control para el control Hwnd <> 0.
Se modificaron las funciones _ThemeStatus, _HostHWnd, _FormType en _util de ctl32_common. Eliminó todas las referencias a ThisForm, ahora el formulario se determina a partir del control que se pasa como parámetro a estas funciones.
Se modificó la forma en que se agrega el objeto _Util al control, de newobject a addproperty, para que no cuente como otro control.
Se agregó la verificación para la asignación de la variable numérica a la propiedad lógica panel.ctlAutosize
Agregado ctlVcxProgressBar, especifica el nombre / ubicación de la clase ctl32_progressbar.
Añadidos ctlVcxStructs y ctlVcxCommon, especifican el nombre / ubicación de las clases ctl32_structs y ctl32_common.
Movió y renombró las propiedades del objeto de uso interno a ctl32_addproperties()
Se agregó el método ctlUpdatePanels() y la propiedad ctlUpdateStyle
Código movido para determinar el idioma a la clase _util
Propiedad ctlLangId agregada
Movió el método ctlos a la clase _util.
Elimine el método ctlTheme, utilizando _ThemeStatus de _util
Se agregó una verificación de ancho para evitar que los paneles se vuelvan a dibujar cuando el ancho no haya cambiado.
20060627
- Restablecer las propiedades del contenedor VFP nativo a público.
- Se corrigió un error en el que las propiedades de los objetos contenidos se configuraban como ocultas / protegidas.
- Se agregó la clase ctl32_structs.vcx para manejar estructuras en llamadas de funciones API.
Bajo el capó
Cuando decidí crear un control de barra de estado para VFP9, me puse los siguientes objetivos:
- Tenía que ser un reemplazo directo de la Barra de estado nativa, no debería haber necesidad de cambiar nada en un proyecto que usa la Barra de estado nativa para mostrar los mensajes.
- Debería estar disponible en la pantalla principal, o en cualquier formulario estándar o de nivel superior.
- No debería ser necesario realizar ninguna configuración especial de la barra de estado para poder usarla, no hay opciones de paneles o cualquier otra cosa.
- Las formas secundarias deben maximizar sin superponerse a la barra de estado, al igual que la barra de estado nativa se comporta.
- La apariencia de la barra de estado debe ser como cualquier otra barra de estado estándar de Windows y seguir el tema en uso en Windows XP.
También quería poder mostrar la fecha actual en la barra de estado y una barra de progreso, al igual que la barra de progreso que se muestra en la barra de estado de Internet Explorer o Mozilla Firefox.
Algunos de los siguientes pueden estar desactualizados ahora, ya que he cambiado algunos detalles en la implementación, pero es una buena referencia "histórica".
Paso 1: Decida cómo crear una barra de estado estándar.
La primera pregunta fue cómo crear una barra de estado que siga las convenciones estándar de Windows para una barra de estado. Por supuesto, la forma más sencilla es usar el control de la barra de estado de Windows, como se describe en Barras de estado. Este control se ajusta a la parte inferior (u opcionalmente superior) de una ventana principal, y también ajusta su ancho al ancho de la ventana principal. Su apariencia sigue las convenciones estándar de Windows.
Paso 2: Cómo obtener nuestra propia barra de estado para mostrar en VFP.
El siguiente paso es encontrar cómo colocar una barra de estado en un formulario estándar, en un formulario de nivel superior y en la ventana principal de VFP, y cómo hacer que los formularios secundarios en los últimos 2 casos sean conscientes de la existencia del estado. Barra, por lo que no se superponen cuando se maximiza.
Sabía por MSDN que un control de la Barra de estado de Windows ajusta su posición y ancho en relación a su ventana principal, así que tuve que encontrar una manera de manejar los 3 casos.
a) Barra de estado en un formulario estándar
En una forma normal es fácil, solo use la ventana de Formulario como la ventana principal para el control de la Barra de Estado, no hay mucho más que hacer aquí, solo intercepte el evento de Cambio de Tamaño del Formulario con un BINDEVENT, y diga al Control de Windows de la Barra de Estado que Tiene que redimensionarse y luego redimensionar los paneles.
El evento ctl32_resize de la barra de estado Ctl32 hace precisamente eso, en el caso de un formulario VFP estándar.
Envía un mensaje WM_SIZE al control de Windows de la barra de estado, vuelve a calcular la posición y el tamaño de los paneles y envía un mensaje SB_SETPARTS con los parámetros necesarios.
b) Barra de estado en un formulario de nivel superior (TLF)
En un formulario de nivel superior, las cosas se vuelven un poco más complejas, ya que un formulario de nivel superior en VFP es en realidad 2 ventanas:
Algunos de los siguientes pueden estar desactualizados ahora, ya que he cambiado algunos detalles en la implementación, pero es una buena referencia "histórica".
Paso 1: Decida cómo crear una barra de estado estándar.
La primera pregunta fue cómo crear una barra de estado que siga las convenciones estándar de Windows para una barra de estado. Por supuesto, la forma más sencilla es usar el control de la barra de estado de Windows, como se describe en Barras de estado. Este control se ajusta a la parte inferior (u opcionalmente superior) de una ventana principal, y también ajusta su ancho al ancho de la ventana principal. Su apariencia sigue las convenciones estándar de Windows.
Paso 2: Cómo obtener nuestra propia barra de estado para mostrar en VFP.
El siguiente paso es encontrar cómo colocar una barra de estado en un formulario estándar, en un formulario de nivel superior y en la ventana principal de VFP, y cómo hacer que los formularios secundarios en los últimos 2 casos sean conscientes de la existencia del estado. Barra, por lo que no se superponen cuando se maximiza.
Sabía por MSDN que un control de la Barra de estado de Windows ajusta su posición y ancho en relación a su ventana principal, así que tuve que encontrar una manera de manejar los 3 casos.
a) Barra de estado en un formulario estándar
En una forma normal es fácil, solo use la ventana de Formulario como la ventana principal para el control de la Barra de Estado, no hay mucho más que hacer aquí, solo intercepte el evento de Cambio de Tamaño del Formulario con un BINDEVENT, y diga al Control de Windows de la Barra de Estado que Tiene que redimensionarse y luego redimensionar los paneles.
El evento ctl32_resize de la barra de estado Ctl32 hace precisamente eso, en el caso de un formulario VFP estándar.
Envía un mensaje WM_SIZE al control de Windows de la barra de estado, vuelve a calcular la posición y el tamaño de los paneles y envía un mensaje SB_SETPARTS con los parámetros necesarios.
b) Barra de estado en un formulario de nivel superior (TLF)
En un formulario de nivel superior, las cosas se vuelven un poco más complejas, ya que un formulario de nivel superior en VFP es en realidad 2 ventanas:
Aquí puede ver la ventana del cliente de un formulario de nivel superior de VFP resaltado (Winspector). Así que empecé a pensar cómo podría lograr poner una Barra de estado allí y hacer que el niño se diera cuenta. Decido explorar primero cómo VFP muestra su barra de estado nativa.
c) Barra de estado en la ventana principal de VFP
Comencé por investigar cómo VFP muestra su propia barra de estado, para obtener algunas pistas sobre cómo hacerlo yo mismo.
c) Barra de estado en la ventana principal de VFP
Comencé por investigar cómo VFP muestra su propia barra de estado, para obtener algunas pistas sobre cómo hacerlo yo mismo.
Esta es la ventana principal de VFP, resaltada en rojo por Winspector, con un tamaño de 800 x 600 píxeles.
Aquí se resalta la ventana de pantalla de VFP. El espacio de la ventana de la pantalla es utilizado por formularios secundarios.
Esta es la ventana que VFP crea para contener la ventana de la Barra de estado nativa de VFP y las ventanas de barras de herramientas que están acopladas en la parte inferior. Observe el ancho de la ventana: 32767 píxeles. Supongo que el tamaño de esta ventana es así, por lo que las barras de herramientas acopladas verticalmente se extienden hasta la parte superior de esta ventana. Como el control de la Barra de estado de Windows ajusta su ancho a la ventana principal, no podemos ubicarlo aquí directamente, ¡o su ancho será de 32767 píxeles!
Aquí se resalta una ventana de la barra de herramientas. Sabemos que una ventana de la barra de herramientas de VFP ajusta su ancho al ancho de su contenido, por lo que no podemos usar una barra de herramientas para mantener nuestro control de la Barra de estado, que ajusta el ancho a su ventana principal.
Aquí se resalta la ventana de la barra de estado de VFP. La barra de estado de VFP ajusta su ancho a la ventana principal de VFP, por lo que quizás podamos colocar nuestra propia ventana de control de la barra de estado de Windows aquí. Al principio intenté esto, pero luego, al intentar colocar un control de Barra de estado en un formulario de nivel superior, encontré una manera más conveniente, que funcionó para ambos casos, los formularios de nivel superior y la ventana principal de VFP. Lo que hice fue crear una ventana proxy, una ventana cuyo único propósito es servir como un contenedor de la ventana de control de la barra de estado.
Después de ver lo que hace VFP para mostrar su propia barra de estado, se me ocurrió la idea de agregar una barra de herramientas de VFP a un formulario de nivel superior y acoplarla en la parte inferior del formulario, de esta manera el propio VFP creará para mí una ventana que Podría usar.
Así que creo una barra de herramientas simple con solo una forma que dará como resultado una barra de herramientas de 24 píxeles de alto. Establecí su propiedad ShowWindow en 1 (en el formulario de nivel superior). En la etapa de creación de la barra de estado Ctl32, creo una instancia de esta barra de herramientas y la acoplo a la parte inferior de la ventana principal de VFP o al formulario de nivel superior según sea necesario. También utilizando la API, la ventana de la barra de herramientas se oculta. Lo que ocurre aquí es que una barra de herramientas no se puede agregar a un formulario de nivel superior hasta que el formulario esté visible, por lo tanto, evito el evento de activación del formulario para ejecutar un procedimiento que agregue la barra de herramientas y luego se desenlace.
Después de ver lo que hace VFP para mostrar su propia barra de estado, se me ocurrió la idea de agregar una barra de herramientas de VFP a un formulario de nivel superior y acoplarla en la parte inferior del formulario, de esta manera el propio VFP creará para mí una ventana que Podría usar.
Así que creo una barra de herramientas simple con solo una forma que dará como resultado una barra de herramientas de 24 píxeles de alto. Establecí su propiedad ShowWindow en 1 (en el formulario de nivel superior). En la etapa de creación de la barra de estado Ctl32, creo una instancia de esta barra de herramientas y la acoplo a la parte inferior de la ventana principal de VFP o al formulario de nivel superior según sea necesario. También utilizando la API, la ventana de la barra de herramientas se oculta. Lo que ocurre aquí es que una barra de herramientas no se puede agregar a un formulario de nivel superior hasta que el formulario esté visible, por lo tanto, evito el evento de activación del formulario para ejecutar un procedimiento que agregue la barra de herramientas y luego se desenlace.
Esta es una imagen de la barra de estado en un formulario de nivel superior, con un "recorte" donde puede ver la barra de herramientas subyacente utilizada para crear el "espacio" para mantener la barra de estado.
Al usar la propiedad hwnd de la barra de herramientas y la función de API GetParent, puedo obtener el hwnd de la ventana principal de la barra de herramientas, que usaré como principal del control de la Barra de estado de Windows. Pero espere, esta ventana principal tiene 32767 píxeles de ancho, por lo que no puedo usarla directamente, por lo que primero creo una estática (actualización: ahora creo una ventana usando la misma clase que las ventanas VFP, "tomo prestada" la clase de ventana de VFP) ventana como proxy, con un ancho igual al ancho de la ventana de Formulario / VFP, y usarlo como elemento primario para el control de la Barra de estado de Windows.
Tal vez esta lista de ventanas de Winspector puede ayudar a obtener una imagen de lo que está pasando:
Al usar la propiedad hwnd de la barra de herramientas y la función de API GetParent, puedo obtener el hwnd de la ventana principal de la barra de herramientas, que usaré como principal del control de la Barra de estado de Windows. Pero espere, esta ventana principal tiene 32767 píxeles de ancho, por lo que no puedo usarla directamente, por lo que primero creo una estática (actualización: ahora creo una ventana usando la misma clase que las ventanas VFP, "tomo prestada" la clase de ventana de VFP) ventana como proxy, con un ancho igual al ancho de la ventana de Formulario / VFP, y usarlo como elemento primario para el control de la Barra de estado de Windows.
Tal vez esta lista de ventanas de Winspector puede ayudar a obtener una imagen de lo que está pasando:
- La línea 1 en la lista es una ventana de formulario de nivel superior de VFP.
- La línea 2 es la ventana creada por la barra de herramientas, la que tiene un ancho de 32767 píxeles. Yo lo llamo la "ventana de host"
- La línea 3 es la ventana que creé para contener la ventana de la barra de estado de Windows. (ACTUALIZACIÓN: ahora creo una ventana utilizando la misma clase que las ventanas de VFP, "tomo prestada" la clase de ventanas de VFP, ¡y obtengo el ícono de cabeza de zorro gratis!). Yo lo llamo la "ventana Proxy"
- La línea 4 es la propia ventana de la barra de estado ctl32. Yo lo llamo la "ventana de control"
- La línea 5 es la ventana de la barra de progreso ctl32
- La línea 6 es la ventana de la barra de herramientas VFP que agrego.
- La línea 7 es la ventana del cliente del formulario de nivel superior. Vea la imagen del formulario de fondo amarillo en la parte superior de esta sección.
Todo lo que queda es hacer algo de magia en el evento de cambio de tamaño de la ventana de Formulario / VFP, y todo está configurado. Por ejemplo, la Barra de estado de Windows no mostrará un control de tamaño cuando su ventana principal esté maximizada, pero en este caso su ventana principal es una ventana estática, por lo que tuve que agregar un código para lidiar con eso.
ACTUALIZACIÓN 2006-05-07
Me he esforzado por proporcionar soporte para tratar con _Screen.Themes, Thisform.Themes y el cambio de tema en el nivel de Windows. Tomó más tiempo lidiar con estos problemas que programar todo en primer lugar. Creo que finalmente lo hice bien. Ahora puede configurar la propiedad de Temas de la barra de estado, cambiar Thisform.Themes, cambiar _Screen.Themes, o cambiar los temas en las Propiedades de Pantalla de Windows, y todo se verá como está supuestamente.
Por ahora me di por vencido al tratar de lidiar con SYS (2700,0) y SYS (2700,1). No hay forma de detectar el estado de ese interruptor, ya que SYS(2700) devuelve 1 si un tema está habilitado en Windows. También he visto interacciones extrañas cuando hago SYS(2700,0 / 1) y _Screen.Themes .T ./. F. muchas veces.
También he notado extrañas interacciones entre la pantalla del monitor y mis ojos después de cambiar de tema más de un millón de veces ...
He realizado algunas reformas al alcalde y me he movido bastante por las cosas, pero solo por el funcionamiento interno, así que todo es un poco más organizado y comprensible.
ACTUALIZACIÓN 2006-05-07
Me he esforzado por proporcionar soporte para tratar con _Screen.Themes, Thisform.Themes y el cambio de tema en el nivel de Windows. Tomó más tiempo lidiar con estos problemas que programar todo en primer lugar. Creo que finalmente lo hice bien. Ahora puede configurar la propiedad de Temas de la barra de estado, cambiar Thisform.Themes, cambiar _Screen.Themes, o cambiar los temas en las Propiedades de Pantalla de Windows, y todo se verá como está supuestamente.
Por ahora me di por vencido al tratar de lidiar con SYS (2700,0) y SYS (2700,1). No hay forma de detectar el estado de ese interruptor, ya que SYS(2700) devuelve 1 si un tema está habilitado en Windows. También he visto interacciones extrañas cuando hago SYS(2700,0 / 1) y _Screen.Themes .T ./. F. muchas veces.
También he notado extrañas interacciones entre la pantalla del monitor y mis ojos después de cambiar de tema más de un millón de veces ...
He realizado algunas reformas al alcalde y me he movido bastante por las cosas, pero solo por el funcionamiento interno, así que todo es un poco más organizado y comprensible.
Propiedades, Eventos y Métodos
ctlCaptionProperty.Value Type: CharacterDefault Value: NoneR/W: Read/WriteEsta propiedad es un acceso directo a StatusBar.PanelMessage.ctlCaption
El texto que se mostrará en el primer panel de la izquierda, el Panel de mensajes. Si está configurado, anula cualquier otro conjunto de texto de Menús y controla StatusBarText. Establézcalo en una cadena vacía para continuar mostrando los mensajes de la barra de estado normal.
ctlClickEvento.
Ocurre cuando el usuario hace clic en la barra de estado con el botón izquierdo del ratón.
ctlDblClickEvento.
Ocurre cuando el usuario hace clic dos veces en la barra de estado en una sucesión rápida, también dispara un evento Click / Right Click antes.
ctlGetStringSize(cExpression, cFlags)Método.
Devuelve el Ancho o el Alto de la cadena de caracteres de cExpression especificada, calculada con las propiedades de fuente de la fuente StatusBar (Nombre, Tamaño, etc.) Útil al configurar la propiedad ctlAutosize de un Panel en .F. y necesitamos saber qué ancho es una expresión de caracteres para establecer la propiedad ctlWidth del Panel.
cFlag = "W" devuelve Ancho (predeterminado)
cFlag = "H" devuelve Altura
ctlHWndProperty.Value Type: NumericDefault Value: 0R/W: ReadDevuelve un identificador de ventana al control.
El entorno operativo de Microsoft Windows identifica cada formulario en una aplicación asignándole un identificador, o hWnd. La propiedad hWnd se usa con las llamadas a la API de Windows. Muchas funciones del entorno operativo de Windows requieren el hWnd de la ventana activa como argumento.
ctlIconProperty.Value Type: CharacterDefault Value: NoneR/W: Read/WritecFileName especifica el nombre del archivo y la ruta del icono que se mostrará en el panel de mensajes. El archivo de iconos debe tener un icono de 16x16 256 colores.
Esta propiedad es un acceso directo a StatusBar.PanelMessage.ctlIcon
Si el archivo que especifica no existe, no se genera ningún error y el icono anterior, si se definió, se elimina.
Para eliminar un icono, establezca el valor en una cadena vacía. Los archivos de iconos deben incluirse en el proyecto. No es necesario copiar los archivos de íconos al implementar la aplicación.
ctlInitEvento.
Este evento es útil cuando se utiliza una barra de estado en un formulario de nivel superior. El código en este evento se ejecuta después de que se haya creado la barra de estado, por lo que puede personalizarlo aquí
ctlLangIDProperty.Value Type: NumericDefault Value: 0R/W: Read/WriteCuando se establece en un valor distinto de 0x0, reemplaza el idioma de la configuración regional del sistema para las cadenas de idioma del control. En la barra de estado, el texto de los indicadores Bloq Mayús, Bloq Num y Insertar.
Consulte http://msdn.microsoft.com/library/default.asp?url=/library/en-us/intl/nls_61df.asp para obtener los códigos de configuración regional.
ctlMessageProperty.Value Type: CharacterDefault Value: NoneR/W: Read/WriteEsta propiedad es un acceso directo a StatusBar.PanelMessage.ctlCaption
El texto que se mostrará en el primer panel de la izquierda, el Panel de mensajes. Si está configurado, anula cualquier otro conjunto de texto de Menús y controla StatusBarText. Establézcalo en una cadena vacía para continuar mostrando los mensajes de la barra de estado normal.
nButtonProperty.Value Type: NumericDefault Value: 0R/W: ReadDevuelve un número que especifica en qué botón del mouse se hizo clic en el último clic, DblClick o RightClick
1: botón izquierdo del ratón
2: botón derecho del ratón
nPanelProperty.Value Type: NumericDefault Value: 0R/W: ReadDevuelve un número que especifica en qué panel se hizo clic en el último evento Click, DblClick o RightClick.
-2: sin panel, clic en bordes o área de agarre de tamaño
-1: PanelMessage
0: PanelProgressBar (El panel, no la barra de progreso en sí)
n: Paneles (n) Donde n es un número de panel personalizado de 1 a 100
101: PanelOvr
102: PanelCaps
103: PanelNum
104: PanelDate
nXCoordProperty.Value Type: NumericDefault Value: 0R/W: ReadLa posición horizontal (nXCoord) del puntero del mouse en el último evento Click o DblClick, en relación con la esquina superior izquierda o la barra de estado.
nYCoordProperty.Value Type: NumericDefault Value: 0R/W: ReadLa posición vertical (nYCoord) del puntero del mouse en el último evento Click o DblClick, en relación con la esquina superior izquierda o la barra de estado.
ctlPanelCountProperty.Value Type: NumericDefault Value: 5R/W: Read/WriteEspecifica el número de objetos del Panel, disponibles en tiempo de diseño y de solo lectura en tiempo de ejecución. Al crear una instancia de una barra de estado en el código, el número de paneles debe pasarse como un parámetro. El número máximo de paneles personalizados es 100. (creo que más que suficiente). El valor de PanelCount no debe cambiarse en el tiempo de ejecución.
ctlPanels(nPanel)Propiedad.
Una matriz para acceder a objetos individuales personalizados del Panel en el control por número de panel. Sólo lectura en tiempo de ejecución.
Los paneles personalizados pueden ser referenciados por esta matriz. Si tiene 3 paneles personalizados en la barra de estado, entonces tendrá:
StatusBar.Panels (1)
StatusBar.Panels (2)
StatusBar.Panels (3)
Los paneles integrados no se pueden referenciar de esta manera, no forman parte de esta matriz.
El debe ser referenciado por sus nombres.
ctlRightClickEvento.
Ocurre cuando el usuario hace clic en la barra de estado con el botón derecho del ratón
ctlSizeGripProperty.Value Type: LogicalDefault Value: .T.R/W: Read/WriteSpecifies whether a sizing grip will be shown in the status bar. The sizing grip will be disabled when a form is maximized or its border style is not sizable.
ctlThemesProperty.Value Type: LogicalDefault Value: .T.R/W: Read/WriteSpecifies whether Windows XP Themes are enabled or disabled for a control. Read/write at design and run time.
ctlUpdatePanels() 2006XXXXMethod.Updates the updatable panels: PanelMessage, PanelOvr, PanelNum. PanelCaps, PanelDate
ctlVcxCommonProperty.Value Type: CharacterDefault Value: ctl32_common.vcxR/W: Read/WriteSpecifies the location and file name of the ctl32_common vcx file
ctlVcxProgressBarProperty.Value Type: CharacterDefault Value: ctl32_progressbar.vcxR/W: Read/WriteSpecifies the location and file name of the ctl32_progressbar vcx file
ctlVcxStructsProperty.Value Type: CharacterDefault Value: ctl32_structs.vcxR/W: Read/WriteSpecifies the location and file name of the ctl32_sctrucs vcx file
ctlUpdateStyleProperty.Value Type: NumericDefault Value: 1R/W: Read/WriteIndicates the update method to use to update the panels (PanelMessage, PanelOvr, PanelNum. PanelCaps, PanelDate)1: Update with VFP timer2: Update using WM_ENTERIDLE message (http://blogs.msdn.com/calvin_hsia/archive/2006/03/08/546722.aspx)When using ctlUpateStyle = 2 the status bar will only display messages from the menu options, if the menu options have any message text set. The statusbar will not display the text of controls with StatusBarText property set.3: No automatic update, the updates will be done using ctlUpdatePanels()
Panel Objects (only available at run time)
This is the list of the names of the available panels:PanelMessagePanelProgressBarPaneln or Panels(n)n is the panel number of the custom panel, for example, if we have 3 custom panels, panel number two can be referred to as "Panel2" or Panels(2) or we can change its Name property and call it what we want, "PanelUser" for example.PanelOvrPanelCapsPanelNumPanelDate
Panel Properties:
ctlAlignmentProperty.Value Type: NumericDefault Value:R/W:0 Left
1 Right
2 Center
ctlAutosizeProperty.Value Type: LogicalDefault Value:R/W:True / False
ctlCaptionProperty.Value Type: CharacterDefault Value:R/W:The text to display in the Panel.
ctlFormatProperty.Value Type: NumericDefault Value:R/W:Sets date format for PanelDate0 Nothing
1 Short date
2 Long date.The date is shown in the Windows formats set in Control Panel.Applies to: PanelDate panel only.
ctlIconProperty.Value Type: CharacterDefault Value:R/W:Full path and name to a 16x16 256 color icon (".ico") file to display in the Panel. Set to an empty string to clear the Icon.
ctlIndexProperty.Value Type: NumericDefault Value:R/W:Returns the index number of the custom Panel. This is the index used by the statusbar, it is 0 based. Used internally by class to send messages to statusbar window control.
ctlNameProperty.Value Type: CharacterDefault Value:R/W:The name of each Panel. You can change the names of the custom panels from Paneln to what you want.Remarks:Property "Name" can still be used, this property was added to be consistent in the naming conventions.
ctlToolTipTextProperty.Value Type: CharacterDefault Value:R/W:The text to display in the Panel ToolTip. This text will display if any of this conditions is true:There is only an Icon with no Caption text.ctlAutosize is .F.: when the Caption text does not fit in the Panel, or Alignment is Left.ctlAutosize is .T.
ctlVisibleProperty.Value Type: LogicalDefault Value:R/W:Specifies whether a Panel is visible or hidden. True/False, 0/1. The first panel, PanelMessage is always visible.
ctlWidthProperty.Value Type: NumericDefault Value:R/W:Sets the Width of a Panel when its ctlAutosize property is set to FalseRemarks:Property "Width" can still be used, this property was added to be consistent in the naming conventions.
Note
Todas las propiedades y métodos con un nombre que comienzan con "_" son solo para uso interno de la clase.