Problema con AutoScale
Publicado: Lun Mar 07, 2011 8:06 pm
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.
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.