El servicio Resize funciona bien al abrir una ventana de hoja usando Layered o Cascaded, pero solo si llama a la función of_SetOrigSize en el servicio Resize antes de comenzar a registrar los controles en la ventana.

El verdadero truco está en determinar los valores adecuados para pasar a la función of_SetOrigSize. Esto es lo que hice en el evento pfc_PreOpen de una ventana de prueba que contiene un botón de comando en la esquina inferior derecha que cierra la ventana:

Constant Integer WIDTH_ADJUST  = -36   // Your values may be different?
Constant Integer HEIGHT_ADJUST = -180

This.of_SetResize(True)
This.inv_resize.of_SetOrigSize(This.Width+WIDTH_ADJUST,This.Height+HEIGHT_ADJUST)

This.inv_resize.of_Register(cb_close,This.inv_resize.FIXEDRIGHTBOTTOM)

Los factores de ajuste de ancho y alto son necesarios porque en el tiempo de ejecución las propiedades de ancho y alto de la ventana incluyen los bordes y la barra de título (título) ... en el panel Propiedades del pintor de ventanas, estas cantidades se han eliminado. Las funciones WorkSpaceWidth () y WorkSpaceHeight () no se pueden utilizar porque cuando la ventana se abre como Layered o Cascaded, estas funciones devuelven el tamaño del espacio de trabajo redimensionado.

Con el código anterior, el servicio Cambiar tamaño funciona correctamente independientemente de cómo se abra la ventana de la hoja.

Hola Cecilia,

He adjuntado mi versión de tu ejemplo.

1) no compilaba, tenía que quitar las 2 librerías de seguridad de la lista de librerías

2) no compilaba, tenía que renombrar una constante de tipo integer llamada "RESIZE" hacia "CONTSRESIZE". Resize es una palabra reservada, ya que es una función y también el nombre de un evento.

3) no tienes que abrir la ventana w_ppal desde el open de w_marco, sino desde el pfc_postopen

4) he comentado la línea que maximiza w_ppal.

Creo que ahora funciona mejor (espero)

saludos

MiguelL

Por cierto las PFC son la última versión de 2019.

Gracias.

Hola

Adjunto una pequeña prueba, en vez de una datawindow y un panel, he puesto dos rectángulos, uno para acotar el MDI_1 y el otro dentro de la ventana sheet con un botón que es lo que se tiene que resizar. El botón debe moverse hacia abajo-derecha y el rectángulo ampliarse. Dentro del rectángulo he colocado unos statictext con los valores del workspaceHeitgh, workspaceWidth, windows heigth y width y el heigth y el width del rectángulo.

En el código subido estoy abriendo la sheet como Original con lo que funciona, para probar los otros modos  cambiad el código en el evento open de la w_marco

He comprobado que el problema viene cuando el OpenSheet lo hago en modo Layered o Cascade. Si abro la ventana en modo Original y la maximizo funciona bien.

Esto de momento me soluciona el problema, pero sería interesante ver porque no funciona en los otros dos modos de apertura de la sheet.

Muchísimas gracias!!!

Si puedes hace una pequeña aplicación para poder reproducir el problema estaremos encantados de ayudarte a resolver el problema.

Hola,

No digo que ésto será el problema, pero podría ser que tus ventanas heredadas de w_sheet tienen grabadas los últimos tamaños y posiciones?

En este caso, mira qué pasa si le das a "Ventana > Layer". Posiblemente se están aplicando posiciones a las ventanas que fueron grabadas cuando tu nuevo object todavía no existía.

saludos

Hola, Cecilia -

¿La ventana de la hoja ya está abierta y / o maximizada cuando se agrega la barra de herramientas al lado izquierdo del marco MDI? Incluso con la excelente descripción del problema que está experimentando, tengo un poco de dificultad para visualizar los pasos que ha descrito.

¿Puedes publicar capturas de pantalla antes y después? Si es así, sería útil reducir el tamaño del marco MDI, ya que las imágenes grandes se reducen cuando se publican si se pegan en una publicación de respuesta.

Además, ¿sabría cuántos años tiene el conjunto de bibliotecas PFC que está utilizando?