FoxPro/Visual FoxPro - configuración de la pantalla

   
Vista:

configuración de la pantalla

Publicado por Ricardo (153 intervenciones) el 07/11/2007 11:05:56
Hola
La pregunta es:
"¿Alguien sabe cual es la funcion de API para cambier la configuración de la pantalla de un ordenador?.
Si es así les regaria me lo hicieran saber
Mil gracias por su tiempo, he buscado y no hay manera de ancontrarlo, debo estar un poco zoquete, pero que le voy ha hacer.
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

Ampliación

Publicado por respuesta (153 intervenciones) el 07/11/2007 11:08:58
Es de la pantalla del ordenador no la ventana de fox, tengo un aquipo que esta a 800 x 600 y no me vale lo quiero a 1024 x 768
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

RE:Ampliación

Publicado por Plinio (7771 intervenciones) el 07/11/2007 11:32:14
http://www.lawebdelprogramador.com/news/mostrar_new.php?id=36&texto=FoxPro/Visual+FoxPro+Avanzado&n1=438293&n2=1&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0
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

RE:Ampliación

Publicado por andy (221 intervenciones) el 07/11/2007 14:34:26
*!* Cambia la resolución de la pantalla
*!* Sintaxis ChangeRes(tnWidth, tnHeight)
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
ALTO=768
ANCHO=1024
ChangeRes(ANCHO,ALTO)
wait window NOWAIT 'LA RESOLUCION FUE CAMBIADA A:'+ALLTRIM(STR(ANCHO))+' X '+ALLTRIM(STR(ALTO))+' PIXELES'

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

*!* Convierte un long integer a un 4-byte character string
*!* Sintaxis: LongToStr(lnLongVal)
*!* Valor devuelto: lcRetStr
*!* Argumentos: lnLongVal
*!* lnLongVal especifica el long integer a convertir

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

RE:configuración de la pantalla:una mas

Publicado por Ernesto Hernandez (4632 intervenciones) el 07/11/2007 19:55:38
http://www.premium-soft.com/rincon_del_programador.htm
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