FoxPro/Visual FoxPro - resolucion de pantalla

   
Vista:

resolucion de pantalla

Publicado por sebastian (244 intervenciones) el 05/06/2010 21:16:21
Hola programadores que debo de hacer para que mi programa se adapte a la resolucion de cada pc, lo que sucede es que cuando creo los disco de instalacion en mi PC la resolucion esta en Mayor 1024 por 768 pixeles y otras pc diferentes resoluciones, como hacer para que se adapte en cada pc.

Gracias
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 Mauricio

Resolucion de pantalla

Publicado por Mauricio (1368 intervenciones) el 05/06/2010 22:58:33
Sebastian, aca hay un link que dejo el amigo Pablo de Argentina, espero te ayude en tu problema:
http://www.portalfox.com/index.php?name=News&file=article&sid=940
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 Mauricio

resolucion de pantalla

Publicado por Mauricio (1368 intervenciones) el 05/06/2010 23:18:57
Sebastian, en buscar pones 'resolucion' y que sorpresa que el 20/06/2008 apareces con esta pregunta, casi 2 años despues regresa la misma pregunta, sera que eres el mismo que hace 2 años, bueno aca esta otro posible solucion, esta fue enviada por el amigo ANDY, hace tiempo:
*
public AnchoInicio,Altoinicio

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
MESSAGEBOX([LA RESOLUCION DEL MONITOR ES DESCONOCIDA])
ENDCASE
anchoinicio=lancho
altoinicio=lalto

* Lo ideal seria guardar estas variables en una tabla
* Cambiar la resolucion a 1024 x 768

ALTO=768
ANCHO=1024

ChangeRes(ANCHO,ALTO)

FUNCTION ChangeRes
LPARAMETERS tnWidth, tnHeight
LOCAL lnWidth, lnHeight, lnModeNum, lcDevMode
lnModeNum = 0
lcDevMode = REPLICATE(CHR(0), 156)
lnWidth = IIF(EMPTY(tnWidth), 800, tnWidth)
lnHeight = IIF(EMPTY(tnHeight), 600, tnHeight)

DECLARE INTEGER EnumDisplaySettings IN Win32API STRING lpszDeviceName, INTEGER iModeNum, STRING @lpDevMode
DECLARE INTEGER ChangeDisplaySettings IN Win32API STRING @lpDevMode , INTEGER dwFlags
DO WHILE EnumDisplaySettings(NULL, lnModeNum, @lcDevMode) <> 0
lnModeNum = lnModeNum +1
ENDDO
lcDevMode = STUFF(lcDevMode, 41, 4, LongToStr(1572864))
lcDevMode = STUFF(lcDevMode, 109, 4, LongToStr(tnWidth)) && Ancho
lcDevMode = STUFF(lcDevMode, 113, 4, LongToStr(tnHeight)) && Alto
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

*Para volver a la resolucion inicial y salir , usamos la misma funcion con las variables publicas

ChangeRes(AnchoInicio,AltoInico)
quit
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