Hola tengo el siguiente código en formulario principal:
Desde aqui lanzo un formulario dentro de un Folder
METHOD RecepcionMercancia( oSender, oMenu ) CLASS TFormPrincipal
::oImage1:lVisible := .F.
if ::oRecepcion != Nil .and. ::oRecepcion:lopen
::oRecepcion:select()
else
::oRecepcion := TRecepcionProducto():New( ::oFolder )
endif
RETURN Nil
y aqui controlo el cambio de tamaño del formulario principal
METHOD FormSize( oSender, nSizeType, nClientWidth, nClientHeight ) CLASS TFormPrincipal
if nSizeType = 2
Application:lAutoScale := .T.
Application:nScale := 150
endif
Return Nil
Cuando maximizo el formulario no ocurre ningún cambio de tamaño, pero si con la ventana maximizada cierro el folder y lo vuelvo a abrir, en ese caso ya muestra el tamaño con la escala indicada, es decir 150, como lo tengo que hacer para que no haga falta abrirlo y cerrarlo.
Un saludo.
Emilio Gil.
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Problema con AutoScale
- ignacio
- Site Admin
- Mensajes: 9458
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Problema con AutoScale
Emilio,
Esas dos propiedades de Application sólo tienen en cuenta en futuros
formularios que se creen después de la asignación. Los formularios que ya
fuesen creadas antes de dicha asignación no sufrirán ningún cambio.
Un saludo
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
http://www.xailer.com/forum
http://www.xailer.com/dokuwiki
"Emilio Gil" escribió en el mensaje de
noticias:4d752cd0$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Hola tengo el siguiente código en formulario principal:
Desde aqui lanzo un formulario dentro de un Folder
METHOD RecepcionMercancia( oSender, oMenu ) CLASS
TFormPrincipal
::oImage1:lVisible := .F.
if ::oRecepcion != Nil .and. ::oRecepcion:lopen
::oRecepcion:select()
else
::oRecepcion := TRecepcionProducto():New( ::oFolder )
endif
RETURN Nil
y aqui controlo el cambio de tamaño del formulario
principal
METHOD FormSize( oSender, nSizeType, nClientWidth,
nClientHeight ) CLASS TFormPrincipal
if nSizeType = 2
Application:lAutoScale := .T.
Application:nScale := 150
endif
Return Nil
Cuando maximizo el formulario no ocurre ningún cambio de
tamaño, pero si con la ventana maximizada cierro el folder
y lo vuelvo a abrir, en ese caso ya muestra el tamaño con
la escala indicada, es decir 150, como lo tengo que hacer
para que no haga falta abrirlo y cerrarlo.
Un saludo.
Emilio Gil.
Esas dos propiedades de Application sólo tienen en cuenta en futuros
formularios que se creen después de la asignación. Los formularios que ya
fuesen creadas antes de dicha asignación no sufrirán ningún cambio.
Un saludo
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
http://www.xailer.com/forum
http://www.xailer.com/dokuwiki
"Emilio Gil" escribió en el mensaje de
noticias:4d752cd0$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Hola tengo el siguiente código en formulario principal:
Desde aqui lanzo un formulario dentro de un Folder
METHOD RecepcionMercancia( oSender, oMenu ) CLASS
TFormPrincipal
::oImage1:lVisible := .F.
if ::oRecepcion != Nil .and. ::oRecepcion:lopen
::oRecepcion:select()
else
::oRecepcion := TRecepcionProducto():New( ::oFolder )
endif
RETURN Nil
y aqui controlo el cambio de tamaño del formulario
principal
METHOD FormSize( oSender, nSizeType, nClientWidth,
nClientHeight ) CLASS TFormPrincipal
if nSizeType = 2
Application:lAutoScale := .T.
Application:nScale := 150
endif
Return Nil
Cuando maximizo el formulario no ocurre ningún cambio de
tamaño, pero si con la ventana maximizada cierro el folder
y lo vuelvo a abrir, en ese caso ya muestra el tamaño con
la escala indicada, es decir 150, como lo tengo que hacer
para que no haga falta abrirlo y cerrarlo.
Un saludo.
Emilio Gil.
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com