FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Mala Resolucion
Buenas tardes mis queridos amigos, tengo un problema debido a que tengo una aplicacion desarrollada para trabajar en una resolucion de 800*600, el problema es que un usuario tiene un computador donde la aplicacion se muestra a un resolucion menor a la que aparece configurado el video, razon por la cual salen cortadas las pantallas, el s.o. es windows 98 se y la tarjeta es una sis680... ¿¿que se puede hacer en este caso habra una dll especial???
|
#2
|
|||
|
|||
Hola:
Aquí tiene 3 links a hilos que tratan el asunto: http://www.clubdelphi.com/foros/show...p?threadid=220 http://www.clubdelphi.com/foros/show...p?threadid=429 http://www.clubdelphi.com/foros/show...?threadid=1331 No sé si esta tarjeta tendrá menos de 1 MByte de memoria (esto ya permite verse a 800x600 aunque no a true color), pero quizás, si le cobras la faena de adaptarle la interfaz, te resulte más rentable venderle una tarjeta nueva que soporte esa resolución.
__________________
Guía de Estilo |
#3
|
|||
|
|||
este pequeño programita, cambia la resolucion de tu pantalla,
function DynamicResolution(X, Y: word): BOOL; var lpDevMode: TDeviceMode; begin Result := EnumDisplaySettings(nil, 0, lpDevMode); if Result then begin lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT; lpDevMode.dmPelsWidth := X; lpDevMode.dmPelsHeight := Y; Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL; end; end; procedure TForm1.Button2Click(Sender: TObject); begin if DynamicResolution(800, 600) then ShowMessage('Resolución a: 800*600'); end; procedure TForm1.Button1Click(Sender: TObject); begin if DynamicResolution(640, 480) then ShowMessage('Resolución a: 640*480'); end; solo titnes que adaptarlo a tus necesidades... ok.. Espero que te sea de utiidad... bye. |
|
|
|