8 de diciembre de 2019

Redimensionar imagenes

He estado trabajando en un proyecto en el cual debía almacenar una imagen para emitir un certificado, para lo cual utilice un campo blob, pero algunas de las imágenes llegaban a mediar más de 1Mb y con las limitantes de VFP en cuanto al almacenamiento de datos decidí redimensionar las imágenes según el tamaño al que serán impresas.

Y gracias a PortalFox y sus colaboradores he aquí mi variante para este caso.

Caso de Uso
--Metodo Click() del boton cmdExplorar-- 
LOCAL lcPict
lcPict = GETPICT('bmp;gif;jpg;tif;png')
IF !EMPTY(lcPict)
  lcFile = FileToStr(ResizePicture(lcPict,320,240,100))
  REPLACE Certificado.foto WITH lcFile 
ENDIF 
La funcion requiere de 4 parametros:
tcFile   -> Archivo de imagen
tcWitdth -> Nuevo ancho de imagen
tcHeigth -> Nuevo alto de imagen
tcQuality -> Calidad para el redimencionamiento (0 - 100)
FUNCTION ResizePicture(tcFile as String, tcWidth as Integer, tcHeight as Integer, tcQuality as Integer)
  SET CLASSLIB TO HOME() + "/FFC/_GdiPlus.vcx"
  SET COMPATIBLE ON 

  LOCAL loGraphics as gpGraphics OF HOME() + "/FFC/_GdiPlus.vcx"
  LOCAL loImage    as gpImage    OF HOME() + "/FFC/_GdiPlus.vcx"
  LOCAL loBmpOut   as gpBitmap   OF HOME() + "/FFC/_GdiPlus.vcx"
  LOCAL lcNewPic  as String
  LOCAL lcExt     as Character

  IF !DIRECTORY(ADDBS(SYS(5) + SYS(2003)) + "Imagenes\temp\",1)
    MKDIR (ADDBS(SYS(5) + SYS(2003)) + "Imagenes\temp\")
  ENDIF 

  lcExt = LOWER(JUSTEXT(tcFile))
  lcNewPic = ADDBS(SYS(5) + SYS(2003)) + "Imagenes\temp\" + LOWER(JUSTSTEM(tcFile)) + CHR(46) + lcExt

  loGraphics = CREATEOBJECT("gpGraphics")
  loImage    = CREATEOBJECT("gpImage",m.tcFile)
  loBmpOut   = CREATEOBJECT("gpBitmap",m.tcWidth,m.tcHeight)

  loImage.CreateFromFile(m.tcFile)
  loGraphics.CreateFromImage(loBmpOut)
  loGraphics.DrawImageScaled(loImage,0,0,loBmpOut.ImageWidth,loBmpOut.ImageHeight)
  DO CASE 
    CASE lcExt = "bmp"
      loBmpOut.SaveToFile(lcNewPic,"image/bmp","quality=" + ALLT(STR(m.tcQuality)))
    CASE (lcExt = "jpg") OR (lcExt = "jpeg")
      loBmpOut.SaveToFile(lcNewPic,"image/jpeg","quality=" + ALLT(STR(m.tcQuality)))
    CASE lcExt = "gif"
      loBmpOut.SaveToFile(lcNewPic,"image/gif","quality=" + ALLT(STR(m.tcQuality)))
    CASE (lcExt = "tif") OR (lcExt = "tiff")
      loBmpOut.SaveToFile(lcNewPic,"image/tiff","quality=" + ALLT(STR(m.tcQuality)))
    CASE lcExt = "png"
      loBmpOut.SaveToFile(lcNewPic,"image/png","quality=" + ALLT(STR(m.tcQuality)))
  ENDCASE 

  RETURN lcNewPic
ENDFUNC 

Saludos

Hector Urrutia
El Salvador

2 de noviembre de 2019

Cómo poner una imagen sobre otra en un formulario

Cómo poner una imagen sobre otra en un formulario

Artículo original: How to put one image over another in a form
http://weblogs.foxite.com/vfpimaging/archive/2007/10/30/5252.aspx
Autor: Cesar Ch.
Traducido por: Luis María Guayán


Esto es una cosa muy básica y fácil.

La imagen que quedará en la parte superior debe tener algún tipo de transparencia establecida. Se recomienda que utilice un BMP de 24bits. VFP convertirá automáticamente la parte blanca de la imagen en transparente, como en la siguiente imagen, si pone la propiedad "BackStyle" del objeto Imagen en "0 - Transparente". No olvide de "Traer al frente" la imagen, desde la barra de herramienta de diseño.

El primer formulario muestra 2 imágenes separadas, pero con fondos opacos. Luego, en el segundo, configuro el fondo transparente, y luego cubro una parte de la imagen para que pueda ver cómo queda. Puede obtener más información en este artículo traducido al español en este Blog en: BMPs con fondos transparentes.

Otra buena manera es usar PNGs, que soportan ALPHA (transparencias), pero lo más recomendado, y tiene mejor soporte en VFP, es el uso de BMPs, tal como aquí se muestra.

Actualización del 30 de Octubre de 2007

Bernard Bout recuerda que "tenga en cuenta que TODAS las áreas blancas de una imagen serán transparente. Por ejemplo, en la segunda imagen puesta por Cesar, el fondo del formulario es visible a través de los ojos del hombre brasileño. Si esto no es lo que quiere, entonces usted debe "enmascarar" las partes blancas del mapa de bits que desea que NO SEA TRANSPARENTE. Simplemente abra la imagen y pinte las partes blancas que se quiere mantener de NEGRO. La imagen debe ser del mismo tamaño. Pinte todas las otras partes de blanco y guardarlo como un BMP pero con una extensión .MSK. VFP automáticamente usará este archivo para "enmascarar" las zonas de blancas que serán transparentes".

Para este caso, yo por lo general edito la imagen, y cambio el RGB "blanco" puro -RGB(255,255,255)- que quiero mantener, cerca de otro blanco, como RGB(254,254,254). Nadie se dará cuenta de la diferencia y funciona muy bien, con la ventaja de no tener que crear un archivo de imagen adicional.

De todos modos, si prefiere crear una máscara, elija para crear un formato de imagen de 1bpp MONOCHROMÁTICO. Por lo general la gente guarda en el formato "24bits". Pero como las imágenes .MSK son unicamente en blanco & negro, monocromático, tienen un tamaño de archivo más pequeño. Comparando una imagen monocromática, la imágen de 24bpp será 24 veces mayor en tamaño.

En MSPaint, por ejemplo, elija, "Guardar como..."

Otras notas importantes sobre archivos MSK

En la Ayuda para PictureVal:

"Ud. no puede especificar un archivo de máscara (MSK) con la propiedad PictureVal. Si Ud. está utilizando imágenes BMP y quiere una máscara, Ud. debe usar la propiedad Picture. Ud. también puede utilizar un formato diferente de imagen, como un GIF, que tiene definida la transparencia dentro de la imagen."

How to: Enhance Control Display: Una buena explicación (en inglés) acerca de los archivos .MSK.


3 de octubre de 2019

Colocar menús popup

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.


21 de septiembre de 2019

Almacenar objetos grandes en la base de datos

Ejemplo de como subir archivos en una base de datos, en este caso PostgreSQL.

Muchas veces nos encontramos con la necesidad de guardar archivos en el servidor para disponibilidad de los usuarios de nuestra aplicación.

La acostumbrada ruta aleatoria del archivo en una base de datos y su posterior copiado en el mismo muchas veces no sera aplicable mas aun cuando nuestra base de datos se encuentra en un servidor remoto donde no disponemos de accesos a sus recursos

Aquí es cuando surge la necesidad de cambiar la estrategia de almacenamiento de estos objetos grandes en campos de la base de datos el ejemplo utiliza un campo tipo text equivalente a un campo memo de una dbf.

Lo primero es convertir nuestro archivo a base 64 para poder almacenarlo y lo hacemos con las siguientes lineas :

nfile = GETFILE()
** convertimos a base 64
wbase64 = strconv(filetostr(nfile),13)
** almacenamos en la base de datos
sqlexec(1,"insert into sistema.multimedia (objeto,nombre) values (? wbase64,?justfname(nfile))","rta")
** para descargar el archivo usaramos la siguiente sintaxis
sqlexec(1,"select * from sistema.multimedia where ide=1","rta")
_rutarchivo = SYS(5) + "\" + ALLTRIM(rta.nombre)
sele rta
strtofile(STRCONV(rta.objeto,14),_rutarchivo)
** y lo podemos abrir con el programa asociado
oShell = CreateObject("WScript.Shell")
oShell.Run(_rutarchivo,2,.f.)

mgx

13 de agosto de 2019

Solucionar el problema del relleno de VarChar

Solucionar el problema del relleno de VarChar

Autor: Mike Lewis
Texto original: Solving the "padded VarChar" problem (http://www.ml-consult.co.uk/foxst-36.htm)
Traducido por: Ana María Bisbé York


¿Cómo evitar los espacios no deseados en las tablas en Bases de datos?

Si utiliza vistas remotas para actualizar datos en bases de datos remotas, probablemente haya sufrido el problema del relleno en campos VarChar.

Cuando Visual FoxPro lee datos remotos (como puede ser SQL Server u Oracle) a una vista remota, convierte cualquier columna VarChar en un campo caracteres. Cada campo se rellena con espacios para llenar el mayor ancho. Si luego utiliza esa vista remota para actualizar el servidor, los espacios agregados se envían de regreso. El servidor almacena espacios en blanco extras en las tablas, lo que impide aprovecharse de los beneficios de datos VarChar.

En VFP 7.0 y antes, no había mucho que se pudiera hacer. De hecho, esta era una de las razones por las que los desarrolladores evitaran el uso de vistas remotas al actualizar datos, prefiriendo en su lugar utilizar comandos UPDATE y DELETE directamente vía SQL pass-through. VFP 8.0 proporciona un tratamiento alternativo con el CursorAdapter. Al agregar la función Trim en la propiedad ConversionFunc del CursorAdapter, puede eliminar los espacios extras. Pero el paso de vistas remotas a CursorAdapters podría involucrar bastante trabajo.

Una mejor solución

VFP 9.0 ofrece una solución mucho mejor. A diferencia de versiones anteriores, la versión 9.0 soporta el tipo de dato VarChar en vistas remotas. Si ambos campos, los de Vistas remotas y los del servidor son VarChar, los datos no se van a rellenar con espacios, entonces, no surgirá el problema.

Sin embargo, esto no ocurre automáticamente. De forma predeterminada, cualquier columna VarChar en el servidor se va a corresponder con un campo de caracteres en las vistas, como en versiones anteriores. Para poder aprovechar las ventajas del nuevo tipo de dato VarChar, hay que cambiar explícitamente el tipo de dato en la vista.
Si está comenzando una aplicación nueva y no tiene creadas sus vistas remotas, está de suerte. Todo lo que necesita hacer es ejecutar el siguiente comando antes de crear las vistas:

CURSORSETPROP("MapVarChar", .T., 0) 

Esto dice a VFP que haga corresponder columnas VarChar con campos VarChar del servidor. Al pasar 0 como tercer parámetro, se estipula que esta configuración se aplica a todas las vistas creadas en la sesión actual. Esto sólo afecta a las nuevas vistas que se creen, cualquier vista creada antes, no se verá afectada. Esta configuración no es persistente, asegúrese de ejecutar el comando anterior antes de crear vistas en la sesión actual.

Hacerlo retrospectivamente

Si ha creado sus vistas remotas, será necesario alterar el tipo de dato cada uno de los campos relevantes. Una vía de hacerlo es desde dentro del diseñador de vistas. Desde el menú Consultas, abra la ventana View SQL (Ver SQL). Verá la sentencia SQL que define la vista, seguida de una serie de llamadas DBSETPROP(). Este va a incluir, por cada uno de los campos de la vista, una línea de código que establece el tipo de dato del campo. Por ejemplo:

DBSetProp(ThisView+".company","Field","DataType","C(40)")

El C(40) en este ejemplo indica un campo de caracteres con ancho fijo, igual a 40. Para convertirlo en un campo VarChar, simplemente cambie la C por una V. Repita este proceso para todos los campos que quiere que se correspondan con VarChar, luego guarde la vista y cierre el diseñador. Los cambios serán efectivos la próxima vez que se abra la vista.

Alternativamente, puede utilizar la ventana comandos para hacer este trabajo. En este caso escriba un comando similar al del ejemplo anterior; pero con el nombre de la vista precediendo al nombre de la columna, en lugar de ThisView. Nuevamente cambie el tipo de datos de C a V:

DBSetProp("Customer.company","Field","DataType","V(40)")

Repita este proceso para cada campo que desee corresponder en cada uno de las vistas remotas. Como antes, los cambios van a tener efecto, la próxima vez que se abra la vista.

Mike Lewis Consultants Ltd. Febrero 2005

9 de julio de 2019

Transacciones de usuarios en base de datos

Tuve la necesidad de crear una solución para ver las transacciones que podrían hacer los usuarios, debido a que trabajo con bases e datos de foxpro(DBC) , y se trataba de no meter mas código o funciones en el mismo sistema realizado, si no que el proceso fuera transparente, osea se trata de escribir un código en los procedimientos almacenados de la DBC y esto si crear programas.

1 - Abrir la base de datos a usar

Crear una tabla con con la siguiente información en la base de datos abierta

NOMBRE: HISTORIAL.DBF

Campo  Campo Nombre  Tipo       Ancho  
1      USUARIO       Caracter   20     
2      TIPO          Caracter   20     
3      FECHA         DateTime   8      
4      TABLA         Caracter   30     
5      EQUIPO        Caracter   50     
6      OBSERVA       Memo       4      

Los indices de la tabla pueden ser creados a su consideración para generar reportes o métodos de consulta propios

2 - Ir a las propiedades de la base de datos y activar la casilla de verificación "SET EVENTS ON " y despues dar click a el botón "EDIT CODE", después insertar el siguiente código:

PROCEDURE Hsts(clTipo)
  LOCAL clobser
  STORE SPACE(0) TO clObser,clObservaciones,clValor,clDatos
  IF !TYPE("cp_login")="C"
    cp_login="DESCONOCIDO"
  ENDIF
  clAlias=Alias()
  If Empty("clAlias")
    Return
  Endif
  Select (clAlias)
  clRutaHistorico=ADDBS(justpath(CURSORGETPROP("Database")))+"HISTORIAL.DBF"
  USE IN (SELECT("Historial_cfg"))
  nl_error=0
  ON ERROR nl_error=1
  USE (clRutaHistorico) IN 0 SHARED AGAIN Alias Historial_cfg
  ON ERROR
  IF nl_error=0
    clObser="Campos Modificados"+CHR(13)
    FOR Ind=1 TO FCOUNT(clAlias)
      clObser=clObser+"  "+FIELD(Ind)+"=  "
      clValor=ALLTRIM(clAlias)+"."+FIELD(Ind)
      DO Case
        CASE VARTYPE(&clValor) = "N"
          clDatos=STR(&clValor,16,2)
        CASE VARTYPE(&clValor) = "C"
          clDatos=&clValor
        CASE VARTYPE(&clValor) = "D"
          clDatos=DTOC(&clValor)
        CASE VARTYPE(&clValor) = "T"
          clDatos=TTOC(&clValor)
        OTHERWISE
          clDatos=""
      ENDCASE
      clObser=clObser+clDatos+CHR(13)
    NEXT
    clObservaciones=clObser
    SELECT Historial_cfg
    APPEND BLANK
    Replace Historial_cfg.TIPO WITH clTipo,;
      Historial_cfg.FECHA WITH DATETIME(),;
      Historial_cfg.USUARIO WITH Cp_LOGIN,;
      Historial_cfg.TABLA WITH clAlias,;
      Historial_cfg.EQUIPO WITH LEFT(SYS(0),AT("#",SYS(0))-1),;
      Historial_cfg.OBSERVA WITH clObservaciones
    USE IN (SELECT("Historial_cfg"))
  ENDIF
  IF !EMPTY(clalias)
    SELECT &clAlias
  ENDIF
  ON ERROR
  RETURN
ENDPROC

3 - En la tablas importantes en donde se requiera el registro de transacciones se realizar lo siguiente modificar datos de la tabla, y ir a la pestaña "Table" y en cada Triggers insertar el siguiente código:

Insert Trigger = Hsts("AGREGAR")
update Trigger = Hsts("MODIFICAR")
delete Trigger = Hsts("ELIMINAR")

4 - Listo después de esto entonces cada transacción se estará grabando el la tabla de Historial, solo faltaría hacer un reporte para visualizar información del historial.

10 de junio de 2019

Código genérico corregido para ActiveX

Artículo original: ActiveX generic fix
http://www.foxpert.com/knowlbits_200804_1.htm
Autor: Christof Wollenhaupt
Traducido por: Ana María Bisbé York


Después de leer mi artículo ActiveFiX que trataba sobre la no respuesta de controles ActiveX, Carlos Alloatti llegó a una solución genérica del problema:

*!* Habilitar ventanas de controles ActiveX 

#Define GW_CHILD 5
#Define GW_HWNDNEXT 2

Declare Integer GetWindow In win32api As apiGetWindow ;
  Integer nhWnd, ;
  Integer uCmd

Declare Integer RealGetWindowClass In win32api ;
  As apiRealGetWindowClass ;
  Integer nhWnd, ;
  String @pszType, ;
  Integer cchType

Declare Integer EnableWindow In win32api As apiEnableWindow ;
  Integer nhWnd, ;
  Integer bEnable

Local ;
  m.lnChildHWnd As Integer, ;
  m.lnCmd As Integer, ;
  m.lnEnable As Integer, ;
  m.lcClassName As String, ;
  m.lnBufferLen As Integer

*!* Para probar, cambie  m.lnEnable a 0 
*!* para inhabilitar las ventanas OleControl 
m.lnEnable = 1

If Thisform.ShowWindow = 2 Or Thisform.ScrollBars > 0 Then
  m.lnChildHWnd = apiGetWindow(Thisform.HWnd, GW_CHILD)
Else
  m.lnChildHWnd = Thisform.HWnd
Endif

m.lnCmd = GW_CHILD

Do While .T.
  m.lnChildHWnd = apiGetWindow(m.lnChildHWnd, m.lnCmd)

  If m.lnChildHWnd = 0 Then
    Exit
  Endif

  m.lcClassName = Space(254)
  m.lnBufferLen = apiRealGetWindowClass(m.lnChildHWnd, ;
    @m.lcClassName, Len(m.lcClassName))
    m.lcClassName = Left(m.lcClassName , m.lnBufferLen)

  If m.lcClassName == "CtlFrameWork_ReflectWindow" Then
    apiEnableWindow(m.lnChildHWnd, m.lnEnable)
  Endif

  m.lnCmd = GW_HWNDNEXT
Enddo

25 de mayo de 2019

No filtre datos en una cuadrícula

Artículo original: Don't FILTER Data in a Grid
http://www.craigberntson.com/blog/2008/08/dont-filter-data-in-grid.asp
Autor: Craig Berntson
Traducido por: Luis María Guayán


He visto varios mensajes en los foros donde últimamente la gente pregunta acerca de cómo filtrar los datos mostrados en una cuadrícula. Esta es una muy mala idea, ya que el deslizador de la barra de desplazamiento no funciona correctamente. Mire este formulario, que utiliza un filtro.


La tabla tiene más de 200.000 registros. Yo apliqué:

SET FILTER TO ContactName = "Alejandra Camino".

El resultado no es bueno. Vea la posición del deslizador. Cuando se mueve el deslizador hacia la parte superior de la barra de desplazamiento, éste salta de nuevo a la posición que se muestra en la imagen capturada, porque es ahí donde está el registro actual en la tabla entera. Esto es muy confuso para el usuario.

Ahora mire lo que sucede cuando se utiliza una consulta o una vista.


En este formulario creo una vista local y configuro la cuadrícula para usar la vista como fuente de datos. Luego consulto los datos utilizando una vista parametrizada. Mire en este caso, que el deslizador se encuentra en la parte superior de la barra de desplazamiento cuando el puntero de registro se encuentra en el primer registro. Esto se debe a que los datos de la cuadrícula solo contienen los registros:

WHERE ContactName = "Alejandra Camino"

en lugar de la tabla entera.

Escribir aplicaciones de esta forma podrá requerir un nuevo entrenamiento de los usuarios, ya que no tienen todos los datos al mismo tiempo, pero siempre pueden consultar los datos que deseen. En mi experiencia veo que los usuarios prefieren este tipo de aplicaciones. Su opinión puede ser distinta.

Una ventaja adicional es que estamos preparándonos para trabajar con SQL Server, ya sólo utiliza conjuntos de datos. Siempre debemos consultar los datos que deseamos y traer solamente estos, en lugar de todos.

Copyright 2008, Craig Berntson. Used by permission

10 de abril de 2019

Clase ctl32_statusbar

ctl32_statusbar

Por Carlos Alloatti

Descarga

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.


Jerarquía de clases
ctl32
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 ..."


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.

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.


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.


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
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:

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:

*!* 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)
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:

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:

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.
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:

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.

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.

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:
  • 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.

Propiedades, Eventos y Métodos
 ctlCaption
Property.
Value Type: Character
Default Value: None
R/W: Read/Write
Esta 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.


 ctlClick
Evento. 
Ocurre cuando el usuario hace clic en la barra de estado con el botón izquierdo del ratón.


 ctlDblClick
Evento.
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

 ctlHWnd
Property.
Value Type: Numeric
Default Value: 0
R/W: Read
Devuelve 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.

 ctlIcon
Property.
Value Type: Character
Default Value: None
R/W: Read/Write
cFileName 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.

 ctlInit
Evento.

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í

 ctlLangID
Property.
Value Type: Numeric
Default Value: 0
R/W: Read/Write
Cuando 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.

 ctlMessage
Property.
Value Type: Character
Default Value: None
R/W: Read/Write
Esta 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.

 nButton
Property.
Value Type: Numeric
Default Value: 0
R/W: Read
Devuelve 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

 nPanel
Property.
Value Type: Numeric
Default Value: 0
R/W: Read
Devuelve 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

 nXCoord
Property.
Value Type: Numeric
Default Value: 0
R/W: Read
La 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.

 nYCoord
Property.
Value Type: Numeric
Default Value: 0
R/W: Read
La 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.

 ctlPanelCount
Property.
Value Type: Numeric
Default Value: 5
R/W: Read/Write
Especifica 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.

 ctlRightClick
Evento.
Ocurre cuando el usuario hace clic en la barra de estado con el botón derecho del ratón

 ctlSizeGrip
Property.
Value Type: Logical
Default Value: .T.
R/W: Read/Write
Specifies 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.

 ctlThemes
Property.
Value Type: Logical
Default Value: .T.
R/W: Read/Write
Specifies whether Windows XP Themes are enabled or disabled for a control. Read/write at design and run time.

 ctlUpdatePanels() 2006XXXX
Method.
Updates the updatable panels: PanelMessage, PanelOvr, PanelNum. PanelCaps, PanelDate

 ctlVcxCommon
Property.
Value Type: Character
Default Value: ctl32_common.vcx
R/W: Read/Write
Specifies the location and file name of the ctl32_common vcx file

 ctlVcxProgressBar
Property.
Value Type: Character
Default Value: ctl32_progressbar.vcx
R/W: Read/Write
Specifies the location and file name of the ctl32_progressbar vcx file

 ctlVcxStructs
Property.
Value Type: Character
Default Value: ctl32_structs.vcx
R/W: Read/Write
Specifies the location and file name of the ctl32_sctrucs vcx file

 ctlUpdateStyle
Property.
Value Type: Numeric
Default Value: 1
R/W: Read/Write
Indicates the update method to use to update the panels (PanelMessage, PanelOvr, PanelNum. PanelCaps, PanelDate)
1: Update with VFP timer
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:
PanelMessage
PanelProgressBar
Paneln 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.
PanelOvr
PanelCaps
PanelNum
PanelDate

Panel Properties:
 ctlAlignment
Property.
Value Type: Numeric
Default Value:
R/W:
0 Left
1 Right
2 Center

 ctlAutosize
Property.
Value Type: Logical
Default Value:
R/W:
True / False

 ctlCaption
Property.
Value Type: Character
Default Value:
R/W:
The text to display in the Panel.

 ctlFormat
Property.
Value Type: Numeric
Default Value:
R/W:
Sets date format for PanelDate
0 Nothing
1 Short date
2 Long date.
The date is shown in the Windows formats set in Control Panel.
Applies to: PanelDate panel only.

 ctlIcon
Property.
Value Type: Character
Default 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.

 ctlIndex
Property.
Value Type: Numeric
Default 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.

 ctlName
Property.
Value Type: Character
Default 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.

 ctlToolTipText
Property.
Value Type: Character
Default 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.

 ctlVisible
Property.
Value Type: Logical
Default Value:
R/W:
Specifies whether a Panel is visible or hidden. True/False, 0/1. The first panel, PanelMessage is always visible.

 ctlWidth
Property.
Value Type: Numeric
Default Value:
R/W:
Sets the Width of a Panel when its ctlAutosize property is set to False
Remarks:
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.

Descarga