OT Resolucion en Tablet
Posted: Thu Feb 23, 2017 4:11 pm
Hola a todos,
Tengo, ya tiempo, una aplicacion en tablet. Aparentemente, no tuve novedad, funcionaba bien en Windows 8.
Resulta que no se termina de adaptar los formularios a Windows 10. El programa, es multiresolucion, es decir, está hecho con dialogos por codigo, para que se adapte a la resolucion automaticamente.
Si en un desktop con Win XP pongo la misma resolucion de la tablet, que es de 1366x768 (segun Windows 10 sobre la tablet), obtengo como resolucion fisica en el programa 1366x768, pero en la tablet obtengo 1093x614; resoluciones obtenidas con la funcion descrita mas abajo.
Para obtener la resolucion hago esto:
La pregunta: ¿ Por qué en Windows XP desktop si obtengo las medias correctas y no así en Windows 10 sobre tablet ?
Gracias y saludos a todos.
Tengo, ya tiempo, una aplicacion en tablet. Aparentemente, no tuve novedad, funcionaba bien en Windows 8.
Resulta que no se termina de adaptar los formularios a Windows 10. El programa, es multiresolucion, es decir, está hecho con dialogos por codigo, para que se adapte a la resolucion automaticamente.
Si en un desktop con Win XP pongo la misma resolucion de la tablet, que es de 1366x768 (segun Windows 10 sobre la tablet), obtengo como resolucion fisica en el programa 1366x768, pero en la tablet obtengo 1093x614; resoluciones obtenidas con la funcion descrita mas abajo.
Para obtener la resolucion hago esto:
- Code: Select all Expand view
- FUNCTION ResolucionFisica()
Local hDC, nWidth, nHeight
hDC = CreateDC( "DISPLAY", "", "" )
nWidth = GetDeviceCaps( hDC, HORZRES )
nHeight = GetDeviceCaps( hDC, VERTRES )
RETURN { nWidth, nHeight }
La pregunta: ¿ Por qué en Windows XP desktop si obtengo las medias correctas y no así en Windows 10 sobre tablet ?
Gracias y saludos a todos.