FoxPro/Visual FoxPro - Ajuste automático de escala en formularios Visual Foxpro

   
Vista:

Ajuste automático de escala en formularios Visual Foxpro

Publicado por Francis francismv14@hotmail.com (9 intervenciones) el 06/08/2015 17:35:55
AYUDA Ajuste automático de escala en formularios visual Foxpro

El escalado automático permite que un formulario y sus respectivos controles, diseñados en una máquina con una determinada resolución de pantalla o fuente del sistema, se muestren correctamente en otra máquina con una resolución de pantalla o una fuente de sistema diferentes.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Eduardo Ureña

Ajuste automático de escala en formularios Visual Foxpro

Publicado por Eduardo Ureña (78 intervenciones) el 06/08/2015 23:31:29
Bueno... nos diste una definición, pero en ninguna parte describes el problema que tenés o lo que deseas aportar.

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
-1
Comentar

Ajuste automático de escala en formularios Visual Foxpro

Publicado por Francis (9 intervenciones) el 07/08/2015 03:58:40
si pero lo que necesito es auto acoplar formularios en foxpro
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Leonardo Daniel A.

Ajuste automático de escala en formularios Visual Foxpro

Publicado por Leonardo Daniel A. (42 intervenciones) el 07/08/2015 04:08:29
Que yo sepa no hay forma de hacerlo... ya que no maneja layouts o porcentajes de escala como lo hacen por ejemplo Adobe Flex, ahi le dices cuando % de ancho, alto ocuparan, y por CSS puedes definir los tipos de letras
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Ajuste automático de escala en formularios Visual Foxpro

Publicado por santiago (376 intervenciones) el 08/08/2015 18:29:02
Bueno, en realidad si se puede, para lograr esto tienes que usar : SYSMETRIC(1) y SYSMETRIC(2)

yo lo uso un tanto diferente al que voy a poner lineas abajo, esto lo publicaron en 2008:

Suerte.


este es mi prg principal

SET DATE TO [DMY]

SET TALK OFF
SET SAFETY OFF

SET DELETED ON
_SCREEN.VISIBLE=.F.
_SCREEN.Caption=':.CARGANDO APLICACION'
****
Public LANCHO
Public LALTO
****
SET ENGINEBEHAVIOR 70

SET PROCEDURE TO PROGRAMAS/FUNCIONES

**************************************************************
** determina la resolución de la pantalla
**mein del sistema
**************************************************************
****
DO CASE
CASE SYSMETRIC(1)=640 AND SYSMETRIC(2)=480
LANCHO=SYSMETRIC(1)
LALTO=SYSMETRIC(2)
CASE SYSMETRIC(1)=800 AND SYSMETRIC(2)=600
LANCHO=SYSMETRIC(1)
LALTO=SYSMETRIC(2)
CASE SYSMETRIC(1)=1024 AND SYSMETRIC(2)=768
LANCHO=SYSMETRIC(1)
LALTO=SYSMETRIC(2)
CASE SYSMETRIC(1)=1280 AND SYSMETRIC(2)=1024
LANCHO=SYSMETRIC(1)
LALTO=SYSMETRIC(2)
OTHERWISE
LANCHO=SYSMETRIC(1)
LALTO=SYSMETRIC(2)
ENDCASE
IF LANCHO<1024 OR LALTO<768
ChangeRes(1024,768)

ENDIF

*-************************************************************************************
y esta es la funcion q llama para cambiar la resolucion

FUNCTION ChangeRes
LPARAMETERS tnWidth, tnHeight
LOCAL lnWidth, lnHeight, lnModeNum, lcDevMode
*!* Valores
lnModeNum = 0
lcDevMode = REPLICATE(CHR(0), 156)
lnWidth = IIF(EMPTY(tnWidth), 800, tnWidth)
lnHeight = IIF(EMPTY(tnHeight), 600, tnHeight)
*!* Instrucciones DECLARE DLL para cambiar resolución
DECLARE INTEGER EnumDisplaySettings IN Win32API STRING lpszDeviceName, INTEGER iModeNum, STRING @lpDevMode
DECLARE INTEGER ChangeDisplaySettings IN Win32API STRING @lpDevMode , INTEGER dwFlags
*!* Bucle para obtener todos los modos disponibles
DO WHILE EnumDisplaySettings(NULL, lnModeNum, @lcDevMode) <> 0
lnModeNum = lnModeNum +1
ENDDO
*!* Configurar la structura DevMode
lcDevMode = STUFF(lcDevMode, 41, 4, LongToStr(1572864))
lcDevMode = STUFF(lcDevMode, 109, 4, LongToStr(tnWidth)) && Ancho
lcDevMode = STUFF(lcDevMode, 113, 4, LongToStr(tnHeight)) && Alto
*!* Cambiar resolucion
ChangeDisplaySettings(@lcDevMode, 1)
ENDFUNC

FUNCTION LongToStr
LPARAMETERS lnLongVal
LOCAL lnCnt, lcRetStr
lcRetStr = ''
FOR lnCnt = 24 TO 0 STEP -8
lcRetStr = CHR(INT(lnLongVal/(2^lnCnt))) + lcRetStr
lnLongVal = MOD(lnLongVal, (2^lnCnt))
NEXT
RETURN lcRetStr
ENDFUNC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar