Página 1 de 1

Problema con AutoScale

Publicado: Lun Mar 07, 2011 8:06 pm
por perolero
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.

Problema con AutoScale

Publicado: Lun Mar 07, 2011 8:12 pm
por ignacio
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.