Mala Resolucion

[eduarcol]

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???

[andres1569]

Hola:

Aquí tiene 3 links a hilos que tratan el asunto:

http://www.clubdelphi.com/foros/showthread.php?threadid=220

http://www.clubdelphi.com/foros/showthread.php?threadid=429

http://www.clubdelphi.com/foros/showthread.php?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.

[delphi_gama]

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.